1.Написать программу инициализации одномерного массива A(5) целого типа.
ПРОГРАММА
Program b1;
a:array[1..5] of integer; {одна строчка}
i:integer;
begin
Writeln(‘введите значения’);
For i:=1 to 5 do
begin
Readln(a[i]);
Writeln(a[i]);
end;
end.
2.Вычисление n - го числа Фибоначчи
Program fib1;
{вычисление N числа Фибоначчи}
var
i,a,b,c,N:integer;
begin
a:=1; b:=1;
writeln('введите номер числа:');
readln(N);
for i:=3 to N do
begin
c:=a+b;
a:=b; b:=c;
end;
writeln('N-ое число Фибоначчи:',c)
end.
3.Печать числового ряда Фибоначчи
Program fib2;
{печать чисел Фибоначчи N <=144}
var
i,a,b,c,N:integer;
begin
a:=1; b:=1;writeln(a); writeln(b);
repeat
c:=a+b;
a:=b; b:=c;
writeln(b)
until c>=144;
end.
4.Написать программу инициализации многомерного массива А(3,6) целого типа.
Program in;
Var
a:array[1..3,1..6] of integer; {3 строчки и 6 столбца}
k,i:integer;
begin
Writeln(‘введите значения’);
For i:=1 to 3 do
For k:=1 to 6 do
begin
Readln(a[i]);
Writeln(a[i]);
end;
end.
5.Написать программу поиска максимального и минимального
значения в массиве вещественного типа B(10).
Program maxmin;
{поиск максимального и минимального значений}
var
b:array[1..10] of real;
max,min:real;
i:integer;
begin
Writeln('присвоить значения элементам массива');
for i:=1 to 10 do readln(a[i]);
{анализ}
max:=a[1]; min:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then max:=a[i];
if a[i]<=min then min:=a[i];
end;
writeln('минимальное:',min,'максимальное:',max)
end.
6.Написать программы вычисления корней квадратного уравнения.
Program kw;
{решение квадратного уравнения}
var
a,b,c,x1,x2,d:real;
begin
writeln('введите коэффициенты:');
readln(a,b,c);
if a=0 then writeln('уравнение вырождено');
if a<>0 then
begin
d:=b*b-4*a*c;
if d<0 then writeln('корней нет');
if d=0 then writeln('корни кратные x1,x2:',-b/(2*a));
if d>0 then
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('корней уравнения х1=',x1:7:2,'x2=',x2:7:2);
end;
end;
end.
7.Вычисление факториала
Program wfakt;
{Определение ФАКТОРИАЛА от числа}
var
f,n,r:integer;
begin
Write('введите число: ');
readln(n);
f:=1;
r:=1; {переменная цикла}
while r<=n do
begin
f:=f*r;
r:=r+1
end;
writeln('Факториал от введенного числа F(N)=N!:',f)
end.
8.Алгоритм Евклида
program ewkl;
{Алгоритм Евклида - НОД(а,в) }
var
a,b:integer;
begin
writeln('введите два натуральных числа:');
readln(a,b);
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('Наибольший общий делитель:',b)
end.
9.Алгоритм вычисления наименьшего общего кратного натуральных чисел
program naimd;
{Алгоритм Евклида - НОК(а,в) }
var
a,b:integer;
p:real;
begin
writeln('введите два натуральных числа:');
readln(a,b); p:=a*b;
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('Наименьшее общее кратное:',p/a)
end.