Напишите процедуру которая определяет верно ли что переданное ей число простое паскаль

Определить, является ли число введенное пользователем, простым

Определить, является ли введённое число простым
Написать программу,которая определяет,является ли введённое число простым(делится на 1 или на само.

Определить, является ли простым натуральное число, введенное с клавиатуры
Определить, является ли простым натуральное число, введенное с клавиатуры. Простыми называются.

Проверить, является ли целое число выделенное пользователем, простым
Здравствуйте! Помогите пожалуйста написать программу, которая проверяет, является ли целое число.

Написать программу, которая проверяет, является ли четным введенное пользователем целое число
Решать с использованием файлов Написать программу, которая проверяет, является ли четным.

Добавлено через 1 минуту

Определить, является ли число простым
Составить программу для решения следующей задачи: Дано натуральное число N. Является ли оно.

Определить, является ли число простым
Помогите решить задание из задачника while 22. «Дано целое число N. Если оно является простым, то.

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

Определить, является ли заданное число простым
написать программу которая проверяет является ли целое число введенное с клав. простым ( то есть.

Источник

(Используйте изменяемые параметры).

Procedure prime(n : integer) ;

begin for i : = 2 to round(sqrt(n)) do if n mod i = 0 then begin writeln(‘Число ‘, n, ‘ составное’) ; exit end ; writeln(‘Число ‘, n, ‘ простое’)

begin prime(3) ; prime(8) ; prime(23) ; prime(35) ;

Число 35 составное.

Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой?

Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.

Напишите процедуру, которая сокращает дробь вида M / N?

Напишите процедуру, которая сокращает дробь вида M / N.

Числитель и знаменатель дроби передаются как изменяемые параметры.

Написать в Паскале процедуру с изменяемым параметром?

Написать в Паскале процедуру с изменяемым параметром.

Помогите хотя бы с одним.

Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания.

Пример : Введите три натуральных числа : 10 15 5 5 10 15 Уровень B.

Напишите процедуру, которая сокращает дробь вида M / N.

Числитель и знаменатель дроби передаются как изменяемые параметры.

Пример : Введите числитель и знаменатель дроби : 25 15 После сокращения : 5 / 3.

Напишите процедуру в Паскале, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов ‘–’?

Напишите процедуру в Паскале, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов ‘–’.

Составьте программу, в которой используется процедура с параметрами, которая в качестве входных данных получает три целых числа и вычисляет их сумму, произведение и средне арифметическое?

Составьте программу, в которой используется процедура с параметрами, которая в качестве входных данных получает три целых числа и вычисляет их сумму, произведение и средне арифметическое.

Уровень B?

Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.

СРОЧНО?

Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в двоичный код?

Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в двоичный код.

Программа должна вывести двоичное представление переданного её числа.

Источник

Презентация была опубликована 6 лет назад пользователемДенис Веневитинов

Похожие презентации

Презентация на тему: » К.Ю. Поляков, Е.А. Ерёмин, 2013 Программирование на языке Паскаль § 59. Процедуры 1.» — Транскрипт:

1 К.Ю. Поляков, Е.А. Ерёмин, Программирование на языке Паскаль § 59. Процедуры 1

2 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Зачем нужны процедуры? 2 writeln(‘Ошибка программы’); много раз! program withProc; var n: integer; begin read(n); if n

3 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Что такое процедура? 3 Процедура – вспомогательный алгоритм, который выполняет некоторые действия. текст (расшифровка) процедуры записывается до основной программы в программе может быть много процедур чтобы процедура заработала, нужно вызвать её по имени из основной программы или из другой процедуры

6 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Процедура с параметрами 6 program binCode; begin printBin(99) end. program binCode; begin printBin(99) end. procedure printBin(n: integer); var k: integer; begin k:= 128; while k > 0 do begin write(n div k); n:= n mod k; k:= k div 2 end end; procedure printBin(n: integer); var k: integer; begin k:= 128; while k > 0 do begin write(n div k); n:= n mod k; k:= k div 2 end end; Параметры – данные, изменяющие работу процедуры. локальная переменная значение параметра (аргумент) значение параметра (аргумент) 0 do begin write(n div k); n:= n mod k; k:= k div 2 end end; procedure printBin(n: integer); var k: integer; begin k:= 128; while k > 0 do begin write(n div k); n:= n mod k; k:= k div 2 end end; Параметры – данные, изменяющие работу процедуры. локальная переменная значение параметра (аргумент) значение параметра (аргумент)»>

7 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Несколько параметров 7 procedure printSred(a: integer; b: integer); begin write((a+b)/2); end. procedure printSred(a: integer; b: integer); begin write((a+b)/2); end. procedure printSred(a, b: integer); begin write((a+b)/2); end. procedure printSred(a, b: integer); begin write((a+b)/2); end.

8 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 8 «A»: Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов ‘–’. Пример: Введите N: «B»: Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой. Пример: Введите натуральное число:

9 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 9 «C»: Напишите процедуру, которая выводит на экран запись переданного ей числа в римской системе счисления. Пример: Введите натуральное число: 2013 MMXIII

11 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Изменяемые параметры 11 procedure Swap( a, b: integer); var c: integer; begin c:= a; a:= b; b:= c; end; procedure Swap( a, b: integer); var c: integer; begin c:= a; a:= b; b:= c; end; var передача по ссылке переменные могут изменяться var a, b: integer;. Swap(a, b); < правильно >Swap(2, 3); < неправильно >Swap(a, b+3); < неправильно >var a, b: integer;. Swap(a, b); < правильно >Swap(2, 3); < неправильно >Swap(a, b+3); < неправильно >Вызов:

12 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 12 «A»: Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания. Пример: Введите три натуральных числа: «B»: Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры. Пример: Введите числитель и знаменатель дроби: После сокращения: 5/3

13 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 13 «C»: Напишите процедуру, которая вычисляет наибольший общий делитель и наименьшее общее кратное двух натуральных чисел и возвращает их через изменяемые параметры. Пример: Введите два натуральных числа: НОД(10,15)=5 НОК(10,15)=30

14 К.Ю. Поляков, Е.А. Ерёмин, Программирование на языке Паскаль § 60. Функции 14

15 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Что такое функция? 15 Функция – это вспомогательный алгоритм, который возвращает значение-результат (число, символ или объект другого типа). Задача. Написать функцию, которая вычисляет сумму цифр числа. Алгоритм: сумма:= 0; while n <> 0 do begin сумма:= сумма + n mod 10; n:= n div 10 end; сумма:= 0; while n <> 0 do begin сумма:= сумма + n mod 10; n:= n div 10 end; 0 do begin сумма:= сумма + n mod 10; n:= n div 10 end; сумма:= 0; while n <> 0 do begin сумма:= сумма + n mod 10; n:= n div 10 end;»>

16 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Сумма цифр числа 16 program Sum; begin writeln(sumDigits(12345)) end. program Sum; begin writeln(sumDigits(12345)) end. function sumDigits(n: integer): ; var sum: integer; begin sum:= 0; while n <> 0 do begin sum:= sum + n mod 10; n:= n div 10; end; end; function sumDigits(n: integer): ; var sum: integer; begin sum:= 0; while n <> 0 do begin sum:= sum + n mod 10; n:= n div 10; end; end; sumDigits:= sum передача результата integer тип результата 0 do begin sum:= sum + n mod 10; n:= n div 10; end; end; function sumDigits(n: integer): ; var sum: integer; begin sum:= 0; while n <> 0 do begin sum:= sum + n mod 10; n:= n div 10; end; end; sumDigits:= sum передача результата integer тип результата»>

19 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 19 «C»: Напишите функцию, которая «переворачивает» число, то есть возвращает число, в котором цифры стоят в обратном порядке. Пример: Введите натуральное число: 1234 После переворота: 4321.

23 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 23 «A»: Напишите логическую функцию, которая определяет, является ли переданное ей число совершенным, то есть, равно ли оно сумме своих делителей, меньших его самого. Пример: Введите натуральное число: 28 Число 28 совершенное. Пример: Введите натуральное число: 29 Число 29 не совершенное.

24 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 24 «B»: Напишите логическую функцию, которая определяет, являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 1. Пример: Введите два натуральных числа: Числа 28 и 15 взаимно простые. Пример: Введите два натуральных числа: Числа 28 и 16 не взаимно простые.

25 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 25 «С»: Простое число называется гиперпростым, если любое число, получающееся из него откидыванием нескольких цифр, тоже является простым. Например, число 733 – гиперпростое, так как и оно само, и числа 73 и 7 – простые. Напишите логическую функцию, которая определяет, верно ли, что переданное ей число – гиперпростое. Используйте уже готовую функцию isPrime, которая приведена в учебнике. Пример: Введите натуральное число: 733 Число 733 гиперпростое. Пример: Введите натуральное число: 19 Число 19 не гиперпростое.

Источник

Презентация была опубликована 6 лет назад пользователемДенис Веневитинов

Похожие презентации

Презентация на тему: » К.Ю. Поляков, Е.А. Ерёмин, 2013 Программирование на языке Паскаль § 59. Процедуры 1.» — Транскрипт:

1 К.Ю. Поляков, Е.А. Ерёмин, Программирование на языке Паскаль § 59. Процедуры 1

2 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Зачем нужны процедуры? 2 writeln(‘Ошибка программы’); много раз! program withProc; var n: integer; begin read(n); if n

3 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Что такое процедура? 3 Процедура – вспомогательный алгоритм, который выполняет некоторые действия. текст (расшифровка) процедуры записывается до основной программы в программе может быть много процедур чтобы процедура заработала, нужно вызвать её по имени из основной программы или из другой процедуры

6 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Процедура с параметрами 6 program binCode; begin printBin(99) end. program binCode; begin printBin(99) end. procedure printBin(n: integer); var k: integer; begin k:= 128; while k > 0 do begin write(n div k); n:= n mod k; k:= k div 2 end end; procedure printBin(n: integer); var k: integer; begin k:= 128; while k > 0 do begin write(n div k); n:= n mod k; k:= k div 2 end end; Параметры – данные, изменяющие работу процедуры. локальная переменная значение параметра (аргумент) значение параметра (аргумент) 0 do begin write(n div k); n:= n mod k; k:= k div 2 end end; procedure printBin(n: integer); var k: integer; begin k:= 128; while k > 0 do begin write(n div k); n:= n mod k; k:= k div 2 end end; Параметры – данные, изменяющие работу процедуры. локальная переменная значение параметра (аргумент) значение параметра (аргумент)»>

7 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Несколько параметров 7 procedure printSred(a: integer; b: integer); begin write((a+b)/2); end. procedure printSred(a: integer; b: integer); begin write((a+b)/2); end. procedure printSred(a, b: integer); begin write((a+b)/2); end. procedure printSred(a, b: integer); begin write((a+b)/2); end.

8 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 8 «A»: Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов ‘–’. Пример: Введите N: «B»: Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой. Пример: Введите натуральное число:

9 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 9 «C»: Напишите процедуру, которая выводит на экран запись переданного ей числа в римской системе счисления. Пример: Введите натуральное число: 2013 MMXIII

11 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Изменяемые параметры 11 procedure Swap( a, b: integer); var c: integer; begin c:= a; a:= b; b:= c; end; procedure Swap( a, b: integer); var c: integer; begin c:= a; a:= b; b:= c; end; var передача по ссылке переменные могут изменяться var a, b: integer;. Swap(a, b); < правильно >Swap(2, 3); < неправильно >Swap(a, b+3); < неправильно >var a, b: integer;. Swap(a, b); < правильно >Swap(2, 3); < неправильно >Swap(a, b+3); < неправильно >Вызов:

12 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 12 «A»: Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания. Пример: Введите три натуральных числа: «B»: Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры. Пример: Введите числитель и знаменатель дроби: После сокращения: 5/3

13 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 13 «C»: Напишите процедуру, которая вычисляет наибольший общий делитель и наименьшее общее кратное двух натуральных чисел и возвращает их через изменяемые параметры. Пример: Введите два натуральных числа: НОД(10,15)=5 НОК(10,15)=30

14 К.Ю. Поляков, Е.А. Ерёмин, Программирование на языке Паскаль § 60. Функции 14

15 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Что такое функция? 15 Функция – это вспомогательный алгоритм, который возвращает значение-результат (число, символ или объект другого типа). Задача. Написать функцию, которая вычисляет сумму цифр числа. Алгоритм: сумма:= 0; while n <> 0 do begin сумма:= сумма + n mod 10; n:= n div 10 end; сумма:= 0; while n <> 0 do begin сумма:= сумма + n mod 10; n:= n div 10 end; 0 do begin сумма:= сумма + n mod 10; n:= n div 10 end; сумма:= 0; while n <> 0 do begin сумма:= сумма + n mod 10; n:= n div 10 end;»>

16 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Сумма цифр числа 16 program Sum; begin writeln(sumDigits(12345)) end. program Sum; begin writeln(sumDigits(12345)) end. function sumDigits(n: integer): ; var sum: integer; begin sum:= 0; while n <> 0 do begin sum:= sum + n mod 10; n:= n div 10; end; end; function sumDigits(n: integer): ; var sum: integer; begin sum:= 0; while n <> 0 do begin sum:= sum + n mod 10; n:= n div 10; end; end; sumDigits:= sum передача результата integer тип результата 0 do begin sum:= sum + n mod 10; n:= n div 10; end; end; function sumDigits(n: integer): ; var sum: integer; begin sum:= 0; while n <> 0 do begin sum:= sum + n mod 10; n:= n div 10; end; end; sumDigits:= sum передача результата integer тип результата»>

19 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 19 «C»: Напишите функцию, которая «переворачивает» число, то есть возвращает число, в котором цифры стоят в обратном порядке. Пример: Введите натуральное число: 1234 После переворота: 4321.

23 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 23 «A»: Напишите логическую функцию, которая определяет, является ли переданное ей число совершенным, то есть, равно ли оно сумме своих делителей, меньших его самого. Пример: Введите натуральное число: 28 Число 28 совершенное. Пример: Введите натуральное число: 29 Число 29 не совершенное.

24 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 24 «B»: Напишите логическую функцию, которая определяет, являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 1. Пример: Введите два натуральных числа: Числа 28 и 15 взаимно простые. Пример: Введите два натуральных числа: Числа 28 и 16 не взаимно простые.

25 Алгоритмизация и программирование, Паскаль, 10 класс К.Ю. Поляков, Е.А. Ерёмин, Задачи 25 «С»: Простое число называется гиперпростым, если любое число, получающееся из него откидыванием нескольких цифр, тоже является простым. Например, число 733 – гиперпростое, так как и оно само, и числа 73 и 7 – простые. Напишите логическую функцию, которая определяет, верно ли, что переданное ей число – гиперпростое. Используйте уже готовую функцию isPrime, которая приведена в учебнике. Пример: Введите натуральное число: 733 Число 733 гиперпростое. Пример: Введите натуральное число: 19 Число 19 не гиперпростое.

Источник