МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН
АЛМАТИНСКИЙ УНИВЕРСИТЕТ ЭНЕРГЕТИКИ И СВЯЗИ
Кафедра: «Информационных систем»
Факультет «Теплоэнергетики»
РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №3
По дисциплине: Информатика
По теме: Использование возможностей программирования для решения вычислительных задач.
Вариант – 9
Выполнил:
ст. гр. БТЭ-13-4
Парахин А.В.
Проверил:
ст. преподаватель
Бычков А.Г.
Содержание
Цель работы……………………………………………….……………...3стр.
Введение…………………………………………….……………………4стр.
Задание№1..................................................................................................5стр.
Задание№2..................................................................................................7стр.
Задание№3..................................................................................................8стр.
Задание№4.................................................................................................10стр.
Задание№5.................................................................................................12стр.
Задание№6.................................................................................................14стр.
Задание№7.................................................................................................15стр.
Задание№8.................................................................................................17стр.
Заключение ...............................................................................................19стр.
Литература.................................................................................................20стр.
РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №3. Использование возможностей программирования для решения вычислительных задач.
Цель работы
Цель работы – получить навыки практического применения базовых алгоритмических структур при программировании вычислительных задач.
Введение
Первоначально программа записывается в текстовый файл с помощью текстового редактора в среде Pascal. Немного о языке программирования Pascal. Pascal был создан швейцарским профессором Николаусом Виртом в 1968-1971 годах и назван в честь выдающегося французского математика и философа Блеза Паскаля. Изначально язык Pascal задумывался как учебный язык для обучения студентов навыкам программирования. Вирт сознательно пошел на заведомое ограничение возможностей языка, прежде всего это касалось функций ввода и вывода данных, а также средств, зависящих от компьютера и операционной системы, обеспечивая простоту и эффективность.
При запуске программы на исполнение компилятор программы превращает ее в двоичный файл, содержащий машинный команды и набор данных, так называемый исполнимый файл. Исполнимые двоичный файлы имеют расширение exe или com, также является готовым продуктом, который может запустить и применять любой пользователь.
Для обработки зафиксированных данных, в памяти ПК создаются специальный структуры, которые также называют «массивы». Массив в оперативной памяти ПК представляет собой блок ячеек, имеющих общее имя. Также исходные значения массива записываются в постоянную память ПК в виде текстового файла с расширением txt. Пишется с помощью блокнота или процессора Word.
При поиске максимума данных, первоначально переменной задается такое значение, которое явно меньше любого возможного значения массива. При вычислениях минимума данных, первоначально переменной задается такое значение, которое явно больше любого возможного значения массива. Используя данные, которые предложены в методическом указании, приступаем к выполнению работы.
Задание №1.
Используя известные базовые алгоритмические структуры и методики перевода чисел из одной системы счисления в другую, составить программу для выполнения задания 2.1.1. При разработке программы следует учесть возможность многократного ввода исходных данных (перевода нескольких чисел за один сеанс работы программы).
Program Zadanie1.1;
var a:array[1..20] of longint;
n,k,h,g:longint;
begin
write ('Vvedite 10-oe chislo');
readln(n);
h:=0;
g:=n;
while g>0 do
begin
h:=h+1;
a[h]:=g mod 16;
g:=g div 16;
write('остаток',g:5);
writeln(' ','частное',a[h]:5);
end;
writeln('16-oe chislo');
for k:=h downto 1 do
case a[k] of
10 :write('A');
11 :write('B');
12 :write('C');
13 :write('D');
14 :write('E');
15 :write('F');
Else
write(a[k])
end;
readln;
end.
При работе с целыми числами используются процедуры DEC и INC. Процедура Dec уменьшает число на определенное значение.
Program Zadanie1.2;
const rom: array[1..13] of string[2]=('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
dec: array[1..13] of word=(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var n: word;(слово)
s: string;
i: byte;
begin
write('Chislo v 10 sisteme: ');
readln(n);
s:=' ';
i:=13;
while n<>0 do
begin
while n>=dec[i] do
begin
n:=n-dec[i];
s:=s+rom[i];
end;
i:=i-1;
end;
writeln('Chislo v rimskoi sisteme: ',s);
end.
Задание №2.
Используя известные базовые алгоритмические структуры выполнить задание 2.1.4. Вывести на экран данные, иллюстрирующие изменение уровня в резервуаре, с соответствующими комментариями и рекомендациями. Создать исполняемый файл с расширением .exe.
Program zaganie2;
Var a,b,vr,h,vg:real;
Begin
Write('Vvedite a,b,Vr:'); Readln(a,b,vr);
Repeat
Write('Vvedite h = '); Readln(h);
vg:=a*b*h;
Writeln('Vg = ',vg:5:2);
If vg<vr then Writeln('ne trebyetsya');
Until vg>=vr;
Writeln('zakrit klapan');
End.
Задание №3.
Вычислить значения функции f(x) (таблица Г.1) в интервале изменения аргумента [a, b] с заданным шагом h и вывести их на экран. Над полученными результатами выполнить требуемые действия. При решении задачи использовать тот вид оператора цикла, который указан для выбранного варианта.
Program zadanie3;
Const f='f(x)=x/(sqr(x)+1)';
a=-3;
b=6;
h=0.5;
Var x,y,min,kob,sg:real;
k:real;
Begin
Writeln(f,';');
Writeln('[a,b] = (',a:1:1,',',b:1:1,']');
Writeln('h = ',h:1:2);
x:=a+h;
kob:=1;
min:= x/(sqr(x)+1);
While x<=b do
begin
y:= x/(sqr(x)+1);
Writeln('x = ',x:1:1,' y = ',y:1:3);
kob:=kob*y;
k:=k+1;
If y<min then min:=y;
x:=x+h;
end;
SG:=kob/k;
Writeln('SG = ',sg:1:10,' min f(x) = ',min:1:3);
End.
Задание №4.
Используя известные базовые и дополнительные алгоритмические структуры, решить предложенную задачу:
Известно, что плотность жидкости обычно измеряют при температуре 293 К. Для определения плотности при других температурах используют зависимость (Т). Используя данные таблицы Г.2, рассчитать значения плотности в указанном интервале изменения температур и вывести их на экран. Определить среднее значение плотности при указанных колебаниях температуры.
Program Zadanie4;
var p,t,h,k:integer;
s,pt,sum:real;
beginP
p:=954;
s:=1.8-0.001*p;
t:=295;h:=4;k:=0;
while t<=340 do
begin
pt:=p-s*(t-293);
sum:=sum+pt;
writeln('Pri T=',t,' P(t)=',pt:5:3);
t:=t+h;inc(k);
end;
writeln('Srednee znachenie plotnosti =',t/k:5:3);
end.
