Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
РЕАЛІЗАЦІЯ РОЗГАЛУЖЕНЬ У PASCAL
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра інформаційних систем та мереж
Інформація про роботу
Рік:
2012
Тип роботи:
Лабораторна робота
Предмет:
Інші
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра інформаційних
систем та мереж
Лабораторна робота №4
на тему
РЕАЛІЗАЦІЯ РОЗГАЛУЖЕНЬ У PASCAL
Львів-2009
Мета роботи
Ознайомитись із операторами керування мови Pascal, простими та складеними, умовними та безумовними операторами.
Перший рівень На основі прикладів 1-2, наведених у методичних вказівках, продемонстуйте особливості використання операторів умовного переходу та вибору.
program laba4_1;
uses crt;
var a,b : real;
i :integer;
begin clrscr;
writeln ('vvedit vartist pokupky ');
read (a);
if a<=0 then writeln ('nepravelna vartist pokupky') else
begin
writeln ('vvedit kilkist mis9civ v programi lo9lnosti');
read (i);
case i of
1 : b:=a-a*(0.5/100);
2 : b:=a-a*(1/100);
3 : b:=a-a*(1.5/100);
4 : b:=a-a*(2/100);
5,6 :b:=a-a*(3/100);
7,8 :b:=a-a*(4/100);
9,10 :b:=a-a*(5/100);
11,12 :b:=a-a*(6/100);
else
b:=a-a*(10/100);
end;
writeln;
writeln ('Vartist vashoi pokupku iz vrahuvann9m skytky stanovyt ',b:5:2,' grn');
end;
readkey;
end.
Другий рівень
Скласти програму згідно номера варіанту для знаходження змінної у для відповідних значень х, використовуючи оператор умовного переходу. Вивести на друк значення аргументу, функції та проміжних величин. Передбачити у програмі обхід арифметичних операцій, які при певних значеннях аргументу можуть давати невизначений результат (ділення на нуль, корінь з від’ємного числа, логарифмування числа, меншого за нуль).
program laba4_2;
uses crt;
var
x,a,b,c,y :real;
K,L : integer;
begin
write ('x='); read (x);
write ('k='); read (k);
write ('l='); read (l);
if (x=PI/2) or (x=-PI/2) then writeln ('dilenn9 na 0');
if (l=PI/2) or (l=-PI/2) then writeln ('dilenn9 na 0');
a:=exp(0.1*ln(exp(0.1*ln(10)*(sin(x)/cos(x)))));
b:=exp(15*ln(k+exp(0.2*ln((sin(l)/cos(l))))));
if (a+b)>5 then y:=sin(PI*a+exp(b)) else y:=sin(PI*a+b);
writeln (a:8:3,b:8:3);
writeln;
writeln (y:8:2,'pru ', x:8);
end.
.
Третій рівень
Скласти програму для розв’язування наведеного завдання двома способами, використовуючи
1) команду case; 2) команду if.Придумати і задати вхідні дані так, щоб вибір був із 4-6 альтернатив.
Ввести першу букву назви області. Вивести столицю області.
program laba4_3;
uses crt;
var
b : char;
begin
readln (b);
case b of
'a' : Writeln ('Simferopol');
'v' : writeln ('Vinnyc9 Luck');
'd' : writeln ('Doneck Dnipropetrovsk');
'l' : writeln ('Lugansk Lviv');
's' : writeln ('Sumy');
'k' : writeln ('Kyiv');
't' : writeln ('Ternopil');
end;
readkey;
end.
program laba4_32;
uses crt;
var
b : char;
begin
readln (b);
if b='a' then Writeln ('Simferopol');
if b='v' then writeln ('Vinnyc9 Luck');
if b='l' then writeln ('Lugansk Lviv');
if b='s' then writeln ('Sumy');
if b='k' then writeln ('Kyiv');
if b='t' then writeln ('Ternopil');
readkey;
end.
15.03.2012 12:52
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора