Помогите, пожалуйста, решить задачу на двумерный массив. (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 Предупреждаю первый и последний раз - клонирование сообщений на форуме ЗАПРЕЩЕНО. Дубликат, размещенный в старой теме, удален. Модератор. |
if i=j then a[i,j]:=t else a[i,j]:=m
Ну надеюсь с масивами вы знакомы. Вот сама соль. |
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. |
или так
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. |
или еще меньше:
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. |
Последний (#5) вариант не годится: противоречит условию задачи. Там требуется всё-таки сформировать массив с, а не только вывести на экран. А в этой программе он как бы и вовсе выпал.
|
Спасибо большое!
|
Цитата:
|
Часовой пояс GMT +4, время: 10:48. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.