Страница 1 из 1
10 задач, массивы и арифметика
Добавлено: 13 мар 2009, 22:55
fi4a
Паскаль. Массивы. Алгебраические функции.
Не могу создать отдельную тему.
Просьба решить 10 задач по Паскалю: первые 3 - функции, остальные -массивы. Задачи в файле ворда, нельзя прикрепить, но там формулы, а их тоже выкинуть нельзя. Вот ссылка: dump.ru/file/2059161.
4) Найти сумму положительных элементов массива АС, содержащего N элементов, N меньше или равно 20
5) Определить наименьший элемент массива ВР и поменять его с последним элементом, кол-во элементов меньше или равно 20
10) Найти по каждому столбцу матрицы GJ (m, m) минимальный элемент и поменять его местами с элементом главной диагонали соответствующего столбца. m=5, n=6
Re: 10 задач, массивы и арифметика
Добавлено: 13 мар 2009, 23:01
Naeel Maqsudov
Запакуйте документ в ZIP и прикрепите.
Re: 10 задач, массивы и арифметика
Добавлено: 13 мар 2009, 23:08
fi4a
у меня внизу написано, что я не могу прикреплять файлы: права не позволяют.
Re: 10 задач, массивы и арифметика
Добавлено: 13 мар 2009, 23:26
Naeel Maqsudov
В расширенном режиме в зависимости от типа редактора установленного в профиле будет либо скрепка, либо кнопка "Управление вложениями"
Re: 10 задач, массивы и арифметика
Добавлено: 14 мар 2009, 14:15
dr.Jekill
4 задача:
Код: Выделить всё
sum:=0;
repeat
clrscr;
write('Zadaite kol-vo elementov: ');
readln(n);
until n<=20;
for i:=1 to n do
begin
write('Vvedite element ',i,' : ');
readln(AC[i]);
if AC[i]>0 then sum:=sum+AC[i];
end;
Re: 10 задач, массивы и арифметика
Добавлено: 14 мар 2009, 14:31
dr.Jekill
5 задача:
Код: Выделить всё
uses crt;
var i,j,n,min:integer;
BP:array[1..20] of integer;
vyb:char;
begin
repeat
clrscr;
write('Zadaite kol-vo elementov: ');
readln(n);
until n<=20;
write('Vvedite element 1 : ');
readln(BP[1]);
min:=BP[1];
for i:=2 to n do
begin
write('Vvedite element ',i,' : ');
readln(BP[i]);
if BP[i]<min then
begin
min:=BP[i];
j:=i;
end;
end;
clrscr;
writeln('Poslednii element: ',BP[n]);
writeln('Minimalnyi element: ',min);
writeln;
write('Proizvesti zamenu? [y/n] ');
readln(vyb);
if (vyb='y') or (vyb='Y') then
begin
BP[j]:=BP[n];
BP[n]:=min;
writeln('Zamena proizvedena!');
end;
readln;
end.
Re: 10 задач, массивы и арифметика
Добавлено: 14 мар 2009, 15:14
dr.Jekill
10 задача:
Можете добавить отзыв.
Код: Выделить всё
uses crt;
var GJ:array[1..5,1..6] of integer;
m,n,min,buf,nom:integer;
begin
for m:=1 to 5 do
begin
clrscr;
writeln('Stroka ',m);
n:=0;
repeat
n:=n+1;
write('Vedite element ',n,' : ');
readln(GJ[m,n]);
until n=6;
end;
clrscr;
writeln('Ishodnaia matrica:');
for m:=1 to 5 do
begin
writeln;
n:=0;
repeat
n:=n+1;
write(GJ[m,n],' ');
until n=6;
end;
readln;
for m:=1 to 5 do
begin
n:=0;
repeat
n:=n+1;
min:=GJ[m,1];
if GJ[m,n]<min then
begin
min:=GJ[m,n];
nom:=n;
end;
if n=6 then
begin
buf:=GJ[m,m];
GJ[m,m]:=min;
GJ[m,nom]:=buf;
end;
until n=6;
end;
clrscr;
writeln('Izmenennaia matrica:');
for m:=1 to 5 do
begin
writeln;
n:=0;
repeat
n:=n+1;
write(GJ[m,n],' ');
until n=6;
end;
readln;
end.
Re: 10 задач, массивы и арифметика
Добавлено: 14 мар 2009, 16:39
fi4a
dr.Jekill, огромное спасибо! Сегодня появилась возможность прикреплять файлы: прикрепляю те 10 задач, 3 из которых уже решено. буду очень благодарен, если рассмотрите и эти задачи!
Re: 10 задач, массивы и арифметика
Добавлено: 14 мар 2009, 19:30
dr.Jekill
Перекомпиллировал 10 задачу, - полный пэ. Выкладываю исправленный вариант:
Код: Выделить всё
uses crt;
var GJ:array[1..5,1..6] of integer;
m,n,min,buf,nom:integer;
begin
for n:=1 to 6 do
begin
clrscr;
writeln('Stolbec # ',n);
m:=0;
repeat
m:=m+1;
write('Stroka ',m,' -> ');
readln(GJ[m,n]);
until m=5;
end;
clrscr;
write('Ishodnaia matrica:');
for m:=1 to 5 do
begin
writeln;
n:=0;
repeat
n:=n+1;
write(GJ[m,n]:5);
until n=6;
end;
readln;
for n:=1 to 6 do
begin
m:=0;
min:=GJ[1,n];
repeat
m:=m+1;
if GJ[m,n]<=min then
begin
nom:=m;
min:=GJ[m,n];
end;
until m=5;
write(min:5);
if n<6 then
begin
buf:=GJ[n,n];
GJ[n,n]:=min;
GJ[nom,n]:=buf;
end;
end;
writeln;
write('Izmenennaia matrica:');
for m:=1 to 5 do
begin
writeln;
n:=0;
repeat
n:=n+1;
write(GJ[m,n]:5);
until n=6;
end;
readln;
end.
Re: 10 задач, массивы и арифметика
Добавлено: 15 мар 2009, 21:19
fi4a
а в прикреплённом файле никто не смотрел задачи?