Delphi. Простая задача
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Delphi. Простая задача - 2008-04-13 19:54:19.973333
|
|
|
rim
Сообщений: 15
Оценки: 0
Присоединился: 2007-08-20 11:54:58.103333
|
Все привет, вот задали задачки сделать … но из за того что я во время лекций по коддингу ходил за пивом 8| , не знаю как сделать.
Задачи на тему циклов While Do и Repeat
1- Число А возвели в квадрат и прибавили 1. Полученное число снова возвели в квадрат и результат увеличили на один. Процесс продолжается до тех пор, пока не будет получено число Х, большее 1000000, найти X
Что я написать procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=StrToInt(Edit1.Text);
b:=sqr(a)+1;
Panel1.Caption:=IntToStr(b);
end;
end. 2- Найти наибольший общий делитель натуральных чисел M и N .
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-13 20:32:11.953333
|
|
|
Login_hochu
Сообщений: 1471
Оценки: 0
Присоединился: 2007-07-15 14:19:23.423333
|
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
while a<1000000 do
begin
a:=StrToInt(Edit1.Text);
a:=sqr(a)+1;
end;
panel1.Caption:=IntToStr(a);
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=StrToInt(Edit1.Text);
Repeat
begin
a:=sqr(a)+1;
end;
until a>100000;
panel1.Caption:=IntToStr(a);
end;
end.
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-13 20:40:28.620000
|
|
|
b[e]nder
Сообщений: 193
Оценки: 0
Присоединился: 2008-01-29 07:22:07.950000
|
Сорр код не правильный))
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-13 21:04:00.430000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Ходил за пивом на лекциях - теперь иди за пивом для доброго сокурсника который сделает.А то я тоже мучаюсь - хз совсем как ничего не делая словить халявы. Вот парни ( Login_hochu
и b[e]nder) молодцы,повезло тебе ТС. А пост пишу чтоб спросить - какого лешего тебе не судьба потратить 20(серьезно) минут чтоб прочесть про циклы?
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-13 22:22:51.270000
|
|
|
rim
Сообщений: 15
Оценки: 0
Присоединился: 2007-08-20 11:54:58.103333
|
Читаю , а спросил потому что хотелось иметь наглядный пример/результат
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-14 04:24:03.066666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
А типа никакой методы/гугла нету под рукой?? Или просто лень?
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-14 15:55:03.526666
|
|
|
b[e]nder
Сообщений: 193
Оценки: 0
Присоединился: 2008-01-29 07:22:07.950000
|
rim давай ++++ кидай нам имхо помогли
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-15 16:15:42.533333
|
|
|
xackich
Сообщений: 39
Оценки: 0
Присоединился: 2008-04-11 16:09:04.120000
|
к задаче про делитель :
readln(m);
readln(n);
i:=1;
k:=1;
while i<=n do begin
if (i>k)and(n mod i=0)and(m mod i=0) then k:=i;
i:=i+1;
end;
writeln(k);
readln;
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-15 16:18:20.366666
|
|
|
xackich
Сообщений: 39
Оценки: 0
Присоединился: 2008-04-11 16:09:04.120000
|
но мопомоему тебе нужно всетаки про циклы-то почитать
|
|
|
|
|
RE: Delphi. Простая задача - 2008-04-15 19:19:25.463333
|
|
|
rim
Сообщений: 15
Оценки: 0
Присоединился: 2007-08-20 11:54:58.103333
|
Всем кто отличился получили + 2 бала , списибо большое …
|
|
|
|
|
|
