вторник, 19 мая 2015 г.

Домашняя работа (21.04)

Домашняя работа 

Программирование ветвлений на Паскале

1) Полное ветвление на Паскале программ программируется с помощью команды If <логическое выражение> then <оператор1> else <оператор2>.
   Неполное ветвление программируется с помощью команды If <логическое выражение> then <оператор>.
2) Составным оператором называется конструкция такого вида:
        begin<последовательность операторов> end.
№1.
Program One;
Var a,b,c, F:integer;
begin
writeln('Vvedite znacheniya storon');
readln(a,b,c);
If (a<b+c)and(b<a+c)and(c<a+b) then F=1 else F=0;
Writeln(F);
readln;
end.


№6.
Program Two;
Var a,b,c:real; d, F:byte;
Begin
Writeln ('Vvedite 3 chisla');
Readln (a,b,c);
d:=0
If a<0 then F:=d+1;
If b<0 then F:=d+1;
If c<0 then F:=d+1;
Writeln (F);
Readln;
end.

Домашняя работа (24.04)

Домашняя работа


Program One;
Var Y, N, a, i: integer;
Begin
Writeln ('Vvedite Y, N')
Readln (Y, N);
a:=Y;
While i<=N do Y:=Y*a;
Writeln(Y);
Readln;
end.

Домашняя работа (16.04)

Домашняя работа(16.04)

Program First;
Var x, y, a, b: real;
Begin
Writeln ('Vvedite x, y');
Readln (x, y);
a:=2*x*y
b:=(x+y)/2
If x>y then x:=a; y:=b else x:=b; y:=a;
Writeln(x, y);
Readln;
end.




Program Second;
Var x, y, F:real;
Begin
Writeln ('Vvedite koordinaty');
Readln (x, y);
If x>=0 and y>=0 then F=1 else F=0;
Writeln (F);
Readln;
end.