Технический форум - Помогите решить две задачи в турбо паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите решить две задачи в турбо паскале (http://www.tehnari.ru/f43/t48703/)

НаталияД

11.03.2011 17:54

Помогите решить две задачи в турбо паскале

Использовать цикл с параметром (For).подсчитайте произведение числ оканчивающихся на 6, в интервале от 100 до 200

Используйте оператор Repeat, выводите на рисунок сектора 90 градусов ,вписанного в прямоугольник 50 на 100 с шагом 30 пикселей на вертикали и горизонтали, до тех пор пока верхний левый угол не выйдет за нижнюю границу рисунка

shrek=)

11.03.2011 18:17

Цитата:

Сообщение от НаталияД (Сообщение 483417)

Использовать цикл с параметром (For).подсчитайте произведение числ оканчивающихся на 6, в интервале от 100 до 200

По-моему так:

Код:

var

i:integer;

p:real;

begin

p:=1;

for i:=100 to 200 do begin

if i mod 10=6 then p:=p*i;

end;

writeln (p);

readln;

end.

Mr.П 2.0

16.03.2011 15:54

Хай Миха хор решение но можно было и repeat until. И зарегестриуй меня на мейле

Замечание:

Повторная и последующие регистрации на форуме при блокировке основного аккаунта - наказываются вечным баном. Имейте это в виду! Ваш модератор.

Mr.П 2.0

16.03.2011 15:56

Это Данил

shrek=)

16.03.2011 16:25

Цитата:

Сообщение от Mr.П 2.0 (Сообщение 486603)

но можно было и repeat until

Mr.П 2.0, если ты посмотришь в стартовый топик, то увидишь

Цитата:

Сообщение от НаталияД (Сообщение 483417)

Использовать цикл с параметром (For)

AlexZir

16.03.2011 16:26

Если массив целочисленный, то и произведение должно быть целочисленным, иначе, в силу особенностей машинных операций над числами с плавающей точкой, не избежать погрешностей вычисления.

Для p рекомендую определить тип longint.

Часовой пояс GMT +4, время: 21:46.