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

содержит цикл лабораторных работ:

- Работа с числами;

- Работа с подпрограммами;

- Работа с множествами;

- Работа с записями;

- Работа с файлами;

- Работа со строковыми переменными.

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

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

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

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

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

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

Лабораторная работа 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.