Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
DevioLab
CRYPTO TRADING AUTOMATION
LIVE
AUTOMATED CRYPTO TRADING • BINANCE
Автоматизуйте свій
криптопортфель
Торгові боти DevioLab аналізують крипторинок,
автоматично відкривають і закривають позиції
та керують вашим портфелем на Binance 24/7.
CRYPTO
80 Bots
BINANCE
Spot Trading
TRADING
24 / 7
deviolab.com
Pascal
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут економіки і менеджменту
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2015
Тип роботи:
Розрахункова робота
Предмет:
Інформатика
Група:
МЕ
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Інститут економіки і менеджменту
Розрахункова робота з інформатики
по темі «Pascal»
Варіант № 20
ЛЬВІВ – 2006
Задача №1(3b) Розгалуження. Нехай оплата робіт залежить від типу виконаної роботи чи виду підприємницької д-сті (a,b,c) І нараховується за формулою
Для робіт типу a
LL
Для робіт типу b
Для робіт типу с
Program zav3b;
Uses Crt;
Var y:real;x:string;
begin clrscr;
writeln('vvedit x'); readln(x);
if x='a' then
y:=100*abs(2*sin(abs(2*20))*cos(2*20)-11.6*sin(20/0.4-1)+50);
if x='b' then
y:=150*abs(sin(abs(20))/0.1+9.4*sin(3*20-2.5)+100)
else if x='c' then
y:=200*abs(sin(abs(20))/0.1+9.4*sin(3*20-2.5)+135);
writeln('y=',y:7:2);
readln
end.
Результати
vvedit x
b
y=17517.43
Задача №2(4) Вибір. Скласти програму для розв’язування наведеного завдання
Ввести номер поїзда. Вивести довідку про час відправлення.
program ZAV4;
Uses Crt;
Var n:integer;const line='---------------------------------------';
begin clrscr;
writeln('vvedit nomer poizda...');
readln(n);
case n of
1: writeln('vidpravlennya v 9.30');
2..5: writeln('vidpravlennya v 11.00');
6..7: writeln('vidpravlennya v 11.30');
8: writeln('vidpravlennya v 12.00');
9: writeln('vidpravlennya v 16.30');
else writeln('tilky 9 poyizdiv');
end;
readln
end.
Результати
vvedit nomer poizda...
5
vidpravlennya 11.00
Задача №3(5) Цикли. Таблиця мір.
Протабулювати таблицю відповідностей між мірами. Початкове значення міри, крок, зміни цього значення та кількість рядків у таблиці задати самостійно у режимі діалогу. Оформити таблицю якнайкраще, використовуючи формати виведення.
1 фут=0,3048м=12 дюймів
Program zav5vika;
Uses crt;
const line='----------------------------';
Var fut,metr,dujm,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('fut metr dujm');
writeln(line);
for i:=1 to kil do begin
fut:=0.3048*metr;
dujm:=fut/2.25;
writeln(fut:7:2, metr:7:2, dujm:7:2);
metr:=metr+krok;
end;
writeln(line);
readln
end.
Результати
vvesty znachennya
2
vvesty krok
1
vvesty kilkist ryadkiv
7
----------------------------
fut metr dujm
----------------------------
0.61 2.00 0.27
0.91 3.00 0.41
1.22 4.00 0.54
1.52 5.00 0.68
1.83 6.00 0.81
2.13 7.00 0.95
2.44 8.00 1.08
----------------------------
Задача №4(6) Цикли. Обчислення скінченних сум і добутків.
Обчислити значення виразу для z. z=2a-b;
program zav6;
Uses crt;
Var x:integer; a,b,z:real;
begin clrscr;
a:=0;
for x:=20 to 28 do begin
a:=a+11.2*cos(2*x-1)+abs(sin(1.5*x))/1.7;
writeln('a=',a:10:4);
end;
b:=1;
for x:=20 to 25 do
b:=b*9.2*cos(x*x)-abs(sin(x)/1.1);
writeln('b=',b:10:4);
z:=2*a-b;
writeln('z=',z:10:4); readln
end.
Результати
a= 3.5676
a= -7.4412
a= -0.6358
a= 5.2817
a= -5.2491
a= -1.7661
a= 7.1130
a= -2.9752
a= -2.1883
b=-23374.7508
z=23370.3742
Задача №5 (8) Цикли. Табулювання функції і пошук даних.
Протабулювати функцію y=abs(cos(x)/2.7)+9.1*sin(1.2*x+1); на проміжку (0;20( з кроком h=0.1*20. Результати обчислень вивести на екран у вигляді таблиці пар чисел x,y.
program Zav8;
Uses Crt;
Var x,h,y,k,s:real; i:integer;
begin clrscr;
x:=0; h:=2; k:=0; s:=0;
for i:=1 to 20 do begin
y:=abs(cos(x)/2.7)+9.1*sin(1.2*x+1);
if y>0 then begin
k:=k+1; s:=s+(y*y*y);
end;
x:=x+h;
writeln('x=',x:5:1,' y=',y:5:2);
end;
writeln;
writeln('k=',k:3:0,' s=',s:5:0);
readln
end.
Результати
x= 2.0 y= 8.03
x= 4.0 y=-2.17
x= 6.0 y=-3.99
x= 8.0 y= 8.92
x= 10.0 y=-8.34
x= 12.0 y= 4.13
x= 14.0 y= 3.07
x= 16.0 y=-7.84
x= 18.0 y= 9.23
x= 20.0 y=-4.96
x= 22.0 y=-1.05
x= 24.0 y= 7.35
x= 26.0 y=-8.93
x= 28.0 y= 6.67
x= 30.0 y=-0.03
x= 32.0 y=-5.80
x= 34.0 y= 9.33
x= 36.0 y=-7.14
x= 38.0 y= 2.01
x= 40.0 y= 4.91
k= 10 s= 3746
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора