Uses GraphABC;
Begin
SetWindowSize(600, 400);
SetPenWidth(3);
SetBrushColor(clYellow);
Rectangle(40,160,280,380);
SetBrushColor(clSkyBlue);
Rectangle(80,200,240,300);
Line(80,240,240,240);
Line(160,240,160,300);
SetBrushColor(clGreen);
Rectangle(280,320,380,380);
Rectangle(380,340,460,380);
Line(40,160,160,20);
Line(160,20,280,160);
FloodFill(160,80,clMaroon);
SetBrushColor(clBlue);
Circle(160,100,30);
Line(130,100,190,100);
Line(160,70,160,130);
End.
Результат выполнения на рисунке.
Проделил два раза все верно получилось! 11000000
Математическая модель (а также программа; зависит от того, что понимать под этапом формализации).
В учебнике выделяют такие этапы решения задачи на компьютере:
- Исходные данные (результат - словесная информационная модель)
- Формализация (математическая модель)
- Алгоритмизация (алгоритм)
- Программирование (программа)
- Отладка, тестирование (уточнение модели)
- Выполнение расчетов (получение результатов)
Нормальные люди понимают, что после формализации информация должна быть представлена на формальном языке, таких языком может быть как математический, так и язык программирования.
Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).
type matrix = array [1..8] of integer;var F, output: text; i, n, cc, sum: integer; c: char; x: matrix; ma: real;
procedure convert (var c: char; var cc: integer);begin if c='1' then cc:=1; if c='2' then cc:=2; if c='3' then cc:=3; if c='4' then cc:=4; if c='5' then cc:=5; if c='6' then cc:=6; if c='7' then cc:=7; if c='8' then cc:=8; if c='9' then cc:=9; if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin for n:=1 to 7 do begin if x[n]>x[n+1] then swap(x[n],x[n+1]); end;end;
begin Assign(F, '1.txt'); Reset(F); for i:=1 to 8 do begin read(F, c); convert(c,cc); x[i]:=cc; end; Close(F);
sorting(n,x); sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8]; ma:=sum/8; Assign(output, 'output.txt'); rewrite(output); writeln(output, sum); writeln(output, ma); Close(output);end.