Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.70/10: Рейтинг темы: голосов - 10, средняя оценка - 4.70
jack the ripper
1 / 1 / 0
Регистрация: 19.01.2011
Сообщений: 31
1

циклические алгоритмы...

21.01.2011, 18:35. Просмотров 1920. Ответов 1
Метки нет (Все метки)

помогите плз написать проги на циклы в Delphi Console.. а то я только на линейные и разветвляющиеся сделал, а вот циклы пока не шарю... спс заранее!!!)

1. Найти сумму чисел от 100 до 200, кратных 17.

2. С помощью оператора while напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.

3. Составьте программу определения наименьшего общего кратного двух натуральных чисел (использовать формулу: НОК*НОД=a*b)..

P.S.
каждую задачу нужно решить с помощью разных циклов! (например: первую с помощью цикла FOR, вторую с WHILE, и т.д....)))
спасибо за понимание))
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2011, 18:35
Ответы с готовыми решениями:

Циклические алгоритмы (Алгоритмы с одним циклом)
Доброго времени суток! Помогите пожалуйста написать программы на циклы в...

Циклические алгоритмы
Дорогие друзья, приветсвую мне нужна помощь, сделал лабораторную работу, но не...

Циклические алгоритмы
необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд...

ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ
Доказать (путем перебора возможных значений), что для любых величин а, b, с...

Циклические алгоритмы
Пожалууйстааа

1
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
21.01.2011, 20:09 2
Лучший ответ Сообщение было отмечено jack the ripper как решение

Решение

Pascal
1
2
3
4
for i:=100 to 200 do
if i mod 17=0 then
inc(sum,i);
writeln(sum);
Добавлено через 3 минуты
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
begin
i:=2;
while i<=100 do
begin
if not odd(i) then
Memo1.Lines.Add(intTostr(i));
inc(i);
end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2011, 20:09

Циклические алгоритмы
Определить k -- количество трёхзначных натуральных чисел, сумма цифр которых...

Задача по теме «циклические алгоритмы»
Суточный рацион коровы составляет u кг сена, v кг силоса и w кг комбикорма. В...

Циклические алгоритмы. Табулирование функций
Циклические алгоритмы. Табулирование функций Составить алгоритм и программу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru