Самостоятельная работа по теме «Программирование циклических алгоритмов»
Вариант 1
Определите, что будет напечатано в результате следующего алгоритма.
Var s,k:integer;
begin
s:=0;
For k:=1 to 12 do s:=s+5;
writeln(s);
end.
Определите, что будет напечатано в результате следующего алгоритма.
var k, s: integer;
begin
s:=0;
k:=3;
while s < 66 do begin
k:=k+3;
s:=s+k;
end;
write(k);
end.
Определите, что будет напечатано в результате следующего алгоритма.
var k, s: integer;
begin
s:=128;
k:=5;
Repeat
s:=s-k;
k:=k-1;
Until k < 0;
write(s);
end.

В настоящее время под компьютерной моделью чаще всего понимают:

условный образ объекта или некоторой системы объектов (или процессов), описанный с взаимосвязанных компьютерных таблиц, блок-схем, диаграмм, графиков, рисунков, анимационных фрагментов, гипертекстов и т. д. и отображающий структуру и взаимосвязи между элементами объекта. Компьютерные модели такого вида мы будем называть структурно-функциональными;отдельную программу, совокупность программ, программный комплекс, позволяющий с последовательности вычислений и графического отображения их результатов, воспроизводить (имитировать) процессы функционирования объекта, системы объектов при условии воздействия на объект различных, как правило случайных, факторов. Такие модели мы будем далее называть имитационными моделями.
Формальная модель — модель, заданная на математическом или любом другом формализованном языке 

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=4;
 m=4;

Var
 ar:array[1..n,1..m] of integer;
 i,j:integer;
begin
 randomize;
 writeln('First matrix:');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      ar[i,j]:=random(100);   
   write(ar[i,j]:4);
      if ar[i,j] mod 3=2 then inc(ar[i,j]);
     end; 
    writeln;
   end;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(ar[i,j]:4);
  writeln;
 end;
end.

Пример вывода:
First matrix:
  20  80   1  69
  25  77  97   3
  32  56  97  23
  99  81  12  82
Final matrix:
  21  81   1  69
  25  78  97   3
  33  57  97  24
  99  81  12  82