0

Нельзя ли как-то эту часть программы записать в одном цикле? не получается, чтобы выводилось правильно?

for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:6); end; writeln;
for i:=1 to n do begin b[i]:=random(21)-10; write(b[i]:6); end;
for i:=1 to n do begin if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];end;writeln;
for i:=1 to n do begin write(c[i]:6); end;

Обновление

Полный листинг:

const K=100;
var 
  a,b,c:array[1..K] of integer;
  n,i:integer;
begin
  writeln('введи размерности массивов');
  readln(n);
  randomize;
  for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:6); end; writeln;
  for i:=1 to n do begin b[i]:=random(21)-10; write(b[i]:6); end;
  for i:=1 to n do begin if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];end;writeln;
  for i:=1 to n do begin write(c[i]:6); end;
end.
1
  • 1
    @Ekaterina: Записать все циклы в один — это наверное хорошая идея. Но не думайте, что вы от этого получите какое-то «ускорение». Одна наносекунда, выигранная снижением расходов на управление циклами, ничто по сравнению с десятками, а то и сотнями миллисекунд, расходуемых каждой из операций вывода.
    – VladD
    6 июл 2014 в 12:18

1 ответ 1

0

Нет, к сожалению ничего тут нельзя сделать. Цикл будет выводить по очереди массивы a, b и проверять условие. Ps. я надеюсь, что используется в начале программы randomize?

3
  • полный текст const K=100; var a,b,c:array[1..K] of integer; n,i:integer; begin writeln('введи размерности массивов'); readln(n); randomize; for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:6); end; writeln; for i:=1 to n do begin b[i]:=random(21)-10; write(b[i]:6); end; for i:=1 to n do begin if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];end;writeln; for i:=1 to n do begin write(c[i]:6); end; end. 6 июл 2014 в 5:08
  • ну все, тогда больше нечего менять. конечно можно прописать говорящие переменные, но они не особо нужны ;-) 6 июл 2014 в 5:13
  • 1
    ответ, разумеется, неверный. достаточно одного цикла. hint: в метках delphi, а не какой-то turbo pascal 5.0 (да и в нем тоже реализуемо). 6 июл 2014 в 11:12

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.