20.11.2013, 17:21 | #1 (permalink) |
Новичок
Регистрация: 20.11.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачи на массивы и функции
|
20.11.2013, 17:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
С уверенностью могу сказать, что данные темы будут очень полезны Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии Задачи на двумерные и одномерные массивы |
27.11.2013, 10:01 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const X:Array[1..3,1..3] of Real=((0.2,3,4),(0.1,0.2,3.4),(7,8,9)); Y:Array[1..4,1..4] of Real=((1,3,4,7),(8,9,-4,0),(2,3,7,8),(1,3,4,-3)); RX=0.5; RY=2.5; Type Arr=Array[1..4,1..4] of Real; Var i,j,NumX,NumY:Byte; X1:Arr; A:Boolean; Function Num(Z:Arr;N:byte;R:Real):Byte; var p,q,M:Byte; begin M:=0; for p:=1 to N do for q:=1 to N do if Z[p,q]<R then Inc(M); Num:=M; end; Begin for i:=1 to 3 do for j:=1 to 3 do X1[i,j]:=X[i,j]; NumX:=Num(X1,3,RX); NumY:=Num(Y,4,RY); A:=(NumX>=NumY); Writeln(A); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|