Циклы. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) |
Mikst (обсуждение | вклад) |
||
Строка 145: | Строка 145: | ||
=== Вычисление A<sup>n</sup> === | === Вычисление A<sup>n</sup> === | ||
<source lang="Delphi"> | |||
var | |||
n,i: integer; | |||
a,p: real; | |||
begin | |||
write('Введите a,n: '); | |||
readln(a,n); | |||
p := 1; | |||
for i := 1 to n do | |||
p := p * a; | |||
writeln(a,' в степени ',n,' = ',p); | |||
end.</source> | |||
=== Вывод цифр числа === | === Вывод цифр числа === | ||
=== Вывод букв английского алфавита === | === Вывод букв английского алфавита === |
Версия от 10:58, 17 ноября 2009
Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1
var i: integer;
begin
// С помощью for
for i := 1 to 5 do
write(i,' ');
writeln;
for i := 5 downto 1 do
write(i,' ');
writeln;
writeln;
// С помощью while
i := 1;
while i<=5 do
begin
write(i,' ');
i := i + 1;
end;
writeln;
i := 5;
while i>=1 do
begin
write(i,' ');
i := i - 1;
end;
writeln;
writeln;
// С помощью repeat
i := 1;
repeat
write(i,' ');
i := i + 1;
until i>5;
writeln;
i := 5;
repeat
write(i,' ');
i := i - 1;
until i<1;
writeln;
end.
Вывод последовательности 1 3 5 7 9
var i,x: integer;
begin
// С помощью for и промежуточной переменной
x := 1;
for i := 1 to 5 do
begin
write(x,' ');
x := x + 2;
end;
writeln;
// С помощью for без промежуточной переменной
for i := 1 to 5 do
write(2*i-1,' ');
writeln;
// С помощью while
x := 1;
while x<10 do
begin
write(x,' ');
x := x + 2;
end;
writeln;
// С помощью repeat
x := 1;
repeat
write(x,' ');
x := x + 2;
until x>=10;
end.
Сумма и произведение введенных чисел
Код на Pascal
var
i: integer;
s,p: real;
x: real;
begin
writeln('Введите 10 чисел: ');
s := 0;
p := 1;
for i := 1 to 10 do
begin
read(x);
s := s + x;
p := p * x;
end;
writeln('Сумма введенных чисел = ',s);
writeln('Произведение введенных чисел = ',p);
end.
Код на PascalABC.NET
var
s,p: real;
begin
writeln('Введите 10 чисел: ');
s := 0;
p := 1;
for var i := 1 to 10 do
begin
var x: integer;
read(x);
s += x;
p *= x;
end;
writeln('Сумма введенных чисел = ',s);
writeln('Произведение введенных чисел = ',p);
end.
Вычисление n!
Код на Pascal
var
n,fact: integer;
i: integer;
begin
write('Введите n (n<=13): ');
readln(n);
fact := 1;
for i := 2 to n do
fact := fact * i;
writeln(n,'! = ',fact);
end.
Код на PascalABC.NET
var n: integer;
begin
write('Введите n (n<=13): ');
readln(n);
var fact := 1;
for var i := 2 to n do
fact *= i;
writeln(n,'! = ',fact);
end.
Вычисление An
var
n,i: integer;
a,p: real;
begin
write('Введите a,n: ');
readln(a,n);
p := 1;
for i := 1 to n do
p := p * a;
writeln(a,' в степени ',n,' = ',p);
end.