Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 11.03.2011, 17:54   #1 (permalink)
НаталияД
Новичок
 
Регистрация: 11.03.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить две задачи в турбо паскале

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

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

Старый 11.03.2011, 17:54
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Рекомендую почитать содержимое этих топиков

Помогите решить задачи на C++
Помогите решить четыре задачи в Паскале

Старый 11.03.2011, 18:17   #2 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от НаталияД Посмотреть сообщение
Использовать цикл с параметром (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.
shrek=) вне форума   Ответить с цитированием
Старый 16.03.2011, 15:54   #3 (permalink)
Mr.П 2.0
Member
 
Регистрация: 16.03.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 11
По умолчанию

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


Замечание:
Повторная и последующие регистрации на форуме при блокировке основного аккаунта - наказываются вечным баном. Имейте это в виду! Ваш модератор.
Mr.П 2.0 вне форума   Ответить с цитированием
Старый 16.03.2011, 15:56   #4 (permalink)
Mr.П 2.0
Member
 
Регистрация: 16.03.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 11
По умолчанию

Это Данил
Mr.П 2.0 вне форума   Ответить с цитированием
Старый 16.03.2011, 16:25   #5 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от Mr.П 2.0 Посмотреть сообщение
но можно было и repeat until
Mr.П 2.0, если ты посмотришь в стартовый топик, то увидишь
Цитата:
Сообщение от НаталияД Посмотреть сообщение
Использовать цикл с параметром (For)
shrek=) вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 16.03.2011, 16:26   #6 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

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

Для p рекомендую определить тип longint.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.