Информатика 8-класс

1. Program P2 (input, output);

Var x: integer;

Begin

ClrGScr; x:=0;

Repeat

Rectangle(x*2,x,511-x*2,255-x,False);  Inc(x,5);

Until x >100;

End.

Бул программа эмне иш аткарат?

2.program  P2(input,output);

Var a,b: String;

Begin

a:="автоматика";

b:="стоп";

Write(a, "+", b, "=");

a:=Copy(a, 1, 4);

b:=Copy (b, 1, 4);

Insert(b, a, 1);

Write(a);

End.

Бул программа кандай  созду чыгарат?

3. Program P3(input,output);

Var a: String;

i ,n: Integer;

Begin

Write("созду киргизгиле=>");

Readln(a); n:=0;

For i:=1 toLength (a) Do

If Copy (a,I,1)="E" then inc(n);

Writeln("n");

End;

Берилген программа эмне иш кылат?

4.program P4(input, Output);

Var a: array[1...10]of integer;

Begin

For I:=1 to 10 Do a[I]:=random(100);

Write('a[3]=', a[3], a[7]='. a[7]);

End.

Берилген программа эмне иш кылат?

5. Pascal да жазылган программанын фрагменьи

b:= a[4]; a[4]:= a[9]; a[9]:= b;-...учун керек

6. Pascal да жазылган программанын фрагменти.

Write ( 'a[6]+ a[3]=', a[6]+ a[3] ); ...учун керек.