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. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.
2.Найти все трехзначные числа, сумма цифр которых равна А, кратное В (А и В вводят с клавиатуры)
Отчет по второй лабораторной работе(ПРЗ)
Постановка задачи
1. Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.
2 Найти все простые натуральные числа, не превосходящие n, двоичная запись которых представляет собой палиндром.
Задание:
1. Распечатать анкетные данные учеников, участвовавших в олимпиаде по информатике и заработавших не менее 30 баллов.
2. Распечатать список учеников музыкальной школы, которые учатся играть на скрипке. Указать также, кто из них играет на каком либо другом инструменте и владеет английским языком.
Отчет по 5 лабораторной работе.
ТЕМА:
1. Дан файл bibl, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания.
Найти названия книг данного автора, изданных начиная с 1960 г.
2. Записать в файл последовательного доступа N действительных чисел. Найти разность наибольшего из этих чисел со средним арифметическим всех положительных чисел файла.
Строки
1. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.
2. В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение.
Отчет по первой лабораторной работе.
Тема:
Теория чисел
Задание:
1. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.
2.Найти все трехзначные числа, сумма цифр которых равна А, кратное В (А и В вводят с клавиатуры)
Программа:
uses crt;
function IntToStr(i:integer):string;
Var S : String [11];
Begin
Str(I, S);
IntToStr:=S;
End;
var
g:real;
u,e,a,b,i,j,k:integer;
s:string;
begin
writeln('1-e Zadanie');
randomize;
k:=random(10000);
writeln('N=',k);
for i:=1 to k-1 do
begin
if k mod i =0 then
begin
j:=j+i;
end;
end;
writeln('S=',j);
i:=0;j:=0;
writeln('2-e zadinie');
writeln('Vvedite a b');
readln(a,b);
for i:=100 to 999 do
begin
s:=inttostr(i);
e:=0;
for j:=1 to 3 do
begin
val(s[j],g,u);
e:=e+trunc(g);
end;
if (e=a)and(i mod b = 0 ) then begin write(i,' ');end;
e:=0;
end;
readln
end.
Программа 2
var
max,i,j,k,l,m:integer;
f,d:string;
a:array[1.100] of string;
begin
readln(d);
max:=0;
d:=' '+d+' ';
l:=0;
for i:=1 to length(d)-1 do
begin
if (d[i]=' ')and(d[i+1]<>' ') then
begin
k:=i;
l:=l+1;
repeat k:=k+1;a[l]:=a[l]+d[k];until d[k]=' ';
for m:=length(a[l]) downto 1 do write(a[l][m]);write(' ');
end;
end;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 Множества, Сортировки, Подпрограммы, Записи, Файлы В6. Дано простое число Р. Найти и вывести на экран следующее за ним простое число.
Контрольная работа:
Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В8. Разработать программу поиска трех простых чисел, предшествующих числу М, заданному пользователем
