Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В6. Дано простое число Р. Найти и вывести на экран следующее за ним простое число. - Контрольная работа

1. Дано простое число Р. Найти и вывести на экран следующее за ним простое число.

2. Найти самую большую цифру целого числа.

3. Составить функцию для нахождения наименьшего нечётного натурального делителя k (k≠1) любого заданного натурального числа n.

4. Напечатать все пары чисел-близнецов из отрезка [n,2n], где n – заданное натуральное число больше 2.

5. В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить: какие рыбы есть в озере, но нет ни у одного их рыбаков.

6. Дан текст из строчных латинских букв и цифр. Определить чего – букв или цифр – больше в этом тексте.

7. 1. Распечатать список учеников музыкальной школы, которые учатся играть на скрипке. Указать также, сколько лет они занимаются музыкой и принимали ли участие в каких- либо конкурсах.

8. 1. Записать в файл прямого доступа N действительных чисел. Найти наибольшее из значений модулей компонентов с нечётными номерами.

9. 2. Дан файл tovar, содержащий сведения об экспортируемых товарах: указываются наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар, и указать общий объем его экспорта.

10. Программа 1

11. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.

12. Удалить часть символьной строки, заключенной в скобки (вместе со скобками)

Лабораторная работа 1

13. Дано простое число Р. Найти и вывести на экран следующее за ним простое число.

14. Найти самую большую цифру целого числа.

Программа 1

function proc(n:integer):boolean;

var

i,j,k,l:integer;

begin

k:=0;

for i:=2 to n-1 do

if n/i = trunc(n/i) then k:=1;

if k=1 then proc:=false else proc:=true;

end;

var

r:integer;

begin

readln(r);

repeat

r:=r+1;

until proc(r);

writeln(r);

readln

end.

Программа 2

function nod(x:integer):integer;

var

i,j:integer;

begin

for i:=x downto 3 do

if odd(i) and (x mod i=0) then j:=i;

nod:=j;

end;

var

h:integer;

begin

readln(h);

1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.

2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.

3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.

4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.

5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.

Готовые решения задач на языке Паскаль

К работе прилагается все исходники с расширением .pas.

Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В2,4,6,8,9,11,12

Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В11. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.

Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В9. Разработать программу поиска и печати всех чисел-близнецов, принадлежащих заданному диапазону

Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В8. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем

Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В12