Заменить каждый элемент массива его знаком - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Дан массив из n целых чисел.Заменить каждый элемент массива его знаком(положительный элемент-знаком "+",отрицательный элемент-знаком "-",нули-знаком "=").Для замены числа символом использовать соответствующую подпрограмму.

Решение задачи: «Заменить каждый элемент массива его знаком»

textual
Листинг программы
var a:array[1..50] of integer;
    b:array[1..50] of char;
    n,i:byte;
begin
randomize;
repeat
write('Размер масссивов от 1 до 50 n=');
readln(n);
until n in [1..50];
writeln('Массив чисел');
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
writeln('Массив символов');
for i:=1 to n do
 begin
  if a[i]>0 then b[i]:='+';
  if a[i]<0 then b[i]:='-';
  if a[i]=0 then b[i]:='=';
  write(b[i]:4);
 end;
end.

Объяснение кода листинга программы

  1. Создается переменная a типа array[1..50] of integer, что означает создание массива из 50 целых чисел.
  2. Создается переменная b типа array[1..50] of char, что означает создание массива из 50 символов.
  3. Создаются двебайтовые переменные n и i для контроля цикла.
  4. Используется функция randomize для инициализации генератора случайных чисел.
  5. Запускается цикл repeat, который будет выполняться до тех пор, пока n не станет равным 0 или больше 50.
  6. Внутри цикла выводится сообщение с запросом размера массива a.
  7. После получения размера массива a выводится сообщение с запросом размера массива b.
  8. Запускается цикл for, который будет выполняться для каждого элемента массива a от 1 до n.
  9. Внутри цикла вычисляется значение a[i] и присваивается переменной a[i].
  10. Выводится значение a[i] в формате 4-х знаков.
  11. Если значение a[i] положительное, то переменной b[i] присваивается символ '+'.
  12. Если значение a[i] отрицательное, то переменной b[i] присваивается символ '-'.
  13. Если значение a[i] равно 0, то переменной b[i] присваивается символ '='.
  14. После вывода значения b[i] выводится символ новой строки.
  15. По завершении цикла for выводится символ новой строки.
  16. Завершается программа.

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы