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

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

Форум программистов > Центр помощи > [Delphi] Двумерные массивы.

Автор: AlexArs 26.10.2006, 09:44

Помогите решить задачу по делфи!!!

Составить и отладить программу решения следующей задачи на тему «Двумерные массивы»:
Задан целочисленный двумерный массив размера 3х4. Вывести на экран массив в виде матрицы, состоящей из трех строк и четырех столбцов, и выполнить задание:

Найти сумму элементов первой и третьей строк матрицы.

Прикрепите пожалуйста исходник!! Буду очень благодарен!!

Автор: Guedda 26.10.2006, 10:42

Код


program Slojenie;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  Massive : array[0..2, 0..3] of Integer; //это, собственно, массив
  i,j : Integer;
  Sum : Integer;

procedure Zapolnenie;
begin
  for i := 0 to 2 do
    for j := 0 to 3 do begin
      Writeln('Введите элемент матрицы, находящийся в ячейке [' + IntToStr(i + 1) + '][' + IntToStr(j + 1) + ']');
      Read(Massive[i,j]);
    end;
end;

begin
  Zapolnenie;
  Writeln;
  Writeln('Вывод матрицы');
  for j := 0 to 3 do begin
    for i := 0 to 2 do begin
      Write(IntToStr(Massive[i,j]));
    end;
    Writeln;
  end;
  Writeln;
  for i := 0 to 2 do
    Sum := Sum + Massive[i,0] + Massive[i,2];
  Writeln('Сумма первой и третьей строки равно: ');
  Writeln(IntToStr(sum));
  Readln;
end.

Автор: AlexArs 26.10.2006, 11:47

Требовония к задаче:
1. Язык Delphi.
2. Графическая оболочка.

Guedda
Прога непашет!

Автор: Palladin 26.10.2006, 22:30

Прогу Гуедда не тестил, поэтому написал свою smile

Код


program Slojenie;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  a: array[0..2, 0..3] of Integer;
  i,j : Integer;
  S,s1,s2: Integer;

begin
for i:=0 to 2 do
for j:=0 to 3 do
begin
Writeln('A[',i,j,']= ');
Readln(a[i,j]);
end;
i:=0; s1:=0; s2:=0; s:=0;

for j:=0 to 3 do
s1:=s1+a[i,j];

i:=2;

for j:=0 to 3 do
s2:=s2+a[i,j];

for j := 0 to 3 do begin
for i := 0 to 2 do begin
Write(a[i,j]);
end;
Writeln;
end;

Write('Summa pervoe stroki ravna: ',s1);
Write('Summa vtoroy stroki ravna: ',s2);
s:=s1+s2;
write('Summa 1-oy i 3-ey stroki ravna: ',s);
Readln;
end.

Автор: AlexArs 26.10.2006, 23:31

RooR,
мне в графическом приложении надо а не в консольном , но все равно спасибо!!

Автор: Kuvaldis 27.10.2006, 00:30

AlexArs,
Например, так

Автор: AlexArs 27.10.2006, 07:29

Kuvaldis
большое спасибо!!!
все пашет!!!

Автор: Guedda 27.10.2006, 08:22

Цитата(AlexArs @ 26.10.2006, 12:47

)

1. Язык Delphi.

Delphi = это не язык, а среда разработке. А язык называется Object Pascal, на котором Дельфя основана smile

А программа моя работает... А про интерфейс ты ничего и не говорил... Поэтому я и сделал консольное приложение. Извиняюсь smile

Автор: AlexArs 28.10.2006, 14:09

Guedda,
Извини но прога точно не работала у меня , не компилировалась!

Автор: Ripper 28.10.2006, 21:46

Guedda, говорили вроде что начиная с какой то (вроде с 7) версии это уже как бы язык...хм...
хотя слухи

Автор: DarlkElfTen 28.10.2006, 21:59

дык по моему это пазор не напсиать такого простого алгоритма....
антиреспект..хотя..
а тее зачем нада было?

ЗЫ:

Цитата

это не язык, а среда разработке. А язык называется Object Pascal, на котором Дельфя основана

апсалютно точно..так бесит когда умники говорят на вопорс: "на каком яязыке пишешь?" - "Дэлфи"..надуф грудь..)

Автор: Alexeis 28.10.2006, 22:37

Модератор: Прекращаем оффтоп. Обсуждайте сам язык в другой теме (тем таких немало уже). Ближе к теме, пожалуйста.

Автор: AlexArs 29.10.2006, 03:10

DarlkElfTen,
Прога в универ нужна была, эта единственная которую я не сделал, с массивами напряг, не нашел толковой литературы!!!

Тему можно закрывать!!!

Автор: Alexeis 29.10.2006, 13:50

Цитата(AlexArs @ 29.10.2006, 03:10

)

Тему можно закрывать!!!

Для этого нужно ее пометить решеной ("Пометить как решённый")