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

Содержание

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 (значения переменных N и M задаются с клавиатуры), а также подсчитать их количество.

2. Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны.

1. Составить программу для вычисления суммы факториалов всех чётных чисел от m до n.

2. Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке ( например, дано число 156, нужно получить 651). 4 1. Имеется множество, содержащее натуральные числа из некоторого диапазона . Сформировать два множества, первые из которых содержит все простые числа из данного множества, а второе – все составные.

2. Известны марки машин, изготовляемых в данной стране и импортируемых за рубеж. Даны некоторые К стран. Определить для каждой из марок, какие из них были:1) доставлены во все страны; 2) доставлены в некоторые из стран; 3) не доставлены ни в одну страну.

1. Распечатать фамилии рабочих бригады, начинающиеся с букв А и С, с указанием их месячной зарплаты.

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

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

2. Багаж пассажира характеризуется количеством вещей и их общим весом. Дан файл bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно действительного (вес в килограммах). Выяснить, имеется ли пассажир, багаж которого состоитиз одной вещи весом менее М кг.

1. Дана строка . Определить, сколько в ней символов *, ;, :.

2. В строке удалить символ «двоеточие» (:) и подсчитать количество замен

Основная часть (выдержка)

program lab6a;

uses crt;

var s:string;

k,i:integer;

begin

clrscr;

k:=0;

writeln('Vvedite stroku');

readln(s);

for i:=1 to length(s) do begin

if (s[i]='*') or (s[i]=';') or (s[i]=':') then k:=k+1;

end;

writeln('kolichestvo simvolov (*,;,:)=',k);

readln;

end.

Заключение (выдержка)

program lab3b;

uses crt;

var a,b,c:set of char;

i:char;

begin

clrscr;

a:=['a','b','m','p','v'];

b:=['v','b','p','m'];

c:=['a','b','p'];

Writeln('Vvedite bykvu');

readln(i);

if (i in a)and(i in b)and (i in c) then writeln('Vo vse strani')

else begin

if (not(i in a))and(not(i in b))and (not(i in c))

then writeln('Ni v odnoi strane')

else writeln('V nekotorie strani')

end;

readln;

end.

Литература

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

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

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

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

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

Примечания

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

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