Информатика ргр3 16 вар
.docxМИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН
Некоммерческое акционерное общество
«Алматинский университет энергетики и связи»
Факультет
Кафедра «Информационные системы»
РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА № 3
Вариант № 16
по теме: Использование возможностей программирования для решения
вычислительных задач.
по дисциплине: Информатика
Выполнила ст. группы БПС-11-3
Нуркыдырова А.
Проверил: доц. Зияханов М.У.
Алматы 2012
Цель работы- получить навыки практического применения базовых алгоритмических структур при программировании вычислительных задач.
3.1.1 Используя известные базовые алгоритмические структуры и методики перевода чисел из одной системы счисления в другую, составить программу для выполнения задания 2.1.1.
Дано в десятичной системе исчисления. Перевести в восьмеричную систему исчисления.
Данное число :500140 десят.сис.ис.
Program primer 1;
Var k,n:integer;
s: string;
ch: char;
Begin
Writeln (‘Enter the number in the decimal type ‘);
Readln(n);
s:=”;
While n>o do
Begin
k:=n mod 8;
ch:=chr(48+k);
s:=ch+s;
n:=n div 8;
End;
Writeln(‘in the eights type it is look lke ‘,s);
End.
Полученное число: 1720604 восьм.сис.ис.
Схема 3.1.1
3.1.2 Используя известные базовые алгоритмические структуры выполнить задание 2.1.3. Вывести на экран данные, иллюстрирующие изменение уровня в резервуаре, с соответствующими, комментариями и рекомендациями. Создать исполняемый файл с расширением .exe.
Дано: r=4.6; Vr=130.
Program primer2;
Const r=4.6;
Vr=130;
Var h, V:real; i,n:integer;
Label m1;
Begin i:=1; n:=5;
m1:
Writeln (‘h=’);
Readln(h);
V:=3.14*r*r*h;
If V<Vr then;
writeln(‘v=’, V:5:2,’ne nuzhno’) else
Writeln(‘V=’,V:5:2,’zakroi vodu’);
i:=i+1;
if i<=n then go to m1;
Readln;
End.
Схема 3.1.2
3.1.3 Вычислить значения функции f(x) (таблица Г.1) в интервале изменения аргумента [a,b] с заданным шагом h и вывести их на экран. Над полученными результатами выполнить требуемые действия. При решении задачи использовать тот вид оператора цикла, который указан для выбранного варианта.
F(x)=15x2-10 interval :[-10,10] h=2 нужно посчитать с помощью оператора for downto.
Сумму четных значений F(x) ;
Min F(x).
Begin
F,x,i,n,s; s:=0
fff
i:=-5..5
X:=i*2;
n:=i+6;
F:=15*x*x-10;
F mod 2 = 0
нет
да
S:=s+F;
fff
S
End.
3.1.4 Используя известные базовые и дополнительные алгоритмические структуры, решить предложенную задачу: Для определения коэффициента гидравлического сопротивления используют зависимость (Re).Используя данные таблицы Г.2, рассчитать значения гидравлического сопротивления в указанном интервале изменения числа Рейнольдса Re и вывести на экран. Определить модуль разности гидравлических сопротивлений, полученных при минимальном и максимальном числах Re.
Дано: k=0.01D=0.1Между [2300; 4200]
Program Primer4;
Const a=2300; b=4200; k=0,01; D=0,1;
Var m,Re,n,h,ha,hb:real;
Begin
Write(‘pokazhem interval mezhdu [a,b]’);
Readln(‘n’);
Re:=a;
While Re<=b do
Begin
h:= 0,11*sqrt(sqrt((k/D)+(68/Re)));
Writeln(‘Re=’,Re:7:3,’h=’,h:7:3);
Re:=Re+n;
End;
ha:= 0,11*sqrt(sqrt((k/D)+(68/a)));
hb:= 0,11*sqrt(sqrt((k/D)+(68/b)));
m:=abs(ha-hb);
writeln(‘raznost znahenii krainix modulei’,m:7:3);
readln;
end.
Схема 3.1.4
3.1.5
Определить некоторые основные характеристики различных жидкостей.
Вода течет по трубе с диаметром D, скорость потока – v. Вычислить площадь поперечного сечения S=D^2*pi/4 и объемную плотность V=v*S. Определить, какого диаметра должна быть труба, чтобы скорость потока жидкости снизилась до 1,3 м/сек. При неизменной скорости потока
D=980,1 мм
Жидкость – вода
v=2,5 м/с
p=978 кг/м3
Абсолют. Вязкость =5,3*10:-4 Па*сек.
Begin
D,v,p,s,s1,d1,Vv,Vyaz,RE
S=D^2*pi/4
Vv=v*S
S1=Vv/1,3
D1=sqrt(s*4/pi)
Re=(d*v*p)/vyaz
S,Vv,D1,RE
End.
3.1.6 Определить сопротивление проводника при температуре от T1 до T2 с шагом hT. Определить температуру, при сопротивлениях RT1 и RT2
Begin
R0,a,T1,T2,RT1,
RT2,R,t3,t4,R
t:=T1..T2
R:=R0(1+at)
T:=t+10
R
T3=(Rt1-r0)/aR0
T4=(Rt2-r0)/aR0
End.
3.1.7 Даны вектора a,b вычислить:
Модули, скалярное произведение, косинус угла.
3.1.8
Дан бункер. Вычислить объем бункера по мере его заполнения.
R
Begin
I,v,h,rh,tgp
i:=1..24
h:=i/4
tgp=r/hk
h<hk
Rh=h*tgp
V=pi*rh^2*h/3
V=pi*r^2*hk/3+pi*3^2*(h-hk)
V
End.