Тест по информатике
1. Дать определение цикла.
Цикл с предусловием – это
2. Запишите на языке Паскаль структуру оператора цикла с параметром.
3. Сколько раз будут выполнены циклы в следующих фрагментах программ:
а) for k:= 7 to 28 do …
б) k:= r;
for i:= k to r do …
4. Запишите формулу в нормальном виде
SQRT(SQR(x)+90)/(a-b)*c
Запишите формулу, используя функции и математические операции языка Паскаль.

5. Расставь на свои места команды и операторы так, чтобы получилась программа, которая выводит на экран числа в диапазоне от 20 до 50

1) End.
2) Write (Н‘’);
3) Program Primer;
4) Begin
5) For x: = 20 to 50 do
6) Var Н: integer;

6. Написать программу с использованием оператора цикла для считывания суммы введенных с клавиатуры чисел до тех пор, пока не будет введена единица.

1. Вот так для чего-то решают в школе...

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016

var
  i,j,s:integer;
begin
  // задание 1
  s:=0;
  for i:=1 to 10 do s:=s+i*i;
  Writeln(s);
  // задание 2
  j:=0;
  for i:=1 to 50 do
    if i mod 2=0 then j:=j+1;
  Writeln(j)
end.

Результат
385
25

А вот так можно это решить по-нормальному за минуту.

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
  Writeln(1.To(10).Select(i->i*i).Sum); // задание 1
  Writeln(Range(2,50,2).Count) // задание 2
end.

Результат
385
25

Var 
a:array of array of integer;
jmin:array of integer;
n,m,i,j,k,min:integer;
begin
Randomize;
write('n = ');
readln(n);
write('m = ');
readln(m);
writeln('Исходный массив:');
SetLength(a,n);
for i:=0 to n-1 do SetLength(a[i],m);
SetLength(jmin,m);
for i:=0 to n-1 do
 begin
 for j:=0 to m-1 do
  begin
   a[i,j]:=random(11);
   write(a[i,j]:4);
  end;
  writeln;
 end;
min:=a[0,0]; jmin[0]:=1;
for i:=0 to n-1 do
 for j:=0 to m-1 do
  if a[i,j]<min then 
   begin 
    min:=a[i,j];
    for k:=0 to m-1 do jmin[k]:=0;
    jmin[j]:=1;
    end
   else if a[i,j]=min then jmin[j]:=1;
writeln('min = ',min);
for k:=0 to m-1 do write(jmin[k],' ');
writeln;
for k:=m-1 downto 0 do
 if jmin[k]=1 then
  begin
  for i:=0 to n-1 do SetLength(a[i],Length(a[i])+1);
  for i:=0 to n-1 do
   for j:=Length(a[i])-1 downto k+2 do a[i,j]:=a[i,j-1];
  for i:=0 to n-1 do a[i,k+1]:=0; 
  end;
for i:=0 to n-1 do
 begin
 for j:=0 to Length(a[i])-1 do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
n = 4
m = 5
Исходный массив:
   7   3   7   6   0
   5   0   8   0   9
   2   1   9   6  10
   2   0   3   6   0
min = 0
0 1 0 1 1 
   7   3   0   7   6   0   0   0
   5   0   0   8   0   0   9   0
   2   1   0   9   6   0  10   0
   2   0   0   3   6   0   0   0