1)
program FunctionIFfull;
uses crt;
var
x, y : real;
begin
clrscr;
write('x = ');
readln(x);
if x>=1 then y:= sqrt(3*x+4)
else
if x<=-1 then y:= sqr(x)+4*x
else y:=4*sqr(x)-2*x+3;
writeln('y = ', y:8:2);
readln;
end.
2)
program FunctionIFshort;
uses crt;
var
x, y : real;
begin
clrscr;
write('x = ');
readln(x);
if x>=1 then y:= sqrt(3*x+4);
if x<=-1 then y:= sqr(x)+4*x;
if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;
writeln('y = ', y:8:2);
readln;
end.
Объяснение:
1. Повна команда розгалуження має вигляд
if < логічний вираз > then <команда 1> else < команда 2 >;
2. Коротка команда розгалуження має вигляд
if <логічний вираз > then <команда 1>;
Program NoName;
Var i,D,n,k:integer;
a:array[1..9999] of integer;
Begin
k:=0;
Read (D);
Write('Количество цифер в массиве ');
Read (n)
For i:=1 to n do
Begin
If (a[i] >0)and(a[i]< D) then k:=k+1;
End;
Write (k)
End.
Program Noname;
Var n,i:integer;
a:array[1..9999] of integer;
Begin
Read (n);
For i:= 1 to n do
Begin
If (a[i] mod 3 = 0) then
a[i] := a[3];
Write (a[i]);
End;
End.
Скажу сразу, не проверял, возможно несколько недочётов упустил, но основа есть