Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Pascal
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут економіки і менеджменту
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2006
Тип роботи:
Розрахункова робота
Предмет:
Інформатика
Група:
МЕ
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Інститут економіки і менеджменту
Розрахункова робота з інформатики
по темі «Pascal»
Варіант № 21
Задача №1(2) про трикутник
Трикутник задано координатами вершин А(0;0), B(21;20), та C(-21;22);
Обчислити висоту h[c] та бісектрису w[b];
Програма
program zav2;
Uses Crt;
Var x1,x2,x3,y1,y2,y3,a,b,c,s,h,p,w:real;
begin clrscr;
writeln('vvedit koordynaty');
readln(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x3-x2)+sqr(y3-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x1-x2)+sqr(y1-y2));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
h:=2*s/c;
w:=2/(a+c)*sqrt(a*c*p*(p-b));
writeln('vysota- ',h:5:2,' bisektrysa- ',w:5:2);
readln
end.
Результати
vvedit koordynaty
0 0 21 20 -21 22
vysota- 30.41 bisektrysa- 31.56
Задача №2(3b) Розгалуження.
. Нехай оплата робіт залежить від типу виконаної роботи чи виду підприємницької д-сті (A,B,C) і нараховується за формулою
Для робіт типу a
LL
Для робіт типу b
Для робіт типу с
Де i номер варіанта. Для робіт типу А податок складає-10%, для робіт типу В податок складає-15%, для робіт типу С-20%. Увести тип робіт. Вивести нараховану суму, суму податку та суму до видачі.
Програма
Program zav3b;
Uses Crt;
const i=21;
Var y,s,p:real;x:char;
begin clrscr;
writeln('vvedit typ roboty'); readln(x);
if x='a' then
y:=100*sin(abs(i))/0.1+9.4*sin(3*i-2.5)+50;
p:=y*0.1; s:=y-p;
if x='b' then
y:=150*10.8*abs(cos((i*i)*0/1.13))*sin(i+1.4)+100;
p:=y*0.15; s:=y-p;
if x='c' then
y:=200*11.2*cos(2*i-1)+abs(sin(1.5*i))/1.7+135;
p:=y*0.2; s:=y-p;
writeln('podatok= ',p:7:2);
writeln('narahovana suma= ',y:7:2);
writeln('suma do vydachi= ',s:7:2);
writeln('variant=',i);
readln
end.
Результати
vvedit typ roboty
c
podatok= -415.32
narahovana suma= -2076.59
suma do vydachi= -1661.27
variant=21
Задача №3(4) Вибір.
Скласти програму для розв’язування наведеного завдання.
Ввести першу букву назви річки. Вивести довідку про її довжину.
Програма
program ZAV4;
Uses Crt;
Var n:char;
begin clrscr;
writeln('vvedit pershu bukvu nazvy richky');
readln(n);
case n of
'D': writeln('Dnipro - 2250 km');
'N': writeln('Nil - 3500 km');
'V': writeln('Visla - 1200 km');
'S': writeln('San - 750 km');
'A': writeln('Amazonka - 4025 km');
else writeln('tilky 5 richok');
end;
readln
end.
Результати
vvedit pershu bukvu nazvy richky
A
Amazonka - 4025 km
Задача №4(5) Цикли. Таблиця мір.
Протабулювати таблицю відповідностей між мірами. Початкове значення міри, крок, зміни цього значення та кількість рядків у таблиці задати самостійно у режимі діалогу. Оформити таблицю якнайкраще, використовуючи формати виведення.
1 ярд=0,9144 м=3 фути;
Програма
Program zav5vika;
Uses crt;
const line='+++++-----++++++-----+++++';
Var yard,metr,fut,krok:real; i,kil:integer;
begin clrscr;
writeln('vvesty znachennya');
readln(metr);
writeln('vvesty krok');
readln(krok);
writeln('vvesty kilkist ryadkiv');
readln(kil);
writeln;
writeln(line);
writeln('yard metr fut');
writeln(line);
for i:=1 to kil do begin
yard:=0.9144*metr;
fut:=yard/3;
writeln(yard:7:3, metr:10:3,fut:10:3);
metr:=metr+krok;
end;
writeln(line);
readln
end.
Результати
vvesty znachennya
5
vvesty krok
2
vvesty kilkist ryadkiv
4
+++++-----++++++-----+++++
yard metr fut
+++++-----++++++-----+++++
4.572 5.000 1.524
6.401 7.000 2.134
8.230 9.000 2.743
10.058 11.000 3.353
+++++-----++++++-----+++++
Задача №5(6) Цикли. Обчислення скінченних сум і добутків.
Обчислити значення виразу для z. z=tg(a+b);
Програма
program zav6;
Uses crt;
Var x:integer; a,b,z:real;
begin clrscr;
a:=0;
for x:=21 to 29 do begin
a:=a+9.2*cos(x*x)-abs(sin(x)/1.1);
writeln('a=',a:10:2);
end;
b:=1;
for x:=21 to 26 do begin
b:=b*12.4*sin(abs(x/2.1))-8.3*cos(1.2*x);
writeln('b=',b:10:2);end;
z:=sin(a+b)/cos(a+b);
writeln('z=',z:10:4); readln
end.
Результат
a= 2.77
a= 11.79
a= 14.24
a= 9.15
a= -0.02
a= -8.52
a= -0.30
a= 1.04
a= 5.81
b= -15.03
b= 159.28
b= -1966.77
b= 22144.45
b=-168706.50
b= 385660.76
z= 16.5705
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора