1 Востаннє редагувалося Torbins (27.05.2013 11:48:34)

Тема: Обчислити суми і різниці елементів двох заданих масивів розміру N

Дано задачу:
Обчислити суми і різниці елементів двох заданих масивів розміру N. Результат надрукувати у вигляді паралельних стовпців.
розв'язок:

program Prog9_2;
uses crt;
const
   n=10;
var
   m,x,s1,r1:array[1..n] of integer;
   i :integer;
begin
   clrscr;
   randomize;
   Writeln('Zadanuu masuv M:');
   for i:=1 to n do begin
       m[i]:=random(20);
       write(m[i]:4);
   end;
   writeln;
   writeln('Zadanuu masuv X');
   for i:=1 to n do begin
       x[i]:=random(20);
       write(x[i]:4);
   end;

   for i:=1 to n do begin
       s1[i]:=m[i]+x[i];
       r1[i]:=m[i]-x[i];
   end;
   writeln;

      Write('Suma:      ');
      writeln;

      for i:=1 to n do
       write(s1[i]:5);

       writeln;
   Write('Riznucya:  ');
   writeln;
            for i:=1 to n do
       write(r1[i]:5);

   readln;
end.

допоможіть будь ласка  переробити програму щоб задані матриці, сума і різниця виводилася у вигляді стовпчиків а не рядків
ДЯКУЮ.

2 Востаннє редагувалося Адріян Ігорович (13.05.2013 21:16:30)

Re: Обчислити суми і різниці елементів двох заданих масивів розміру N

А щось самі пробували зробити ?
Як на мене досить замінити всього лиш декілька символів.

3

Re: Обчислити суми і різниці елементів двох заданих масивів розміру N

заміни write на writeln.
От тільки ці стовпчики будуть на кілька екранів, а це не дуже зручно... але то таке.

4

Re: Обчислити суми і різниці елементів двох заданих масивів розміру N

Якщо треба паралельні стовпці, то спробуйте так:

write('Suma:      ');
write('Riznucya:  ');
writeln;
for i:=1 to n do
begin
    write(s1[i]:5);
    write('     ');
    write(r1[i]:5);
    writeln;
end;

5

Re: Обчислити суми і різниці елементів двох заданих масивів розміру N

Turbo Pascal, якщо не помиляюся, підтримував такий формат виводу:

writeln('Suma:':-11,'Riznucya:':-11);
for i:=1 to n do
    writeln(s1[i]:-11,r1[i]:-11);