PascalABC

[Юся=)]

Написать программу решения следующей задачи: Определить сумму объёмов и сумму поверхностей трёх прямоугольных параллелепипедов, если известны их измерения. Использовать подпрограмму-функцию.

[ByAlex]

Сообщение от Юся=)

Написать программу решения следующей задачи: Определить сумму объёмов и сумму поверхностей трёх прямоугольных параллелепипедов, если известны их измерения. Использовать подпрограмму-функцию.

Привет! Сейчас попробуем.

[Юся=)]

привет, попробуй))

[ByAlex]

Сообщение от Юся=)

привет, попробуй))

По-моему так, проверь!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  SumV,SumS,i:integer;
  a,b,c:array[1..3] of integer;
begin
  for i := 1 to 3 do
  begin
    writeln('Vvedite parametry ', i,' parallelepipeda:');
    write('a = ');
    readln(a[i]);
    write('b = ');
    readln(b[i]);
    write('c = ');
    readln(c[i]);
  end;
  writeln;
  SumV:=0;
  SumS:=0;
  for i := 1 to 3 do
  begin
    SumV:=SumV+a[i]*b[i]*c[i];
    SumS:=SumS+(2*(a[i]*b[i]+b[i]*c[i]+a[i]*c[i]));
  end;
  write('Summa V = ', SumV,' Summa S = ',SumS);
  readln;
end.

[Mad_Cat]

ByAlex, а где

Использовать подпрограмму-функцию.

[ByAlex]

Сообщение от Mad_Cat

ByAlex, а где

Черт, забыл!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i:integer;
  a,b,c:array[1..3] of integer;
function Schet():boolean;
var
  SumV,SumS:integer;
begin
  writeln;
  SumV:=0;
  SumS:=0;
  for i := 1 to 3 do
  begin
    SumV:=SumV+a[i]*b[i]*c[i];
    SumS:=SumS+(2*(a[i]*b[i]+b[i]*c[i]+a[i]*c[i]));
  end;
  write('Summa V = ', SumV,' Summa S = ',SumS);
end;
begin
  for i := 1 to 3 do
  begin
    writeln('Vvedite parametry ', i,' parallelepipeda:');
    write('a = ');
    readln(a[i]);
    write('b = ');
    readln(b[i]);
    write('c = ');
    readln(c[i]);
  end;
  Schet();
  readln;
end.

[Юся=)]

еслиб я знала, что это такое)))

[Юся=)]

а почему у меня не проходит??? может я чё не так делаю=D

[ByAlex]

Сообщение от Юся=)

а почему у меня не проходит??? может я чё не так делаю=D

Пробуй так для паскаля -

var
  i:integer;
  a,b,c:array[1..3] of integer;
function Schet:boolean;
var
  SumV,SumS:integer;
begin
  writeln;
  SumV:=0;
  SumS:=0;
  for i := 1 to 3 do
  begin
    SumV:=SumV+a[i]*b[i]*c[i];
    SumS:=SumS+(2*(a[i]*b[i]+b[i]*c[i]+a[i]*c[i]));
  end;
  write('Summa V = ', SumV,' Summa S = ',SumS);
end;
begin
  for i := 1 to 3 do
  begin
    writeln('Vvedite parametry ', i,' parallelepipeda:');
    write('a = ');
    readln(a[i]);
    write('b = ');
    readln(b[i]);
    write('c = ');
    readln(c[i]);
  end;
  Schet;
  readln;
end.