Страница 1 из 1

Циклы в Паскале

Добавлено: 18 фев 2007, 21:23
Антонина
Помогите разобраться с задачами ( я новичёк в программировании) и желательно, извиняюсь за наглость :rolleyes: , с объяснениями. :)
1) Дано n вещественных чисел (n=50). Найти максимум этих чисел.

2) Дано n вещественных чисел (n=30). Определить порядковый номер того из них, который наиболее близок к своему номеру. (Считать, что такое число единственное).

Re: Циклы в Паскале

Добавлено: 19 фев 2007, 00:27
namomelkor
девушка а вы пробовали почитать книги по паскалю или делфи для начинающих там такие вопросы подробно описаны.

Re: Циклы в Паскале

Добавлено: 19 фев 2007, 08:27
Антонина
namomelkor писал(а):девушка а вы пробовали почитать книги по паскалю или делфи для начинающих там такие вопросы подробно описаны.
Пробовала. Одно дело ТЕОРИЯ, а другое дело ПРАКТИКА. Спасибо за помощь. :rolleyes:

Re: Циклы в Паскале

Добавлено: 19 фев 2007, 20:46
Хыиуду
Первое не буду описывать. Ну это уж слишком просто, эта задача всегда приводится в пример как одна из первых задач с циклами и массивами. В двух словах: пройти в цикле по массиву и сравнить некий "максимум", который вначале равен первому числу, со всеми остальными. Если очередное число больше "максимума", оно становится новым максимумом.
Вторая задача - чуточку поинтереснее, так что можно и описать
min_i=1;
for i:=1 to N do
if abs(i-mas)<abs(min_i-mas[min_i])
then min_i:=i;
Вот, собственно, и все. Первая задача решается точно так же, только условие другое

Re: Циклы в Паскале

Добавлено: 20 фев 2007, 08:05
Oleg_Rus
1.
for i:=1 to n do
Sum:=Sum+mas;

после этого в переменной sum будет сумма всех элементов.