CHAT.MD

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

Пасип заранее.

4 из 5 решаются элементарно. Копируются в окно программы Turbo Pascal и запускаются. Возникает вопрос: у тебя как ваще с головой и совестью? Все в норме?

Злобный,
Лучше всех, а ты как ?

[mod="Weekers"]Без оффтопа, пожалуйста...[/mod]

Weekers,
Серый, можно закрыть. Всё равно уже поздно..