Основы программирования на языке Turbo Pascal. Беляева И.В. - 100 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

100
for j := i - 1 downto 1 do
if Arr[i] = Arr[j] then
begin
isDifferent := false; {i-й элемент совпадает}
break; {с одним из предыдущих}
end;
if isDifferent then num := num + 1;
end;
NumberOfDifferentElements := num; {*Возвращаем
вычисленное количество разных элементов*}
end; {*Конец функции NumberOfDifferentElements*}
{*Тело программы*}
begin
{*Вводим массив Arr*}
ReadArray;
{*Выводим массив Arr*}
PrintArray;
{*Вычисление и вывод количества различных элементов массива*}
Write('В введенном массиве различных элементов : ');
writeln(NumberOfDifferentElements);
end. {*Конец программы *}
В данном примере показан рекомендуемый стиль оформления
исходного текста программы и его комментирования.
Комментарии, помеченные символами *** ***, в реальной программе
не пишутся. Здесь они вставлены по причине того, что этот текст –
учебный пример.
Комментарии, помеченные символами * * , в реальной программе
могут писаться или не писаться, в зависимости от требований к качеству и
количеству комментариев.
Комментарии, не помеченные никакими значками, писать нужно
ОБЯЗАТЕЛЬНО, если этот исходный текст программы в дальнейшем
(спустя какое-то время) кто-то будет читать.

Страницы