|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
21.12.2010, 18:29 | #1 (permalink) |
Новичок
Регистрация: 21.12.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа на Турбо-Паскале
|
21.12.2010, 18:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Внимательно прочитайте содержимое этих тем График на Турбо-Паскале Задача в турбо паскале Помогите создать программу на турбо Паскале Программа на паскале |
22.12.2010, 12:15 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
CONST N=20; VAR X:ARRAY[1..N] of BYTE; A:ARRAY[1..N,1..N] of BYTE; Alpha,Beta:Word; i,j:Integer; BEGIN Randomize; For i:=1 to N do X[i]:=Random(100); WriteLn; For i:=1 to N do Write(X[i]:3); WriteLn; Write('Alpha (<',N,')= '); ReadLn(Alpha); WriteLn; Beta:=N div Alpha; For i:=1 to Beta do begin for j:=1 to Alpha do begin A[i,j]:=X[(i-1)*Alpha+j]; Write(A[i,j]:3); end; Writeln; end; If Alpha*Beta<N then begin For j:=1 to N-Alpha*Beta do begin A[Beta+1,j]:=X[Alpha*Beta+j]; Write(A[Beta+1,j]:3); end; For j:=N-Alpha*Beta+1 to Alpha do begin A[Beta+1,j]:=0; Write(A[Beta+1,j]:3); end; WriteLn; end; ReadLn; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|