Тест по информатике
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. Написать программу с использованием оператора цикла для считывания суммы введенных с клавиатуры чисел до тех пор, пока не будет введена единица.

Учебный проект – организационная форма работы, которая ориентирована на усвоение учебной темы или учебного раздела и является частью стандартного учебного предмета или нескольких предметов.  

  Любая работа над темой или просто групповая работа не может называться методом проектов. Метод проектов предусматривает совокупность учебно-познавательных приемов, которые позволяют решить ту или иную проблему путем самостоятельных действий учеников с обязательной презентацией (представлением) полученных результатов.

  Проектное обучение сформировать так называемый проектировочный стиль мышления, который соединяет в единую систему теоретические и практические составляющие деятельности человека, позволяет раскрыть, развить, реализовать творческий потенциал личности.

Объяснение:

Если элементы массива идут по возрастанию, то вот так

program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
 M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.