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

1. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем, причем М>=10.

2.Составить программу, проверяющую, является ли заданное натуральное число совершенным.

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

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

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

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

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

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

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

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

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

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

uses crt;

type

sport=record

im:string[80];

rost,mas:integer;

end;

var

tab:array[1.100] of sport;

i,j,k,l,m,r:integer;

begin

clrscr;

m:=0;

r:=32000;

repeat

i:=i+1;

delline;writeln;

writeln('*****************************************************************************');

write('Введите имя :');readln(tab[i].im);

write(' рост:');readln(tab[i].rost);

write(' масса:');readln(tab[i].mas);

write('***Добавить еще***');

if tab[i].rost >=170 then k:=k+1;

until readkey<>#13;

writeln;

writeln('-----------------<Ответ>-----------------');

writeln('Баскетболом могут заниматся ',k,' человек');

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 Множества, Сортировки, Подпрограммы, Записи, Файлы В9. Разработать программу поиска и печати всех чисел-близнецов, принадлежащих заданному диапазону

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

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

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