вторник, 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.

Комментариев нет:

Отправить комментарий