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

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

6. Задан год рождения. Определить, сколько человек в списке жильцов студенческого общежития родились в этот год.

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

8. Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей женского пола, родившихся после 1990 г.

1. Записать в файл f N целых чисел, полученных с помощью

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

9. 2. Дан файл assort, содержащий сведения об игрушках: указывается название игрушки, ее стоимость в рублях и возрастные границы ( например, игрушка может предназначаться для детей от 2 до 5 лет). Получить название 3-х самых дорогих игрушек. Есть ли среди них те, которые подходят для семилетнего ребенка?

1. Дана строка. Определить, сколько раз входит в нее группа букв abc.

2. Дана строка. Преобразовать ее, заменив точками все двоеточия, встречающиеся среди первой половины символов строки, и заменив точками все восклицательные знаки во второй половине символов.

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.

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

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

Контрольная работа:
Решения задач на Pascal Теория чисел. Составить программу разложения на простые множители введенного с клавиатуры натурального числа

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

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