Результати роботи програми
Міністерство освіти і науки, молоді та спорту України
Черкаський державний технологічний університет
Факультет інформаційних технологій і систем
Кафедра комп’ютерних технологій
Дисципліна:
Теорія алгоритмів
З В І Т
З лабораторної роботи № 1-2
Тема: „Алгоритми та їх властивості”
студента 2-го курсу спеціальності «_____________________________»
Бондар Олени Володимирівни
_________________ ______________
(Дата) (Підпис студента)
Оцінка __________________
Перевірено ______________
(Дата)
Викладач ________________ /_____________________/
(Підпис) (Прізвище та ініціали)
Черкаси – 2012 р.
З В І Т
про виконання індивідуального завдання № 1
Тема:„Алгоритми та їх властивості”
Мета роботи:ознайомитись з інтуїтивним поняттям алгоритму, властивостями алгоритмів, зі способами їх подання та розглянути приклади алгоритмів; дізнатись про базові структури алгоритмів та про їх реалізацію в мовах програмування (Pascal, C) а також ознайомитись з основними типами алгоритмів та розглянути приклади алгоритмів різних типів.
Завдання
Завдання 1.Побудувати алгоритм знаходження дійсних коренів квадратного рівняння , де a,b,c – довільні дійсні числа.
Виконання:
Блок-схема
 | |
 |
+ -
 |  | ||
+ -
 |  | ||||
 | |||||
+ -
 | |||||
 | |||||
 | |||||
 |
+ -
 |  | ||
 |  | ||||
 | |||||
+ -
 |  |
 | |||||||
 | |||||||
 | |||||||
 |
 |
Лістинг програми (Pascal)
Programrivnannya;
usescrt;
vara,b,c,D,x,x1,x2:real;
Begin
clrscr;
writeln('Znahodzhennya koreniv kvadratnogo r-nnya');
writeln('Vvedit koefisienty r-nnya');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if(a=0) and(b=0) and(c=0)
Then
writeln('R-nnya mae bezlich koreniv')
Else
Begin
if(a=0) and(b=0) and(c<>0)
Then
writeln ('Koreniv nenae')
Else
Begin
if(a=0) and(b<>0) and(c<>0)
Then
Begin
x:=-c/b;
writeln('x=',x:6:2);
End
Else
Begin
if(a=0) and(b<>0) and(c=0) or(a<>0) and(b=0) and(c=0)
Then
writeln('x=0')
Else
Begin
D:=sqr(b)-4*a*c;
ifD>=0
Then
Begin
x1:=(-b+sqrt(D))/2*a;
x2:=(-b-sqrt(D))/2*a;
writeln('x1=',x1:6:2,'x2=',x2:6:2);
End
Else
writeln('Diysnuh koreniv nemae');
end;
end;
end;
end;
readkey;
end.
Результати роботи програми
Рис.1
Рис.2
Завдання 2.Задано довжини трьох відрізків a,b,c. Скласти алгоритм, за допомогою якого можна визначити чи існує трикутник із сторонами a,b,c чи ні і якщо трикутник існує, то знайти його площу за допомогою формули Герона.
Виконання:
Блок-схема
 |
 |
+ -
 |  | ||
 |
 | |||
 | |||
 |
Лістинг програми (Pascal)
Programheron;
usescrt;
vara,b,c,p,S: real;
Begin
clrscr;
writeln('Isnyvannya trikytnika');
writeln('Vvestu dovzhiny storin');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if(a+b>c) and(a+c>b) and(b+c>a)
Then
Begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Trikutnuk isnue i mae ploschy S=',S:6:2);
End
Else
writeln('Trikutnuk ne isnye');
readkey;
end.
Результати роботи програми
Рис.3
Завдання 3.Задано два натуральних числа a,b. Побудувати алгоритм Евкліда для знаходження НСД цих чисел.
Виконання:
Блок-схема
 |
 |
+ -
 |  |
 |  | ||||
 | |||||
 |
Лістинг програми (Pascal)
programevklid;
usescrt;
vara, b :integer;
functionnsd(x, y : integer):integer;
Begin
ifx<>0 thennsd:=nsd(y modx, x)
elsensd:=y;
end;
Begin
writeln('Vvedit chisla a i b: ');
write('a = '); readln(a);
write('b = '); readln(b);
writeln('NSD chisel ', a, ' i ', b, ' = ', nsd(a, b));
readkey;
end.
Результати роботи програми
Рис.4
Завдання 4.Скласти алгоритм, за допомогою якого можна знайти кількість натуральних чотирьохзначних чисел, які діляться на 23 і свою останню цифру.
Виконання:
Блок-схема
 |
 |
+ -
 |  | ||
 |
+
+
 |
 |
 | |||
 | |||
Лістинг програми (Pascal)
programd23;
usescrt;
vari,k: integer;
Begin
clrscr;
i := 989;
k:=0;
writeln('Dilyatsia na 23:');
Repeat