Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Алматинский университет энергетики и связи

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Информатика ргр3 16 вар

.docx

Скачиваний:

Добавлен:

01.05.2015

Размер:

302.13 Кб

Скачать

☆

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН

Некоммерческое акционерное общество

«Алматинский университет энергетики и связи»

Факультет

Кафедра «Информационные системы»

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА № 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

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 Па*сек.