Стандартные задачи на циклы: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
UnREAL (обсуждение | вклад) Нет описания правки |
UnREAL (обсуждение | вклад) Нет описания правки |
||
Строка 34: | Строка 34: | ||
[http://pascalabc.net/WDE/?shared=UnREAL/Algoritm_08.pas Ссылка на алгоритм в среде WDE] | [http://pascalabc.net/WDE/?shared=UnREAL/Algoritm_08.pas Ссылка на алгоритм в среде WDE] | ||
'''№9. Вывод n первых чисел Фибоначчи''' | |||
<source lang="pascal"> | |||
begin | |||
write('Введите целое число n (n > 1): '); | |||
var n : integer; | |||
readln(n); | |||
var a := 1; | |||
var b := 1; | |||
write(1, ' ', 1, ' '); | |||
for var i := 3 to n do | |||
begin | |||
var c := a + b; | |||
write(c, ' '); | |||
a := b; | |||
b := c; | |||
end; | |||
end. | |||
</source> | |||
[http://pascalabc.net/WDE/?shared=UnREAL/Algoritm_09.pas Ссылка на алгоритм в среде WDE] | |||
'''№10. Найти НОД(A,B), используя алгоритм Евклида: | |||
НОД(A,B) = НОД(B,A mod B); НОД(A,0) = A''' | |||
<source lang="pascal"> | |||
begin | |||
write('Введите целые числа A и B: '); | |||
var A,B,C : integer; | |||
readln(A,B); | |||
repeat | |||
C := A mod B; | |||
A := B; | |||
B := C; | |||
until C = 0; | |||
write('НОД(A,B) = ', A); | |||
end. | |||
</source> | |||
[http://pascalabc.net/WDE/?shared=UnREAL/Algoritm_10.pas Ссылка на алгоритм в среде WDE] | |||
'''№9. Вывод n первых чисел Фибоначчи''' | |||
<source lang="pascal"> | |||
begin | |||
write('Введите целое число n (n > 1): '); | |||
var n : integer; | |||
readln(n); | |||
var a := 1; | |||
var b := 1; | |||
write(1, ' ', 1, ' '); | |||
for var i := 3 to n do | |||
begin | |||
var c := a + b; | |||
write(c, ' '); | |||
a := b; | |||
b := c; | |||
end; | |||
end. | |||
</source> | |||
[http://pascalabc.net/WDE/?shared=UnREAL/Algoritm_09.pas Ссылка на алгоритм в среде WDE] | |||
'''№9. Вывод n первых чисел Фибоначчи''' | |||
<source lang="pascal"> | |||
begin | |||
write('Введите целое число n (n > 1): '); | |||
var n : integer; | |||
readln(n); | |||
var a := 1; | |||
var b := 1; | |||
write(1, ' ', 1, ' '); | |||
for var i := 3 to n do | |||
begin | |||
var c := a + b; | |||
write(c, ' '); | |||
a := b; | |||
b := c; | |||
end; | |||
end. | |||
</source> | |||
[http://pascalabc.net/WDE/?shared=UnREAL/Algoritm_09.pas Ссылка на алгоритм в среде WDE] | |||
'''№9. Вывод n первых чисел Фибоначчи''' | '''№9. Вывод n первых чисел Фибоначчи''' |
Версия от 22:23, 27 ноября 2010
Простейшие алгоритмы
(в разработке)
Рекуррентные соотношения
№7. Вывод 10 первых степеней двойки
begin
var x := 2;
for var i := 1 to 10 do
begin
writeln(i:2,x:5);
x *= 2;
end;
end.
Ссылка на алгоритм в среде WDE
№8. Вывод всех двухзначных чисел, кратных 5
begin
var x := 10;
while x < 100 do
begin
writeln(x:3);
x += 5;
end;
end.
Ссылка на алгоритм в среде WDE
№9. Вывод n первых чисел Фибоначчи
begin
write('Введите целое число n (n > 1): ');
var n : integer;
readln(n);
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
Ссылка на алгоритм в среде WDE
№10. Найти НОД(A,B), используя алгоритм Евклида: НОД(A,B) = НОД(B,A mod B); НОД(A,0) = A
begin
write('Введите целые числа A и B: ');
var A,B,C : integer;
readln(A,B);
repeat
C := A mod B;
A := B;
B := C;
until C = 0;
write('НОД(A,B) = ', A);
end.
Ссылка на алгоритм в среде WDE
№9. Вывод n первых чисел Фибоначчи
begin
write('Введите целое число n (n > 1): ');
var n : integer;
readln(n);
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
Ссылка на алгоритм в среде WDE
№9. Вывод n первых чисел Фибоначчи
begin
write('Введите целое число n (n > 1): ');
var n : integer;
readln(n);
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
Ссылка на алгоритм в среде WDE
№9. Вывод n первых чисел Фибоначчи
begin
write('Введите целое число n (n > 1): ');
var n : integer;
readln(n);
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.