В квадратной комнате шириной A и высотой B есть окно и дверь с размерами C на D и M на N соответственно. Вычислите площадь стен для оклеивания их обоями. Запишите данную программу как бы она выглядела в КУМИРЕ (сохраняя проядок и правильность команд), по предложенной блок – схеме.
Например, Visual Basic Б-же, какая же это дичь. +: 1.Можно рисовать мышкой элементы в формах. (комментарий автора-но это есть в Delphi) 2. Можно вообще не объявлять переменные. (комментарий автора-пиши на VB, пиши "читаемый" код) 3. Простой синтакисис в начале. На этом плюсы закончились. -: 1. Ужасный синтакисис при углублении заставит Вас постоянно заглядывать в всевозможные справки. (комментарий автора-Вы же всегда хотели напоминать чёрнокнижника из какой-нибудь второсортной RPG) 2. Поддерживает только Windows и Mac OS X. (комментарий автора- линуксоиды возрадовались) 3. Нет полноценного наследования. (комментарий автора-это сделает ваш код ещё менее лаконичным) 4. Нет указателей. (комментарий автора-смотреть пункт 3) Это очень коротко, я знаю.
procedure MatrA(var a: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do begin writeln('a[', i, ',', j, ']: '); readln(a[i, j]) end end;
procedure MatrB(var b: mass); var i, j: integer; begin for i := 1 to n1 do for j := 1 to m1 do begin writeln('b[', i, ',', j, ']: '); readln(b[i, j]) end end;
procedure Sum(a, b: mass; var c: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do c[i, j] := a[i, j] + b[i, j]; end;
begin writeln('Введите n,m матрицы A'); readln(n, m); MatrA(a); writeln('Введите n,m матрицы B'); readln(n1, m1); MatrB(b); if (n1 <> n) and (m1 <> m) then writeln('Матрицы сложить нельзя') else begin Sum(a, b, c); writeln('A+B'); for i := 1 to n do begin for j := 1 to m do write(c[i, j]:1:3, ' '); writeln end end; readln; end.
Б-же, какая же это дичь.
+:
1.Можно рисовать мышкой элементы в формах. (комментарий автора-но это есть в Delphi)
2. Можно вообще не объявлять переменные. (комментарий автора-пиши на VB, пиши "читаемый" код)
3. Простой синтакисис в начале.
На этом плюсы закончились.
-:
1. Ужасный синтакисис при углублении заставит Вас постоянно заглядывать в всевозможные справки. (комментарий автора-Вы же всегда хотели напоминать чёрнокнижника из какой-нибудь второсортной RPG)
2. Поддерживает только Windows и Mac OS X. (комментарий автора- линуксоиды возрадовались)
3. Нет полноценного наследования. (комментарий автора-это сделает ваш код ещё менее лаконичным)
4. Нет указателей. (комментарий автора-смотреть пункт 3)
Это очень коротко, я знаю.