Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Суммирования значений элементов

Автор: diana_girl 25.5.2007, 15:43

Составить и отладить в среде Turbo Pascal программу решения задачи ввода значений и суммирования значений элементов двумерного массива произвольных вещественных чисел, состоящего из «2» строк и «3» столбцов, значения которых вводятся с клавиатуры. Результат вывести на экран монитора в форме с фиксированной точкой.

Автор: Guedda 25.5.2007, 16:07

Код


program Etta;

uses
  Crt;

var
  a : array[0..1, 0..2] of Real;
  i,j : Integer;
  Sum : Real;

begin
  ClrScr;

  {Вводим значения в матрицу}
  for i := 0 to 1 do
    for j := 0 to 2 do begin
      Writeln('Vvedite element massiva: ');
      Read(a[i,j]);
    end;

  {Считаем сумму и выводим её на экран}
  for i := 0 to 1 do 
    for j := 0 to 2 do
      Sum := Sum + a[i,j];
  Writeln(Sum);
  Readln;
end.

Автор: Klin 25.5.2007, 17:58

Цитата(diana_girl @ 25.5.2007, 16:43

)

Результат вывести на экран монитора в форме с фиксированной точкой.

Так?

Код


 . . . . . . . .
      Sum := Sum + a[i,j];
  Writeln(Sum:0:2);
  Readln;
end.

Автор: Guedda 26.5.2007, 09:17

Цитата(Klin @ 25.5.2007, 18:58

)

Так?код Pascal/Delphi1:2:3:4:5: . . . . . . . . Sum := Sum + a[i,j]; Writeln(Sum:0:2); Readln;end.

Ага ;) Не дочитал задания smile