Контрольная работа
«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В2. Составить программу разложения на простые множители введенного с клавиатуры натурального числа»
- 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.4. Лабораторная работа 1
Тема: Теория чисел
2
1. Составить программу разложения на простые множители введенного с клавиатуры натурального числа
2. В трехзначном числе зачеркнули первую цифру слева, когда полученное двузначное число умножили на 7, то получили исходное число. Найдите это число.
Лабораторная работа 2
Тема: Подпрограммы
Составить программу, вычертить блок-схему и получить решение следующих задач по вариантам. Первое задание выполнить с помощью процедур, второе – с помощью функций.
2
1. Даны две дроби A/В и С/D (A,B,C,D-натуральные числа). Составить программу для сложения дробей. Результат должен быть несократимой дробью.
2. Сформировать массив X(N), N-й член которого определяется формулой X(N)=1/N!.
3.4. Лабораторная работа 3
Тема: Множества
2
1. Задан некоторый набор товаров. Определить для каждого из товаров, какие из них имеются в каждом магазине и каких товаров нет ни в одном магазине.
2. Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст.
4.4. Лабораторная работа 4
Тема: Записи
2
1. Из данного списка спортсменов распечатать сведения о тех
из них, кто занимается плаванием. Указать возраст, сколько
лет они занимаются спортом.
2. В таблице хранятся следующие данные об учениках:
фамилия, имя, отчество, рост, масса. Вычислить, каков
средний рост учеников, рост самого высокого и самого
низкого учеников.
5.6. Лабораторная работа 5
Тема: Файловый тип данных.
2
1. Заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика случайных чисел. Найти сумму максимального и минимального элементов этого файла.
2. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Определить, имеется ли книга с названием «Информатика». Если да, то напечатать фамилию автора и год издания. Если таких книг несколько, то напечатать все имеющиеся о них сведения.
6.4. Лабораторная работа 6
Тема: Строки
2
1. Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.
2. Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.
procedure sum(a,b:integer;var a1,b1:integer);
var
nod,x,y:integer;
label 1;
begin
a1:=a;
b1:=b;
1:
x:=a1;
y:=b1;
Repeat
If (x>y) then x:= x mod y else y:= y mod x;
Until (x=0) or (y=0);
nod:=x+y;
if nod<>0 then
begin
a1:=trunc(a1/nod);
b1:=trunc(b1/nod);
end;
end;
var
i,j,k,l:integer;
a,b,c,d,a1,b1:integer;
begin
write('a/b');readln(a,b);
write('c/d');readln(c,d);
sum(a,b,a,b);
sum(c,d,c,d);
sum(a*d+c*b,d*b,a1,b1);
writeln('O⢥в:',a1,'/',b1);
readln
end.
var
f:text;
s1,s2,N,max,min,q,i:integer;
begin
randomize;
write('N=');readln(n);
assign(f,'input.txt');
rewrite(f);
for i:=1 to n do
begin
writeln(f,random(n));
end;
close(f);
max:=0;
min:=32000;
assign(f,'input.txt');
reset(f);
for i:=1 to n do
begin
readln(f,q);
write(q:4);
if q>max then max:=q;
if q close(f);
assign(f,'input.txt');
reset(f);
for i:=1 to n do
begin
readln(f,q);
if q=max then s1:=s1+q;
if q=min then s2:=s2+q;
end;
close(f);
writeln;
writeln('Max=',max);
writeln('Cг max=',s1);
writeln('Min=',min);
writeln('Cг min=',s2);
readln;
end.
1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.
2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.
3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.
4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.
5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.
Готовые решения задач на языке Паскаль
К работе прилагается все исходники с расширением .pas.
Тема: | «Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В2. Составить программу разложения на простые множители введенного с клавиатуры натурального числа» | |
Раздел: | Программирование, Базы данных | |
Тип: | Контрольная работа | |
Страниц: | 15 | |
Цена: | 400 руб. |
Закажите авторскую работу по вашему заданию.
- Цены ниже рыночных
- Удобный личный кабинет
- Необходимый уровень антиплагиата
- Прямое общение с исполнителем вашей работы
- Бесплатные доработки и консультации
- Минимальные сроки выполнения
Мы уже помогли 24535 студентам
Средний балл наших работ
- 4.89 из 5
написания вашей работы
682 автора
помогают студентам
23 задания
за последние сутки
10 минут
среднее время отклика
Контрольная работа
«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В2,4,6,8,9,11,12»Контрольная работа
«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В8. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем»Контрольная работа
«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В9. Разработать программу поиска и печати всех чисел-близнецов, принадлежащих заданному диапазону»Контрольная работа
«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В4. Разработать программу печати всех простых чисел в диапазоне от N до M»Контрольная работа
«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В11. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.»