Восопользуся Algo на паскале или Delghi 6.0
<span>Когда человек слышит слова «модель» и «моделирование», перед его мысленным взором обычно пробегают картинки из его детства: уменьшенные копии автомобилей и самолетов, глобус, манекен, макеты зданий... Эти и многие другие вещи часто отражают какие-то общие свойства или функции настоящих предметов или объектов, только в более упрощенном виде. Используя такие модели, можно проще объяснить особенности оригинала. Информационная модель, примеры которой наглядно и понятно объясняют многие сложные для понимания процессы, также подчиняется основным требованиям моделирования. Цели Вышесказанное может привести нас к такому выводу: модели, являясь подобием реальных предметов или процессов, не должны отображать все свойства оригиналов, а только те характеристики, которые в определенной ситуации более востребованы для их применения. Нет необходимости отображать все многообразие свойств объекта — это может привести к усложнению модели и неудобству ее использования. Поэтому очень важно понимать, с какой целью была создана модель, какие ее параметры должны быть отражены в данном конкретном случае. При моделировании необходимо строго придерживаться такой логической цепочки: «объект — цель — модель»</span>
int sum(int a, int b, int c, int d)
Через while:
var
s, x, i: integer;
sr: real;
begin
s:=0; i:=0;
while i < 10 do
begin
readln(x);
s := s + x;
inc(i);
end;
sr := s / i;
writeln(sr);
end.
Через repeat:
var
s, x, i: integer;
sr: real;
begin
s:=0; i:=0;
repeat
readln(x);
s := s + x;
inc(i);
until i = 10;
sr := s / i;
writeln(sr);
end.
Через For:
var
s, x, i: integer;
sr: real;
begin
s:=0;
for i:=1 to 10 do
begin
readln(x);
s := s + x;
end;
sr := s / i;
writeln(sr);
end.
