Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
zBePb
-53 / 2 / 1
Регистрация: 19.10.2013
Сообщений: 31
#1

цикл Repeat решение 2 задач

21.10.2013, 07:23. Просмотров 615. Ответов 1
Метки нет (Все метки)

цикл Repeat решение 2 задач

задание в Delphi(не в консоли)

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2013, 07:23
Ответы с готовыми решениями:

цикл repeat
Найти сумму натуральных чисел предшедствующих заданному числу А

Delphi!? Repeat Unitl... бесконечный цикл (вся прога зависает)?
repeat for m:=0 to g-1 do begin if (vrema=handm) then ShowMessage('MY...

Решение задач Делфи
Здравствуйте, решите пожалуйста 2 номера

Замена Repeat на While
Проблема такая, в коде был repeat , заменил его не while и после этой замены...

Задачи на оператор цикла repeat
Задача 1. Составить программу, которая выводит все двухзначные числа кратные 8...

1
zBePb
-53 / 2 / 1
Регистрация: 19.10.2013
Сообщений: 31
21.10.2013, 08:59  [ТС] #2
Цитата Сообщение от zBePb Посмотреть сообщение
Вложение 319288
задание в Delphi(не в консоли)
1-задача немного помогли но нечего не понял)(
0.1E-3
n:=1;
repeat
s:=0;
an=
n:=n+1;
s:=s+an;
until an>=0.1e-3
2-задача,код для консоли но трудности в перевод для приложения под windows
procedure TForm1.FormCreate(Sender: TObject);
var n,i,i1,i2,m,z: real;
begin
writeln ('Vvedite chislo n - summu cifr 3-znachnogo chisla ');
readln (n);
if n<=0
then
begin
writeln ('Chislo N dolzhno byt bolzshe 0 ');
end;
if frac(n)<>0
then
begin
writeln ('Chislo N dolzhno byt celym ');
end;
m:=99;
repeat
m:=m+1;
i:=m/100;
i:=int(i);
i1:=m/10;
i1:=int(i1);
i1:=i1/10;
i1:=frac(i1);
i2:=m/10;
i2:=frac(i2);
z:=i+i1+i2;
if z=n
then
writeln (m:2:0);
until m>=999;
readln;
application.Terminate
end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.10.2013, 08:59

решение двух задач с бд на access
Здравствуйте, мне нужно решить 2 задачи. 1. у меня есть на form5 49 едитов...

Какой цикл (For, While или Repeat) лучше использовать для решения задач с последовательностями?
Какой цикл For, While или Repeat лучше использовать для решения задач с...

Задача на графику и решение ее, используя цикл repeat
Придумать задачу на графику и решить ее с помощью цикла repeat


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

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

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