Технический форум - Задачи Turbo Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задачи Turbo Pascal (http://www.tehnari.ru/f41/t45377/)

Задачи Turbo Pascal

Доброго времени суток. В понедельник зачет по программированию, просто не успеваю сделать все задачи. Сейчас тружусь над базами данных, сделать еще и паскалевские задачи не успею. Прошу помощи смиренно :tehnari_ru_837:

Тема: Подпрограммы

1) Вычислить z=(s1+s2)/k1k2 , где s1 и k1 - сумма и количество положительных элементов массива X (25); s2 и k2 - сумма и количество положительных элементов массива Y (20).Использовать подпрограмму-процедуру.

2) Вычислить z=(s1+s2)/k1k2 , где s1 и k1 - сумма и количество положительных элементов массива X (20); s2 и k2 - сумма и количество отрицательных элементов массива Y (25). Обе суммы вычислять в одной подпрограмме-процедуре.

3) Вычислить и запомнить суммы положительных элементов каждой строки матрицы A (10,20), B (15,10)

Тема: Двумерные массивы

1) Дана матрица V (15;10). Упорядочить по возрастанию элементы каждой строки матрицы. Отпечатать исходную и полученную матрицу.

Заранее спасибо огромное за помощь. Этой весной, в рядах вооруженных сил на одного призывника меньше :))

я в 9 классе, вот что могу
третья задача
матрица А:
Код:

Const M = 10; N = 10;
Var A:array[1..N,1..M] of Integer;
B:array[1..M] of Integer;
I,J:Integer;
begin
For I:=1 To M Do
Begin
B[I]:=0;
For J:=1 To N Do
If A[J,I] < 0 Then
Inc(B[I]);
End;
end.

Так как тема "Подпрограммы", то и использовать нужно подпрограммы.
Естественно код большой и может не совсем оптимальный. :)

Цитата:

Сообщение от antishoker (Сообщение 445734)

3) Вычислить и запомнить суммы положительных элементов каждой строки матрицы A (10,20), B (15,10)

Код:

const

m=20;

n=10;

k=15;

var

a:array [1..n,1..m] of integer;

b:array [1..k,1..n] of integer;

s:array [1..20,1..2] of integer;

i,j:integer;



procedure init;

begin

for i:=1 to 20 do

for j:=1 to 2 do

s[i,j]:=0;

end;





procedure zap(x,y:integer);

begin;

for i:=1 to x do begin

for j:=1 to y do begin

a[i,j]:=random(20);

write (a[i,j]:4);

end;

writeln;

end;

end;



procedure zap1(q,w:integer);

begin;

for i:=1 to q do begin

for j:=1 to w do begin

b[i,j]:=random(20);

write (b[i,j]:4);

end;

writeln;

end;

end;



procedure suma;

begin

for i:=1 to n do begin

for j:=1 to m do

if a[i,j]>0 then begin

s[i,1]:=s[i,1]+a[i,j];

write (i,')',s[i,1]:3,' ');

end;

end;

end;



procedure sumb;

begin

for i:=1 to k do begin

for j:=1 to n do

if b[i,j]>0 then begin

s[i,2]:=s[i,2]+b[i,j];

write (i,')',s[i,2]:3,' ');

end;

end;

end;



begin

randomize;

init;

writeln ('First');;

zap(n,m);

writeln ('Summa');

suma;

writeln;

writeln ('Second');

zap1(k,n);

writeln ('summa');

sumb;



readln

end.

Цитата:

Сообщение от antishoker (Сообщение 445734)

Дана матрица V (15;10). Упорядочить по возрастанию элементы каждой строки матрицы. Отпечатать исходную и полученную матрицу.

Задача решена тут, только поменяйте значение m и n (размерность матрицы) и задача решена.

Цитата:

Сообщение от antishoker (Сообщение 445734)

1) Вычислить z=(s1+s2)/k1k2 , где s1 и k1 - сумма и количество положительных элементов массива X (25); s2 и k2 - сумма и количество положительных элементов массива Y (20).Использовать подпрограмму-процедуру.

Код:

var

x:array [1..25] of integer;

y:Array [1..20] of integer;

i,s1,s2,k1,k2:integer;

z:real;



procedure init_x;

begin

for i:=1 to 25 do begin

x[i]:=random(30)-15;

write (x[i]:3);

end;

end;



procedure init_y;

begin

for i:=1 to 20 do begin

y[i]:=random(30)-15;

write (y[i]:3);

end;

end;



procedure first;

begin

s1:=0;

k1:=0;

for i:=1 to 25 do begin

if x[i]>0 then

s1:=s1+x[i];

end;

k1:=s1;

end;



procedure second;

begin

s2:=0;

k2:=0;

for i:=1 to 25 do begin

if x[i]>0 then

s2:=s2+x[i];

end;

k2:=s2;

end;



begin

randomize;

init_x;

writeln;

init_y;

first;

second;

writeln;

z:=(s1+s2)/k1*k2;

writeln ('z=',z);

readln

end.