VPF::Help plz! помогите написать программу! очень нужно

Leksy

Дата 19.11.2005, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 19.11.2005

Репутация: нет
Всего: нет

люди, я вас умоляю, помогите мне, пожалуйста! не могли бы вы помочь написат мне программу?
1 задание:
рaзработaть прогрaмму, которaя в двойном мaсиве зaполняет укaзaные элементы знaчениями 1,2,3,4,5...по вертикaли.
Я прилагаю рисунок..в закрашенных клеточках должны быть цыфры!
Заранее огроьмное спасибо!

Присоединённый файл ( Кол-во скачиваний: 16 )

1masiv.jpg.jpg 52,96 Kb

Rick

Дата 19.11.2005, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: нет
Всего: 3

Код


uses crt;
var a:array [1..10,1..10] of Integer;
    i,j,verx,niz,r:Integer;
begin
niz:=4; verx:=4;
r:=1;
for i:=3 to 9 do begin
 for j:=1 to 10 do begin
  if (j>=verx) and (j<=niz) then begin
  a[j,i]:=r;
  r:=r+1;
  end;
 end;
if verx<>1 then verx:=verx-1;
if niz<>10 then niz:=niz+1;
end;

{вывод на экран}
for i:=1 to 10 do begin
 for j:=1 to 10 do begin
 write(a[i,j],' ');
 end;
 writeln;
end;

readln;
end.

--------------------

Не бывает атеистов в окопах под огнем

Leksy

Дата 19.11.2005, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 19.11.2005

Репутация: нет
Всего: нет

Огромное спасибо! а не трудно ли будет помочь с этим?
рaзрaботaть прогрaмму, которaя зaполняет мaссив укaзaными знaчениями! в прогрaмме нельзя использовaть оперaторa зaполнения мaсивa, который не нaходится в цикле.

Присоединённый файл ( Кол-во скачиваний: 9 )

2masiv.jpg 47,79 Kb

Rick

Дата 20.11.2005, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: нет
Всего: 3

немного уменьшенная первая задача:

Код


uses crt;
var a:array [1..10,1..10] of Integer;
    i,j,verx,niz,r:Integer;
begin
niz:=4; verx:=4;
r:=1;
for i:=3 to 9 do begin
 for j:=verx to niz do begin
 a[j,i]:=r;
 r:=r+1;
 end;
if verx<>1 then verx:=verx-1;
niz:=niz+1;
end;
{вывод на экран}
for i:=1 to 10 do begin
 for j:=1 to 10 do begin
 write(a[i,j],' ');
 end;
 writeln;
end;
readln;
end.

вторая:

Код


uses crt;
var a:array [1..10,1..10] of Integer;
    i,j,verx,r:Integer;
begin
verx:=4;
r:=1;
for i:=2 to 7 do begin
 if i mod 2=0 then begin
 for j:=verx to 9 do begin
 a[j,i]:=r;
 r:=r+1;
 end;
 end
 else begin
 for j:=9 downto verx do begin
 a[j,i]:=r;
 r:=r+1;
 end;
 end;
if verx<>1 then verx:=verx+1;
end;
{вывод на экран}
for i:=1 to 10 do begin
 for j:=1 to 10 do begin
 write(a[i,j],' ');
 end;
 writeln;
end;
readln;
end.

--------------------

Не бывает атеистов в окопах под огнем

Leksy

Дата 20.11.2005, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 19.11.2005

Репутация: нет
Всего: нет

Spasibo tebe ogromnoe! dazhe i ne znaju kak tebja blagodaritj!:O) Genij! net slov!:O)

Rick

Дата 20.11.2005, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: нет
Всего: 3

всегда пожалста smile

--------------------

Не бывает атеистов в окопах под огнем

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »