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

Содержание

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

Тема: Теория чисел

Вариант Задания

2 1. Составить программу разложения на простые множители введенного с клавиатуры натурального числа

2. В трехзначном числе зачеркнули первую цифру слева, когда полученное двузначное число умножили на 7, то получили исходное число. Найдите это число.

1.

4

1. Разработать программу печати всех простых чисел в диапазоне от N до M (значения переменных N и M задаются с клавиатуры), а также подсчитать их количество.

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

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

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

1.

8 1. Разработать программу поиска трех простых чисел,

предшествующих числу М, заданному пользователем,

причем М>=10.

2.Составить программу, проверяющую, является ли

заданное натуральное число совершенным.

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

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

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

Тема: Подпрограммы

Составить программу, вычертить блок-схему и получить решение следующих задач по вариантам. Первое задание выполнить с помощью процедур, второе – с помощью функций.

Вариант Задания

1.

2 1. Даны две дроби A/В и С/D (A,B,C,D-натуральные числа). Составить программу для сложения дробей. Результат должен быть несократимой дробью.

2. Сформировать массив X(N), N-й член которого определяется формулой X(N)=1/N!.

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

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

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

1.

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

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

1.

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

2. Написать программу вычисления суммы 1+1/2+1/3+…+1/n для зааданного числа n. Результат представить в виде несократимой дроби p/q ( p, q – натуральные).

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

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

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

Тема: Множества

Вариант Задания

1 1. Заданы имена девочек. Определить, какие из этих имен встречаются во всех классах данной параллели, которые есть только в некоторых классах и какие из этих имен не встречаются ни в одном классе.

2 1. Задан некоторый набор товаров. Определить для каждого из товаров, какие из них имеются в каждом магазине и каких товаров нет ни в одном магазине.

2. Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст.

1.

4 1. Имеется множество, содержащее натуральные числа из некоторого диапазона . Сформировать два множества, первые из которых содержит все простые числа из данного множества, а второе – все составные.

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

1.

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

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

7 1. В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры: возделываемые во всех колхозах; возделываемые только в некоторых колхозах.

2. Подсчитать количество различных цифр в десятичной записи натурального числа.

8 1. Есть список игрушек, некоторые из которых имеются в n детских садах. Определить игрушки из списка: которых нет ни в одном из детсадов; которые есть в каждом из детсадов.

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

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

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

10 1. Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.

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

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

Тема: Записи

Вариант Задания

1 1. Распечатать список учеников, фамилии которых начинаются

на букву В, с указанием даты их рождения.

2 1. Из данного списка спортсменов распечатать сведения о тех

из них, кто занимается плаванием. Указать возраст, сколько

лет они занимаются спортом.

2. В таблице хранятся следующие данные об учениках:

фамилия, имя, отчество, рост, масса. Вычислить, каков

средний рост учеников, рост самого высокого и самого

низкого учеников.

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

2. На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости: наименование лекарственного препарата, количество, цена, срок хранения (в месяцах). Выяснить сколько стоит самый дорогой и самый дешевый препарат; сколько препаратов хранится на складе

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

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

5

6 1. Распечатать список учеников музыкальной школы, которые учатся играть на скрипке. Указать также, сколько лет они занимаются музыкой и принимали ли участие в каких- либо конкурсах.

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

8 1. Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть. В каких классах учатся эти ученики? Каков их средний балл?

2. В таблице хранятся следующие данные об учениках: фамилия, имя, отчество, рост, масса. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см?

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

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

.

11 1. Распечатать анкетные данные учеников, участвовавших в олимпиаде по информатике и заработавших не менее 30 баллов.

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

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

2. Составить программу назначения стипендии студентам по результатам сессии, используя следующие правила:1) если все оценки 5, назначается повышенная стипендия; 2) если все оценки 4 и 5, назначается обычная стипендия; 3) если есть оценка 3, то стипендия не назначается. В результате работы программы должны быть напечатаны два списка фамилий (назначенных на повышенную и обычную стипендию)

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

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

Тема: Файловый тип данных.

Вариант Задания

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

2. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Определить, имеется ли книга с названием «Информатика». Если да, то напечатать фамилию автора и год издания. Если таких книг несколько, то напечатать все имеющиеся о них сведения.

3 1. Записать файл f последовательного доступа N натуральных чисел. Получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны K. Вывести полученный файл на печать.

2. Дан файл T, который содержит номера телефонов сотрудников учреждения: указываются фамилия, инициалы и номер телефона. Найти фамилию и инициалы сотрудника по его номеру телефона.

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

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

6 1. Записать в файл прямого доступа N действительных чисел. Найти наибольшее из значений модулей компонентов с нечётными номерами.

2. Дан файл tovar, содержащий сведения об экспортируемых товарах: указываются наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар, и указать общий объем его экспорта.

8 1. Записать в файл последовательного доступа N действительных чисел. Найти разность первого и последнего компонентов файла.

2. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Есть ли среди них дата вашего рождения?

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

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

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

11 1. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания.

Найти названия книг данного автора, изданных начиная с 1960 г.

2. Записать в файл последовательного доступа N действительных чисел. Найти разность наибольшего из этих чисел со средним арифметическим всех положительных чисел файла.

12 1. Дан файл T, который содержит номера телефонов сотрудников учреждения: указываются фамилия, инициалы и номер телефона. Найти номер телефона сотрудника по его фамилии и инициалам

2. Записать в файл последовательного доступа N действительных чисел. Найти среднее геометрическое компонентов файла.

13 1. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти год с наименьшим номером.

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

Тема: Строки

Вариант Задания

2 1. Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.

2. Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

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

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

6 1. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.

2. Удалить часть символьной строки, заключенной в скобки (вместе со скобками)

8 1. Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *.

2. В строке имеется точка с запятой (;). Подсчитать количество символов до точки с запятой и после нее.

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

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

11 1. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.

2. В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение.

12 1. Дана строка. Подсчитать самую длинную последовательность подряд идущих букв a.

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

15 1. Дана строка. Указать те слова, которые содержат хотя бы одну букву k.

Выдержка из текста работы

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

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

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

Программа 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);

writeln(nod(h));

readln

end.

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

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

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

Программа 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

i,j,r:integer;

begin

readln(r);

for i:=r+1 to 2*r-1 do

begin

if proc(i-1)and proc(i+1) then writeln(i-1,\' \',i+1);

end;

readln

end.

Программа 2

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

i,j,r:integer;

begin

readln(r);

for i:=r+1 to 2*r-1 do

begin

if proc(i-1)and proc(i+1) then writeln(i-1,\' \',i+1);

end;

readln

end.

Заключение

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

1. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.

2. Удалить часть символьной строки, заключенной в скобки (вместе со скобками)

Программа 1

var

s:string;

i,j:integer;

begin

readln(s);

for i:=1 to length(s) do

if s[i]=\':\' then break;

writeln(i-1);

readln

end.

Программа 2

var

s,s1:string;

i,j,k,l:integer;

begin

readln(s);

k:=0;

for i:=1 to length(s) do

begin

if (s[i]=\'(\')then k:=1;

if k<>1 then s1:=s1+s[i];

if s[i]=\')\' then k:=0;

end;

writeln(s1);

readln

end.

Список литературы

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

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

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

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

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

Примечания

Готовые решения задач на языке Паскаль В2,4,6,8,9,11,12

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