Массив

julija · 18.05.2011, 15:20

Пожалуйста, помогите закончить решение задачи

Задача:

Написать программу для созданя и печати массива следующего вида:

80000000
78000000
67800000
56780000
45678000
34567800
23456780
12345678

Решение:

program n1;
type dvm: array [1..8;1..8] of integer;
var i;j integer
for i: 1 to 8 do begin;
for j: 1 to 8 do begin;
If i<j then a[i;j]=0 else a[i;j]:= ........как дальше???;(

Vladimir_S · 18.05.2011, 16:07

Цитата:

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

Пожалуйста, помогите закончить решение задачи

Знаете... тут не про "закончить" речь. Тут даже и не начато. Пять строчек всего - а в каждой по несколько ошибок. Потому прежде всего разберем Ваш код:

type dvm: array [1..8,1..8] of integer;
var i,j: integer;
a:dvm;
begin
for i:=1 to 8 do begin {; - лишний!}
for j:=1 to 8 do begin {; - лишний!}
If i<j then a[i,j]:=0 else a[i,j]:=

Ну а теперь посмотрите, как выглядит рабочая программа. Как говорится, "почувствуйте разницу":

Код:

program n1;
var
 i,j:integer;
 a:array [1..8,1..8] of integer;
begin
 for i:=1 to 8 do
  begin
   for j:=1 to 8 do
    begin
     if j>i then a[i,j]:=0 else a[i,j]:=8-i+j;
     write(a[i,j]:3);
    end;
   writeln;
  end;
 readln
end.

18.05.2011, 15:20	#1 (permalink)
julija Новичок Регистрация: 07.01.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Массив Пожалуйста, помогите закончить решение задачи Задача: Написать программу для созданя и печати массива следующего вида: 80000000 78000000 67800000 56780000 45678000 34567800 23456780 12345678 Решение: program n1; type dvm: array [1..8;1..8] of integer; var i;j integer for i: 1 to 8 do begin; for j: 1 to 8 do begin; If i<j then a[i;j]=0 else a[i;j]:= ........как дальше???;(

18.05.2011, 15:20
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Не отчаивайтесь если ответа нет, возможно эта тема уже обсуждалась ранее Массив и матрица Массив в VBA Массив в с++

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070