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

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

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

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

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

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

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

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

1.Теория чисел

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

2. Подпрограммы в Паскале

2.5. Лабораторная работа 2

3.Множества

3.4.Лабораторная работа 3

4. Записи.

4.4.Лабораторная работа 4

5.Файлы.

5.6. Лабораторная работа 5.

6. Строковые переменные.

6.4. Лабораторная работа 6

Литература

1. Разработать программу поиска и печати всех чисел-близнецов, принадлежащих заданному диапазону [N,M ].

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

3. Составить программу для нахождения чисел из интервала [M,N], имеющих наибольшее количество делителей.

4. Найти все числа Армстронга от 1 до К написать программу, которая находит и выводит на печать все четырехзначные числа вида abcd, для которых выполняется: 1) a, b, c, d – разные цифры; 2) ab - cd = a+ b+ c+ d.

5. Составить программу, которая вычисляет сумму тех элементов двумерного массива, номера строк и столбцов которых принадлежат соответственно непустым множествам S1иS2

var

f1,f:text;

sr:real;

k,s1,s2,N,max,min,q,i:integer;

q2,q3,q4:array[1.100] of integer;

q1:array[1.100] of string[20];

begin

randomize;

assign(f,'assort.txt');

reset(f);

repeat

i:=i+1;

readln(f,q1[i]);

readln(f,q2[i]);

readln(f,q3[i]);

readln(f,q4[i]);

until eof(f);

close(f);

k:=i;

for s1:=1 to 3 do

begin

max:=0;

for i:=1 to k do

begin

if q4[i]>max then

begin

max:=q4[i];

q:=i;

end;

end;

write(q1[q]);

write(' 業 -',q4[q]);

if (q2[q]>=7) and (q3[q]<=7) then writeln(' „ ') else writeln(' ЌҐв');

q4[q]:=0;

end;

readln;

end.

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

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

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

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

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

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

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