Кроссворд

Кроссворд

http://LearningApps.org/display?v=pnn4mpt2t01

Взаимосвязь природы и общества

На этом изображении природа выступает источниками средств жизни( О2 , вода, пища, материал для разведения огня и строительства убежищ/жилищ).

Домашняя работа (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.

<iframe src="https://docs.google.com/document/d/1VJ8-duh9idXr2qmFnCHzpD3lvzgq6fZBp4yZJFOEK44/pub?embedded=true"></iframe>