Контрольная работа

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

15 страниц

Содержание

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. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем, причем М>=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 Множества, Сортировки, Подпрограммы, Записи, Файлы В8. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем»
	Раздел:	Программирование, Базы данных
	Тип:	Контрольная работа
	Страниц:	15
	Цена:	400 руб.