Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
ОРГАНІЗАЦІЯ ПІДПРОГРАМ
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 4
з дисципліни
“Основи програмування ”
Тема: ОРГАНІЗАЦІЯ ПІДПРОГРАМ
Постановка задачі
Задане натуральне число n. З’ясувати, чи є серед чисел n, n + 1, …, 2(n числа-близнюки, тобто прості числа, різниця між якими дорівнює двом. Вивести усі пари таких близнюків.
аналітичні викладки
Прості числа-близнюки це пара простих чисел, різниця між якими становить 2.
Всі пари простих-близнюків крім (3, 5) мають вид 6n+-1.
Справді для будь-якої пари простих чисел-близнюків число, що знаходиться між ними є очевидно парним. Також воно ділиться на 3, оскільки з трьох послідовних чисел одне має ділитися на три. Тому дане число також ділиться на 6, а двоє сусідніх чисел мають вид 6n+-1.
блок-схема алгоритму
текст програми.
program lab4;
uses crt;
var
n,k1,b2,b3,{vvodimoe zna4enie}
l:integer;
q:string; {flag povtoreniy programi}
procedure bliz (j:integer; var b,b1:integer); {proverka bliznec}
var i,k{peremenaya cikla}
:integer; {predideshie prost 4iclo}
function pros(r,s:integer):integer; {funkciya delenia}
begin
pros:=r mod s;
end;
begin
K:=0;
b1:=b; {prisvoenoe ctarogo prost 4icla}
for i:=1 to j do
begin
if pros(j,i)=0 then
k:=k+1; {pods4et dilitelei}
end;
if k=2 then
b:=j; {prisvoenie prostogo 4isla}
k:=0; {obnylenie shet4ika}
end;
begin {osnovnaya programa}
clrscr;
writeln ('Laboratorna robota 4');
writeln ('Variant 15');
writeln('vikonav Kononec German ip-02');
q:='yes'; {startovoe zna4enie vneshnego cikla}
while (q='yes') or (q='Y') or (q='y') do {yslovie}
begin
write('vvidite n=');
readln(n); {vvod 4isla n}
if n>2 then
for l:=n-1 to 2*n do {cikl c 4islom n}
begin
bliz(l,b2,b3); {procedura}
if b2-b3=2 then {proverka bliznicov}
writeln(b3,' i ',b2,' blizneci'); {vivod}end
else writeln('v zadanom promezytke bliznecov net, ili neverno vvedeno znachenie');
writeln('povtorit` program? (yes\no)'); {zapros na povtor programi}
readln(q); {vvidenie zna4enia cikla}
end;
end. {konec}
Відеокопія результату
/
Висновок
Навчився складати програми використовуючи підпрограми. Освоїв можливості передачі даних у підпрограми та повернення їх до основної програми. Викликати підпрограму багато разів або з тіла іншої підпрограми. Також побачив різницю між процедурою та функцією у мові програмування pascal.
/
25.02.2013 16:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора