1)№5.Напишите процедуру,которая находит корни уравнения ax² bx c 0;
---
2)№14.Что выведет следующая программа:
Program t 11;
Var a: integer;
Procedure p (var x : integer);
Begin
X:=x+1; x:=x+a;
End;
Begin
A:=5;
P(a); writeln(a);
P(a); writeln(a);
End.
---
3)№18.Пусть даны процедуры P иQ:
Procedure P (var a,b: integer);
Begin
If a<0 then a:=a+1;
B:=sqr (a);
End;
Procedure Q (a: integer; var b: integer);
Begin
If a<0 then a:=a+1;
B:=sqr(a)
End;
Определите значения переменной n после выполнения каждой из следующих последовательностей операторов:
(1) m:=-1; P(m,n); n:=n+m;
(2) m:=-1; Q(m,n); n:=n+m;
(3) m:=1; P(m,n); n:=n+m;
(4) m:=1; Q(m,n); n:=n+m;
---
4)№4. Что выведет следующая программа:
Program t1;
Var x,y:integer;
Procedure P(a:integer; var b:integer);
Begin
A:=a+3;
B:=b+a;
End;
Begin
X:=0; y:=0;
P(x,y);write (x,y); P(y,x); write (x,y);
P (x,x); write (x,y); P(y,y);write (x,y);
End.
---
5)№5.Что выведет следующая программа:
Program t2;
Type Vector=array [1…2] of real;
Var a: Vector; i:integer;
Procedure P(var k:integer; var x:real);
Begin
K:=2; x:=0;
End;
Begin
A[1]:=1; a[2]:=2;
For i:=1 to 2 do
Begin
P( i ; a); writeln (a [1]:4:1; a[2]:4:1);
End;
End.
a)1.0 3.1
b)1.0 2.0
c)0.0 2.0
d)1.0 0.0
Пасип заранее.
Контрольная по Паскалю. Кому нечего делать.
Модератор: Злобный