Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите, пожалуйста, решить задачу на двумерный массив. (Pascal) (http://www.tehnari.ru/f41/t36098/)

Yara24 16.05.2010 18:18

Помогите, пожалуйста, решить задачу на двумерный массив. (Pascal)
 
Помогите пожалуйста решить задачу на двумерный массив.
Дано: var c:array[1..5,1..5] of char
Заполнить массив следующим образом:
t m m m m
m t m m m
m m t m m
m m m t m
m m m m t

Предупреждаю первый и последний раз - клонирование сообщений на форуме ЗАПРЕЩЕНО. Дубликат, размещенный в старой теме, удален.
Модератор.

ww01031977 16.05.2010 18:58

if i=j then a[i,j]:=t else a[i,j]:=m
Ну надеюсь с масивами вы знакомы. Вот сама соль.

ww01031977 16.05.2010 19:19

program masiv;
uses crt;
var с:array[1..5,1..5] of char;
i,j:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 5 do
if i=j then с[i,j]:='t' else с[i,j]:='m';
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(с[i,j]:2);
end;
writeln;
end;
end.

ww01031977 16.05.2010 19:25

или так
program masiv;
uses crt;
var с:array[1..5,1..5] of char;
i,j:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if i=j then с[i,j]:='t' else с[i,j]:='m';
write(с[i,j]:2);
end;
writeln;
end;
end.

ww01031977 16.05.2010 19:35

или еще меньше:
program masiv;
uses crt;
var c:array[1..5,1..5] of char;
i,j:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if i=j then write('t ') else write('m ');
end;
writeln;
end;
end.

Vladimir_S 16.05.2010 20:17

Последний (#5) вариант не годится: противоречит условию задачи. Там требуется всё-таки сформировать массив с, а не только вывести на экран. А в этой программе он как бы и вовсе выпал.

Yara24 16.05.2010 20:50

Спасибо большое!

ww01031977 16.05.2010 21:16

Цитата:

Сообщение от Vladimir_S (Сообщение 335285)
Последний (#5) вариант не годится: противоречит условию задачи. Там требуется всё-таки сформировать массив с, а не только вывести на экран. А в этой программе он как бы и вовсе выпал.

согласен, но дошло, только когда уже прога была на форуме..


Часовой пояс GMT +4, время: 10:48.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.