Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Pascal
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут економіки і менеджменту
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2006
Тип роботи:
Розрахункова робота
Предмет:
Інформатика
Група:
МЕ
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Інститут економіки і менеджменту
Розрахункова робота з інформатики
по темі «Pascal»
Варіант № 24
Задача №1(5) Цикли. Таблиця мір.
Протабулювати таблицю відповідностей між мірами. Початкове значення міри, крок, зміни цього значення та кількість рядків у таблиці задати самостійно у режимі діалогу. Оформити таблицю якнайкраще, використовуючи формати виведення.
1 дюйм=2,54 см=12 ліній.
Program zav5;
Uses crt;
const line='+++--------++++-----------+++';
Var dujm,san,krok,lin:real; i,kil:integer;
begin clrscr;
writeln('vvesty znachennya');
readln(san);
writeln('vvesty krok');
readln(krok);
writeln('vvesty kilkist ryadkiv');
readln(kil);
writeln;
writeln(line);
writeln('dujm san lin');
writeln(line);
for i:=1 to kil do begin
dujm:=2.54*san;
lin:=dujm/12;
writeln(dujm:7:2, san:7:2, lin:7:2);
san:=san+krok;
end;
writeln(line);
writeln('The work is done by Volodymyr Solchanyk');
readln
end.
Результати
vvesty znachennya
5
vvesty krok
1
vvesty kilkist ryadkiv
6
+++--------++++-----------+++
dujm san lin
+++--------++++-----------+++
12.70 5.00 1.06
15.24 6.00 1.27
17.78 7.00 1.48
20.32 8.00 1.69
22.86 9.00 1.91
25.40 10.00 2.12
+++--------++++-----------+++
The work is done by Volodymyr Solchanyk
Задача №2(6) Цикли. Обчислення скінченних сум і добутків.
Обчислити значення виразу для z. Z=4a+exp(b);
program zav6;
Uses crt;
Var x:integer; a,b,z:real;
begin clrscr;
a:=0;
for x:=24 to 32 do begin
a:=a+abs(sin(x)/3.12+cos(x*x))*8.3*sin(3*x);
writeln('a=',a:10:4);
end;
b:=1;
for x:=24 to 29 do
b:=b*cos(abs(2*x))/1.12-cos(3*x-2)+6.15;
writeln('b=',b:10:4);
z:=4*a+exp(b);
writeln('z=',z:10:4); readln
end.
Результати
a= 1.5885
a= -1.7163
a= 0.8609
a= -5.9106
a= -4.3369
a= -6.8713
a= -5.0131
a= -11.4466
a= -1.9432
b= 8.0366
z= 3084.3790
Задача№3 (7а) Цикли. Обчислення нескінченних сум.
Утворити нескінченно спадну числову послідовність.
k=1,2,…
Обчислити суму цієї послідовності з точністю e=0,001. Скільки потрібно доданків для досягнення заданої точності?
program zav7a;
Uses Crt;
var s,a,k,e:real;
begin clrscr;
s:=0; e:=0.001; k:=1; a:=1/k;
while a>=e do
begin
a:=sin(k)*cos(k*k)*sin(k+1.4)+5.14/k;
s:=s+a;
k:=k+1;
writeln('a=',a:5:2);
end;
writeln('suma=',s:5:2);
writeln('kilkist=',k:3:0);
readln
end.
Результати
a= 5.45
a= 2.72
a= 1.84
a= 0.72
a= 0.92
a= 0.89
a= 0.90
a= 0.65
a= 0.31
a= 0.95
a= 0.46
a= 0.08
a= 0.72
a= 0.47
a= 0.19
a= 0.31
a= 0.72
a= 0.64
a= 0.13
a=-0.01
suma=19.05
kilkist= 21
Задача №4 (8) Цикли. Табулювання функції і пошук даних.
Протабулювати функцію y=(sin(2x-1.5)+3sin(x*x)(+2.38 на проміжку (0;24( з кроком h=0.1*24. Результати обчислень вивести на екран у вигляді таблиці пар чисел x,y.
Обчислити кількість та добуток тих значень функції y, для яких виконуються нерівності 1,3<y<5. Якщо шуканих даних немає, вивести про це повідомлення.
program Zav8;
Uses Crt;
Var x,h,y,k,d:real; i:integer;
begin clrscr;
x:=0; h:=2.4; k:=0; d:=1;
for i:=1 to 24 do begin
y:=abs(sin(2*x-1.5)+3*sin(x*x))+2.38;
if (y>1.3) and (y<5) then begin
k:=k+1; d:=d*y;
end;
x:=x+h;
writeln('x=',x:5:1,' y=',y:5:2);
end;
writeln;
writeln('k=',k:3:0,' d=',d:10:0);
readln
end.
Результати.
x= 2.4 y= 3.38
x= 4.8 y= 4.04
x= 7.2 y= 4.01
x= 9.6 y= 5.71
x= 12.0 y= 5.90
x= 14.4 y= 4.34
x= 16.8 y= 3.25
x= 19.2 y= 3.20
x= 21.6 y= 5.73
x= 24.0 y= 4.62
x= 26.4 y= 4.45
x= 28.8 y= 2.89
x= 31.2 y= 2.64
x= 33.6 y= 4.63
x= 36.0 y= 4.82
x= 38.4 y= 6.35
x= 40.8 y= 5.22
x= 43.2 y= 4.56
x= 45.6 y= 2.70
x= 48.0 y= 2.49
x= 50.4 y= 4.94
x= 52.8 y= 4.39
x= 55.2 y= 5.64
x= 57.6 y= 2.41
k= 18 d=13831453012
Задача №5 (9) Одновимірні масиви.
Нехай прибуток фірми за k-тий рік обчислюється за формулою y[k]=100(cos(x*x)*sin(2x-1)+4.29) умовних одиниць, де k=1991,2000…2001. Якщо y[k]>0, то вважатимемо, що фірма у відповідний рік мала прибуток, а у випадку y[k]<0-збитки. Вивести на екран таблицю: номер року, величина прибутку.
Обчислити суму прибутків, які були в межах 15<y[k]<58. У якому році збитки були найбільші?
program zav9;
Uses Crt;
type prybutok=array[1991..2001] of real;
Var y:prybutok; k:integer; s:real;
begin clrscr;
s:=0;
for k:=1991 to 2001 do
begin
y[k]:=100*cos(k*k)*sin(2*k-1)+4.29;
if (y[k]>15) and (y[k]<58) then
s:=s+y[k];
write('za ', k,' rik=');
write(y[k]:7:2);
if y[k]>0 then writeln(' - prybutok; ')
else writeln(' - zbytky; ');
end;
writeln('suma prybutkiv v megah vid 15 do 58=',s:7:2);
readln
end.
Результати.
za 1991 rik= 46.76 - prybutok;
za 1992 rik= -40.84 - zbytky;
za 1993 rik= 61.10 - prybutok;
za 1994 rik= 13.24 - prybutok;
za 1995 rik= 70.01 - prybutok;
za 1996 rik= 10.31 - prybutok;
za 1997 rik= 4.65 - prybutok;
za 1998 rik= -71.16 - zbytky;
za 1999 rik= 12.91 - prybutok;
za 2000 rik= -4.30 - zbytky;
za 2001 rik= 101.12 - prybutok;
suma prybutkiv v megah vid 15 do 58= 46.76
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора