Нахождение номера цифры - Pascal ABC
Формулировка задачи:
Написать программу в которую вводятся два массива (массивы должны быть упорядочены), одним циклом найти одинаковые цифры в массивах и определить на каком месте находятся совпадающие цифры из второго массива в первом массиве.
Пример:
918273645
123456789 (первое число второго массива 1=2 находится на 2 месте в первом массиве )
Решение задачи: «Нахождение номера цифры»
textual
Листинг программы
program proga1; uses crt; const N = 5; var arr1,arr2: array[1..N] of integer; i,a,k: Byte; begin writeln('Заполните первый массив:'); for i := 1 to N do read(arr1[i]); writeln('Заполните второй массив:'); for i := 1 to N do read(arr2[i]); begin k:=0; i:=1; while(i<=n)and(k=0) do if a[i]=b[1] then k:=i else i:=i+1; write(k); end; end.
Объяснение кода листинга программы
Этот код написан на языке Pascal ABC и выполняет следующие действия:
- Создает два массива arr1 и arr2, каждый из которых содержит 5 чисел.
- Запрашивает у пользователя ввести номер цифры для поиска.
- Инициализирует переменные i, a и k значением Byte.
- Выводит сообщение
Заполните первый массив:
, затем считывает 5 чисел от пользователя и сохраняет их в массиве arr1. - Выводит сообщение
Заполните второй массив:
, затем считывает 5 чисел от пользователя и сохраняет их в массиве arr2. - Устанавливает переменную k в 0.
- Устанавливает переменную i в 1.
- В цикле while считывает следующее число из массива arr1 и сравнивает его с первым числом из массива arr2.
- Если числа равны, то устанавливает переменную k в значение i.
- Если числа не равны, то увеличивает i на 1.
- Выводит значение переменной k. Код не использует вложенные списки.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д