1 Тема від alonka Востаннє редагувалося Torbins (27.05.2013 10:48:34)

  • alonka
  • Користувач
  • Поза форумом
  • Дата реєстрації: 13.05.2013
  • Повідомлень: 2
    • Репутація: 0

Тема: Обчислити суми і різниці елементів двох заданих масивів розміру 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 Відповідь від Пам'ять не може бути READ Востаннє редагувалося Пам'ять не може бути READ (13.05.2013 20:16:30)

  • Дата реєстрації: 08.06.2012
  • Повідомлень: 2 031
    • Репутація: 743

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

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

3 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 603
    • Репутація: 13312

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

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

koala вебсайт

4 Відповідь від yooll

  • yooll
  • Replace Group
  • Поза форумом
  • Звідки: Україна
  • Дата реєстрації: 17.07.2012
  • Повідомлень: 164
    • Репутація: 106

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 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 603
    • Репутація: 13312

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

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

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

koala вебсайт