«Решения задач на 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.Теория чисел

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

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.