Программы в паскале

Writeln (9:3);

Writeln (10:3);

Writeln (11:3);

Writeln (12:3);

Writeln (13:3);

Writeln (14:3);

Writeln (15:3);

Writeln (16:3);

Writeln (17:3);

Writeln (18:3);

Writeln (19:3);

Writeln (20:3);

Readln;

End. 

Задание:

Печатать  первые 20 чисел, используя  for.

Program print_2;

Var

I: integer;

Begin

FOR  i:=1 to 20 do  Writeln (i:3);

Readln;

End. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Задание:

Печатать  первых 1000 целых чисел, используя for.

Program print_3;

Var

I: integer;

Begin

FOR  i:=1 to 1000 do  Writeln (i:5);

Readln;

End. 

Задание:

Печатать  первых 20 целых чисел  в обратном порядке. 
 

Program print_4;

Var

I: integer;

Begin

FOR  i:=20 downto 1 do  Writeln (i:3);

Readln;

End. 
 
 
 
 
 
 
 

Задание:

Печатать  первые N  целых чисел ( применение в качестве конечного значения переменной). 

Program print_5;

Var

i,n : integer;

Begin

Write (‘vvedite N (N<=32767): ‘);

Readln(N);

FOR  i:=1 to N do  Writeln (i:5);

Readln;

End. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Задание:

Нахождение  суммы первых N  натуральных чисел. Обратите внимание на переменную S , используемую в качестве аккумулятора. 

Program Summa;

Var

i,n : integer;

S: Longint;

Begin

Write (‘vvedite N (N<=32767): ‘);

Readln(N);

S:=0;

FOR  i:=1 to N do  S:=S+i;

Writeln (‘Summa=’ , S);

Readln;

End. 
 
 
 
 
 
 
 
 
 
 
 

Задание:

Нахождение  произведения первых N натуральных чисел. 

Program Proizv;

Var

i,n : Byte;

p: Longint;

Begin

Write (‘vvedite N (N<=12): ‘);

Readln(N);

p:=1;

FOR  i:=1 to N do  p:=p*i;

Writeln (‘Proizvedenie=’ , p);

Readln;

End.

Задание:

Найти значение функции  y:=x*x+2  для целого аргумента на отрезке [a,b]  , где a,b - целые

Program Funk_1;

Var

X,Y,A,B:integer;

Begin

Write (‘vvedite A:’);  Readln (A);

Write (‘vvedite B:’);  Readln (B);

Readln(‘X’:4, ‘Y’:6);

FOR  X:=A to B do

Begin

Y:=sqr(X)+2;

Writeln(X:4, Y:6);

End;

Readln;

End. 

Задание:

Найти значение функции  Y:=X*X на отрезке [0,10] , с шагом 0,01.

Program Funk_2;

Var

I: integer;

X,Y:Real;

Begin

Writeln (‘X’:5,’Y’:10); 

FOR  i:=0 to 10*100 do

Begin

X:=i/100;

Y:=sqr (X);

Writeln (X:5:2, Y:10:4);

End;

Readln;

End. 
 
 
 
 
 
 
 

Задание:

Для первых 20 целых чисел  определить четность.

Program Chet;

Var

I: integer;

Begin

  FOR  i:=1 to 20 do

If I mod 2=0 then

Writeln (i:2, ‘ – chetnoe’);

Else

Writeln (i:2, ‘ – nechetnoe’);

Readln;

End. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Задание:

Найти все простые числа  на заданном отрезке (использовать цикл с параметром).

Program Primer_12;

Var

M: integer; {нижняя граница отрезка }

I,j: integer; { верхняя граница отрезка }

Kl: integer; { параметры циклов }

Begin

Write(‘ введите нижнюю границу отрезка ….’); 

Readln(M);

Writeln(‘введите верхнюю границу орезка….’);

Readln(N);

Writeln(‘ все простые числа из отрезка [',M,',',N,']');

Fof i:=M to N do

Begin

Kl:=kl+1;

If kl=0 then Write (I,’ ‘);

End;

End. 
 
 
 
 
 
 
 
 

Задание:

Подсчитайте, сколько палиндромических чисел лежит в промежутке от 100 до 1000 (число называется палиндромическим числом ,если оно равно своему обращённому).

Program Primer_13;

Var

d: integer; {результат работы программы }

x,y,z: integer; {параметры циклов }

n: integer; { палиндром }

m: integer; {вспомогательная переменная  }

Begin

d:=0;

Fof x:=1 to 9 do

  Fof y:=0 to 9 do

Fof z:=0 to 9 do

Begin

n:=100*x+10*y+z;

m:=100*z+10*y+x;

If n=m then

Begin

d:=d+1;

Write(n,’ ‘);

End

End;

Writeln;

Writeln(‘  результат:  ‘ ,d);

End.