5 Тапсырма
n бүтін саны және (a,b) қабырғалары арқылы n тіктөртбұрыштар жиыны берілген. Осы тіктөртбұрыштардың ең үлкен периметрін табу керек.
program MinMax3;
var
P,a,b,Max:Real;
i,N:Integer;
begin
Write('N:');
Readln(N);
for i:=1 to N do
begin
Write('a b:');
Readln(a,b);
P:=2*(a+b);
if i=1 then Max:=P;
if P<Max then Max:=P;
end;
Writeln(Max);
end.
6 Тапсырма
10.19 n бүтін саны және n элементтен тұратын жиын берілген. Осы жиындағы минимум элементтер санын анықтау керек.
begin
Write('N:');
Readln(N);
for i:=1 to N do
begin
Write(i,' элемент:');
Readln(Ni);
if i=1 then
begin
Min:=Ni;
RezNum:=0;
end;
if Ni<Min then
begin
Min:=Ni;
RezNum:=0;
end;
if Ni=Min then inc(RezNum);
end;
Writeln(RezNum);
end.
2.4 Бір өлшемді массивке арналған есептер
Паскаль тілінде жеке — дара мәліметтермен қатар, қандай да бір жүйеде жиналыстырылған олардың топтары да қарастыруға болады. Осындай топтардың бірі – құрылымдық типі ARRAY (массив) мәліметтері.Массив дегеніміз – бір типті шамалардың реттелген белгілі бір тобы. Массивке кіретін айнымалыларды массивтің элементтері дейді, олардың саны сипаттама бөлімінде жарияланып анықталады да, программаның орындалу барысында өзгермейді. Массив элементтерінің типі файлдан басқа кез келген (бүтін, нақты, символдық, жолдық, массивтік т.б.) типі бола алады.Массив тұтасымен бір атпен аталады, ал элементтерінің реті индекс арқылы көрсетіледі. Индекс массивтің идентификаторынан соң тік жақшаға алынып жазылады, мысалға: a[1], a[2], a[3], … ,a[i], …, a[n]. Массивтің типін анықтау үшін Array …of (…тұратын массив) қызметші сөздері қолданылады. Массив алдын ала типтерді сипаттайтын Type тарауында жарияланады немесе айнымалыларVar тарауында аталады.Жазылуының жалпы түрі: Type <массив аты >=array[<индекстер типі>]: of<элементтер типі>; var <айнымалылар>: <типтің аты>; мұндағы: индекстер типі – 1-индекс, 2-индекс, … элементтер типі – массивті құрайтын негізгі элементтердің типі. Немесе массив айнымалылар тарауында анықталуы: Var <массив аты >: array[<индекстер типі>]: of<элементтердің типі>;
7 Тапсырма
11.12 n (n – жұп сан) өлшемді а массиві берілген. Оның жұп нөмірлі элементтерін индекстерінің өсу реті бойынша шығару керек: a2, a4, a6,… Тармақталу операторы қолданылмасын
program Array12;
var
a:array[1..10] of integer;
N,i:Integer;
begin
Write('N:');
Readln(N);
for i:=1 to N do
begin
write(i,' :');
readln(a[i]);
end;
i:=2;
While (i<=N) do
begin
writeln(i,' : ',a[i]);
i:=i+2;
end;
end.
8 Тапсырма
11.27 Нөлдік емес бүтін n элементтен тұратын массив берілген. Ондағы оң сандар мен теріс сандардың ауысып отыратынын тексеру керек. Егер ауысып отырса – 0 саны, ауыспаса – осы заңдылықты бұзған бірінші элементтің нөмірі шығарылсын
program Array27;
var
a:array[1..10] of integer;
N,i:Integer;
temp:boolean;
begin
Write('N: ');
Readln(N);
for i:=1 to N do
begin
write(i,' :');
readln(a[i]);
end;
Temp:=(a[1]>0);
i:=2;
while (i<=N) and (temp <> (a[i]>0)) do
begin
temp:= (a[i]>0);
inc(i);
end;
if i=N+1 then Writeln('0')
else Writeln(i);
end.
