07.12.2011, 21:19 | #1 (permalink) | |
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, две задачки по Pascal
Запутался канкретно : помогите я написал что то вроде этого но не работает чето Цитата:
Помогите пожалуйста .... времени просто нету разобраться ... сдавать завтра !!! |
|
07.12.2011, 21:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Информативные темы, похожие на вашу Ребят помогите решить две задачки Помогите решить задачки Задачки на Pascal Pascal, две задачки, нужна помощь |
08.12.2011, 10:13 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Исправил. Там во-первых, неправильно сформулировано логическое условие (требуется исключить самосовпадения), а во-вторых, выведено не то, что требуется. Кроме того, убрал "слепой" ввод массива - ну ведь так это неудобно! Неужто трудно добавить подсказку? Ввел. Код:
uses crt; var a:array[1..3,1..15] of integer; i,j,i1,j1:integer; begin clrscr; writeln('Введите эл-ты массива'); for i:=1 to 3 do for j:=1 to 15 do begin write('a[',i:1,',',j:2,']= '); readln(a[i,j]); end; for i1:=1 to 3 do for j1:=1 to 15 do begin for i:=1 to 3 do for j:=1 to 15 do if (a[i1,j1]=a[i,j]) and Not((i=i1) and (j=j1)) then begin writeln('Эти числа: a[',i:1,',',j:2,']=a[',i1:1,',',j1:2,']=',a[i,j]); readln; exit; end; end; end. |
|
08.12.2011, 10:33 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Составьте программу циклической перестановки столбцов двумерного массива, при которой 1-ый столбец становится 2-м, i-й - i+1-м, а последний столбец становится первым. Код:
uses crt; Const M=3; N=7; var a:array[1..M,1..N] of integer; i,j,d:integer; begin clrscr; writeln('Введите эл-ты массива'); for i:=1 to M do for j:=1 to N do begin write('a[',i:1,',',j:2,']= '); readln(a[i,j]); end; clrscr; for i:=1 to M do begin for j:=1 to N do write(a[i,j]:4); writeln; end; writeln; for i:=1 to M do begin d:=a[i,N]; for j:=N-1 downto 1 do a[i,j+1]:=a[i,j]; a[i,1]:=d; end; for i:=1 to M do begin for j:=1 to N do write(a[i,j]:4); writeln; end; readln; end. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|