МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА” Інститут економіки і менеджменту Розрахункова робота з інформатики по темі «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