Урок 15 Задача 3
Primary tabs
У вас есть массив:
type myArr = array[1..8] of integer; var a: myArr;-- целочисленный из 8 элементов.
Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #
Задача: сохранить в массив целые числа, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения неиспользованных ячеек массива выводить ненужно.
type myArr = array[1..8] of integer; var a: myArr; x, i, j, code: integer; s: string; begin while (j<high(a)) do // цикл действует, пока счетчик меньше номера конечного эл-та массива begin write('Введите число: '); readln (s); if s = '#' then // проверка, если введена решетка break // выходим из цикла else begin val(s, x, code); // преобразовываем строку в число if code = 0 then // проверка кода ошибки, чтобы далее в массив не присваивались нули, если пользователь введет не integer begin j:=j+1; a[j] :=x; end; end; end; for i:=low(a) to j do // обходим массив до j write(a[i], ' '); // выводим элементы на экран readln (); end.
Вывод в консоли:
Введите число: 54 Введите число: 4 Введите число: 2 Введите число: 6 Введите число: # 54 4 2 6
Введите число: 5 Введите число: 3 Введите число: 6 Введите число: 22 Введите число: 6 Введите число: 4 Введите число: 6 Введите число: 3 5 3 6 22 6 4 6 3
- Log in to post comments
- 467 reads