Б) по программированию

1. Написать программу вычисления суммы, разности, произведения и частного двух действительных чисел.

var a,b: real;

begin

writeln ('Введите 1 число'); readln (a);

writeln ('Введите 2 число'); readln (b);

writeln ('cyммa=', a+b); writeln ('paзность=', a-b);

wrteln ('произведение=', a*b); writeln ('частное=', a/b);

end.

2. Написать программу, содержащую процедуры вычисления суммы, разности, произведения и частного двух действительных чисел.

var a,b : real;

procedure sum (a,b: real);

begin

writeln ('сумма=', a+b); end;

procedure raz (a,b: real);

begin

writeln ('разность=', a-b); end;

procedure pro (a,b: real);

begin

writeln ('произведение=', a*b); end;

procedure del (a,b: real);

begin

writeln ('частнoe=', a/b); end;

begin

writeln ('Введите числа');

readln (a); readln(b);

sum(a.,b); raz(a,b); pro(a,b); del(a,b);

end.

3. Написать программу вычисления синуса, косинуса и квадратного корня из действительного числа.

var a: real;

begin

writeln (‘Введите число');

readln (a);

writeln ('синус=', sin(a)); writeln ('косинуc=', cos(a)); writeln ('корень=', sqrt(a));

end.

4. Написать программу, содержащую процедуры вычисления синуса, косинуса и квадратного корня из действительного числа.

var a: real;

procedure sinus (a: real);

begin

writeln ('синус=', sin(a)); end;

procedure cosinus (a: real);

begin

writeln (‘косинуc=', cos(a)); end;

procedure kor (a: real);

begin

writeln ('корень=', sqrt(a)); end;

begin

writeln ('введите число');

readln (a);

sinus (a); cosinus (a); kor (a);

end.

5. Написать программу, содержащую две процедуры: процедуру для ввода с клавиатуры переменной действительного типа и процедуру для форматированного вывода на монитор переменной действительного типа с тремя знаками после запятой. Программа должна запрашивать у пользователя два действительных числа и выводить их на монитор.

var x,y: real;

procedure vvod (x,y: real);

begin

writeln ('vvedite');

readln (x,y); end;

procedure vyvod (x,y: real);

begin

writeln (x:5:3, y:5:3);

end;

begin

vvod (x,y); vyvod (x,y);

end.

6. Написать программу для вывода на монитор обозначений и численных значений двух переменных действительного типа с тремя значащими цифрами после запятой.

Var x,y: real;

Begin

writeln ('vvedite');

readln (x,y);

writeln (‘x=’,x:5:3,’ y=’,y:5:3);

end.

7. Написать программу, содержащую процедуру для вывода на монитор обозначения и численного значения переменной действительного типа с тремя значащими цифрами после запятой. Обозначение и численное значение должны передаваться в процедуру через механизм формальных параметров.

Var x,y: real;

Procedure vyvod (x,y: real);

Begin

Writeln (‘x=’,x:5:3,’ y=’,y:5:3);

End;

Begin

writeln ('vvedite');

readln (x,y);

vyvod (x,y);

end.

8. Написать программу для ввода с клавиатуры в переменную A типа массив матрицы размером 10х10. При вводе пользователь должен видеть индексы вводимого элемента, например, “А[2,5]=”.

var a: array [1..10,1..10] of integer;

i,j: integer;

begin

for i:=1 to 10 do

for j:=1 to 10 do begin

write (‘a[‘,I,j,’]=’)

readln (a[I,j]);

end;

end.

9. Написать программу, содержащую процедуру для ввода с клавиатуры в переменную A типа массив матрицы размером 10х10. При вводе пользователь должен видеть индексы вводимого элемента, например, “А[2,5]=”.

var a: array [1..10,1..10] of integer;

i,j: integer;

procedure mas;

begin

for i:=1 to 10 do

for j:=1 to 10 do begin

write (‘a[‘,I,j,’]=’)$

readln (a[I,j]);

end;

end.

10. Написать программу для форматированного вывода на монитор матрицы размером 10х10, предварительно записанной в массиве Mass [m,n]. Интервал между строчными элементами массива должен быть равен трем символам

Var mass: array [1..10,1..10] of integer;

M,n: integer;

begin

for m:=1 to 10 do

for n:=1 to 10 do begin

write (‘a[‘,m,n,’]=’);

readln (a[m,n]);

end;

for m:=1 to 10 do

for n:=1 to 10 do begin

write (m,’,’,n,’=’,mass[m,n],’ ‘);

writeln;

end;

end.

11. Написать программу, содержащую процедуру для форматированного вывода на монитор матрицы размером 10х10, предварительно записанной в массиве Mass [m,n]. Интервал между строчными элементами массива должен быть равен трем символам

Var mass: array [1..10,1..10] of integer;

M,n: integer;

Begin

Procedure massiv;

Begin

for m:=1 to 10 do

for n:=1 to 10 do begin

write (m,’,’,n,’=’,mass[m,n],’ ‘);

writeln;

end;

end;

for m:=1 to 10 do

for n:=1 to 10 do begin

write (‘a[‘,m,n,’]=’);

readln (a[m,n]);

end;

massiv;

end.

12. Написать программу, содержащую процедуру вычисления суммы двух целых чисел. Преобразовать эту программу в модуль и написать вторую программу для вычисления суммы двух целых чисел, использующую процедуру, содержащуюся в этом модуле.

Var a,b: integer;

Procedure sum (a,b: integer);

Begin

Write (a+b);

End; {программа, содержащая процедуру для вычисления суммы}

Begin

Writeln (‘введите 2 числа’);

Readln (a,b);

Sum (a,b);

End.

Unit S;

Interface

Procedure sum (a,b: integer);

Implementation

Procedure sum (a,b: integer);

Begin {программа, преобразованная в модуль}

Write (a+b);

End;

End.

Далее нажать file/save as/имя S

Uses S;

Var a,b: integer;

Begin {программа, использующая процедуру, содержащуюся в модуле S}

Writeln (‘введите 2 числа’);

Readln (a,b);

Sum (a,b);

End.

13. Написать программу для ввода с клавиатуры в переменную типа запись полей действительной и мнимой части комплексного числа.

Type Tcomplex=record

Re,Im:integer;

End;

Var comp:Tcomplex;

Begin

Writeln (‘введите действительную часть’);

Readln (comp.re);

Writeln (‘введите мнимую часть’);

Readln (comp.im);

End.

14. Написать программу, содержащую процедуру для ввода с клавиатуры в переменную типа запись полей действительной и мнимой части комплексного числа.

Type Tcomplex=record

Re,Im:integer;

End;

Var comp:Tcomplex;

Procedure vvod (var comp:Tcomplex);

Begin

Writeln (‘введите действительную часть’);

Readln (comp.re);

Writeln (‘введите мнимую часть’);

Readln (comp.im);

End;

Begin

Vvod (comp);

End.

15. Написать программу для форматированного вывода на монитор комплексного числа в алгебраической и в показательной форме.

Type Tcomplex=record

Re,Im:integer;

End;

Var comp:Tcomplex;

Begin

Writeln (‘введите действительную часть’);

Readln (comp.re);

Writeln (‘введите мнимую часть’);

Readln (comp.im);

Writeln (comp.re,’+’,comp.im,’I’);

End.

16. Написать программу, содержащую две процедуры - для форматированного вывода на монитор комплексного числа в алгебраической и в показательной форме.

Type Tcomplex=record

Re,Im:integer;

End;

Var comp:Tcomplex;

Procedure vvod (var comp:Tcomplex);

Begin

Writeln (‘введите действительную часть’);

Readln (comp.re);

Writeln (‘введите мнимую часть’);

Readln (comp.im);

Writeln (comp.re,’+’,comp.im,’I’);

End;

Begin

Vvod (comp);

End.

17. Написать программу для сложения двух комплексных чисел, записанных в алгебраической форме. Переменные заданы в переменных типа запись.

Пусть переменные comp1 и comp2 заданы

Type Tcomplex=record

Re,Im:integer;

End;

Var comp1, comp2: Tcomplex;

Begin

Writeln (comp1.re+comp2.re,’+’,comp1.im+comp2.im,’I’);

End.

18. Написать программу для сложения двух матриц (из целых чисел) размером 10х10. Исходные матрицы заданы в массивах М1 и М2 соответственно.

Пусть матрицы М1 и М2 заданы (М3 – сумма этих матриц)

Var M1, M2, M3: array {1..10,1..10] of integer; I,j: integer;

Begin

For i:=1 to 10 do

For j:=1 to 10 do

Begin

M3[I,j]:=m1[I,j]+m2[I,j];

Write (m3[I,j]);

Writeln;

End;

End.

19. Напишите программу, использующую процедуры

Procedure Input_Comp (Var Comp: TComp);

Procedure Sum_Comp (Comp1,Comp2: TComp; Var RezComp: TComp););

Procedure Output_Comp (Comp: TComp).

Процедуры описаны в модуле OPERATE и предназначены для ввода и сложения двух комплексных чисел, а также для вывода на монитор результата сложения.

Т.к. все описано в модуле OPERATE

Uses Operate; Var Comp1, comp2, rezcomp: Tcomplex; Begin Input_comp(comp1); Input_comp(comp2); Sum_comp(comp1, comp2, rezcomp); Output_comp(rezcomp); End.