Напишите программу на языке Паскаль, уровень B. Заполните массив случайными числами в диапазоне [0,100] и отберите все простые числа в другой массив. Используйте логическую функцию, которая проверяет, является ли число простым, при передаче этого числа. Пример: Массив А: 12 13 85 96 47 Массив B: [ваш ответ]
Папоротник
Конечно! Вот пример программы на языке Паскаль, которая решает данную задачу:
Последовательность действий в программе:
1. Определение размера массива и типа MyArray.
2. Объявление переменных A, B, i, j и isPrime.
3. Определение функции IsPrimeNumber для проверки числа на простоту.
4. Начало программы.
5. Заполняем массив А случайными числами в диапазоне [0, 100].
6. Используем цикл для отбора простых чисел и записи их в массив B.
7. Выводим исходный массив А и полученный массив В на экран.
Таким образом, программа заполняет массив А случайными числами и отбирает все простые числа в массив B с помощью логической функции IsPrimeNumber, которая проверяет каждое число на простоту. Полученные результаты выводятся на экран.
pascal
program ArrayPrimes;
const
N = 5; // Размер массива
type
MyArray = array[1..N] of Integer;
var
A, B: MyArray; // Массивы А и В
i, j: Integer; // Переменные для циклов
isPrime: Boolean; // Логическая переменная для проверки на простоту
// Функция для проверки, является ли число простым
function IsPrimeNumber(num: Integer): Boolean;
var
k: Integer;
begin
if num < 2 then
IsPrimeNumber := False
else
begin
IsPrimeNumber := True;
for k := 2 to Trunc(Sqrt(num)) do
begin
if num mod k = 0 then
begin
IsPrimeNumber := False;
break;
end;
end;
end;
end;
begin
// Заполняем массив А случайными числами в диапазоне [0, 100]
for i := 1 to N do
A[i] := Random(101);
// Отбираем простые числа и записываем их в массив B
j := 0;
for i := 1 to N do
begin
if IsPrimeNumber(A[i]) then
begin
j := j + 1;
B[j] := A[i];
end;
end;
// Выводим исходные и полученные массивы на экран
writeln("Массив А:");
for i := 1 to N do
write(A[i], " ");
writeln;
writeln("Массив B:");
for i := 1 to j do
write(B[i], " ");
writeln;
end.
Последовательность действий в программе:
1. Определение размера массива и типа MyArray.
2. Объявление переменных A, B, i, j и isPrime.
3. Определение функции IsPrimeNumber для проверки числа на простоту.
4. Начало программы.
5. Заполняем массив А случайными числами в диапазоне [0, 100].
6. Используем цикл для отбора простых чисел и записи их в массив B.
7. Выводим исходный массив А и полученный массив В на экран.
Таким образом, программа заполняет массив А случайными числами и отбирает все простые числа в массив B с помощью логической функции IsPrimeNumber, которая проверяет каждое число на простоту. Полученные результаты выводятся на экран.
Знаешь ответ?
О проекте
Мы такая же школота как ты ;)
Предметы
Русский язык- Математика
- Геометрия
- Музыка
- История
- Экономика
- Литература
- Алгебра
- Другие предметы
- Физика
- Информатика
- Обществознание
- География
- Немецкий язык
- Химия
- Английский язык
- Психология
- Українська мова
- Окружающий мир
- Биология
- Беларуская мова
- Қазақ тiлi
- Право
- ОБЖ
- Українська література
- МХК
- Французский язык
