«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В11. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.» - Контрольная работа

Содержание

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.

Есть блок-схемы