2.4 Бір өлшемді массивке арналған есептер
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.
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.
2.5 Екі өлшемді массивке арналған есептер
12.12.
program Matrix12;
var
a:array [1..10,1..10] of integer;
M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for i:=1 to M do
begin
for j:=1 to N do
if j mod 2 <> 0 then Write(' : ',a[i,j])
else Write(' : ',a[M-i+1,j]);
writeln(' : ');
end;
end.
12.33 mn өлшемді матрица берілген. Матрицадағы оның арифметикалық орта мәніне ең жақын элементтің индекстерін анықтау керек
program Matrix33;
var
a:array [1..10,1..10] of integer;
column, Num, M, N, i, j, RezN,RezM:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
column:=0;
for j:=1 to N do
begin
Num:=0;
for i:=1 to M do
if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j]));
if Num=0 then column:=j;
end;
Writeln(column);
end.
2.6 Жолдық қатарға арналған есептер Пайдаланған әдебиеттер
Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие.-М.: Нолидж, 2001.
2. Абрамов С.А., Гнездилова Г.Г., Капустина Е.И., Селюн М.И. Задачи по программированию. - М.: Наука, 1988.
3. Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0.- Киев: ВЕК+, 2000.
4. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер,2001.
Қосымша әдебиет
1. Муртазина А.У., Тусупова Б.Б. Разработка и анализ алгоритмов и программ. Методические указания к курсовой работе по курсу “Языки и технология программирования”. - Алматы: КазНТУ, 2001.
2. Муртазина А.У., Тусупова Б.Б. Разработка и анализ алгоритмов и программ. Методические указания к курсовой работе по курсу “Языки и технология программирования”. - Алматы: КазНТУ, 2001.
3. Белецкий Я. Турбо-Паскаль с графикой для персональных компьютеров. –М .: Машиностроение, 1991.
4. Культин Н.Б. Turbo Pascal в задачах и примерах. – СПб.: БХВ-Петербург, 2003
5. Юркин А.Г. Задачник по программированию. – СПб.: Питер, 2002
6. Немнюгин С.А. Turbo Pascal: практикум. – СПб.: Питер, 2000
7. Гуденко Д., Петроченко Д. Сборник задач по программированию. – СПб.: Питер, 2003
8. Климова Л.М. PASCAL 7.0. Практическое программирование. Решение типовых задач. – М.: КУДИЦ-ОБРАЗ, 2000.
9. Мұртазина Ә.Ө. Турбо Паскаль тілінің құралдарын қолданып есептерді программалау. Алгоритмдік тілде программалау мен Алгоритмдеу және программалау технологиясы пәндері бойынша практикалық сабақтарға арналған әдістемелік нұсқауы. Алматы, ҚазҰТУ, 2004.