Реферат Работа в Turbo Pascal
Работа добавлена на сайт bukvasha.net: 2015-10-28Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
от 25%
Подписываем
договор
РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА
Тема: “Работа в Turbo Pascal”
Задание 1. Перевод десятичных чисел в 16-ю систему.
Дано число: 5962000
Текст программы:
Program RGR3_1;
Var
a,n,i, ost :longint;
X:array[1..30] of longint;
begin
Write('Vvedite 10-e chislo->');
readln(a);
i:=1; n:=0;
While a>0 do
begin
ost:= a mod 16 ;
X[i]:=ost;
a:=a div 16;
Writeln('i=',i, ' ost=',X[i], ' chast=',a);
i:=i+1; n:=n+1;
end;
Write('Chislo v 16-oi sisteme =');
for i:=n downto 1 do
begin
if X[i]>9 then
case X[i] of
10: Write('A');
11: Write('B');
12: Write('C');
13: Write('D');
14: Write('E');
15: Write('F');
end
else Write(X[i]);
end ;
readln;
end.
Вывод
на
экран
:
Задание 2. Поиск листа емкости заданного объема.
Дан объем: 0,09
Исходный диапазон: 1.05-1.10
Текст программы:
Program RGR3_2;
var a1, a2, c, V1,V2,Vc,V3 : real;
k:integer;
Procedure vvod(var a, Vmax :real);
Var i,N :integer;
b, max_b, b1, b2, V : real;
Begin
N:=100; b:=0; Vmax:=0;
max_b:=a/2; b1:=max_b/N;
For i:=1 to N do
begin
b:=b+b1;
V:=b*sqr(a-2*b);
if V>Vmax then
begin
b2:=0;
Vmax:=V;
b2:=b;
end;
end;
Write(' max ob"em Vmax= ',Vmax:2:4);
Write(' dlya A=',a:2:4);
Writeln(' pri b= ',b2:2:4);
end;
begin
Write('
Write('Vvedite A->'); readln(a1);
Write('Vvedite B->'); readln(a2);
Vvod(a1, V1);
Vvod(a2,V2);
For k:=1 to 5 do
begin
C:=0; C:=(a1+a2)/2;
Vvod(c,Vc);
if Vc<V3 then a1:=c else a2:=c;
end;
readln;
end.
Вывод
на
экран:
Задание 3. Работа с массивом
Начальное время: 9
Мощность: 10 кВт; Vn=4.5 м/с.
Определить: среднюю скорость ветра, Количество выработанной энергии.
Текст программы:
Program RGR3_3;
k,i,m, n: integer;
Vn,sum, s,w,ws:real;
sred:real;
A:array[1..48] of real;
Begin
Writeln('Massiv sila vetra po chasam sutok');
Write('Nachalnoe vremya ->');
readln(k);
Write('Moschnost ->');
readln(w);
Write('Vn ->');
readln(Vn);
assign (VT, 'Veter.txt');
reset (VT);
s:=0; n:=k+11; m:=0; sred:=0; ws:=0; sum:=0;
For i:=k to n do
begin
read(VT, A[i]);
Write(i, ' ');
m:=m+1;
end;
close (VT);
Writeln;
For i:=k to n do
begin
Write(A[i]:2:1,' ');
if A[i]>Vn then
begin
ws:=ws+w;
Sum:=Sum+A[i];
s:=i;
end;
end;
sred:=sum/m;
writeln;
Writeln('Kol-vo elementov= ',m);
Writeln('Sred skorost vetra =',sred:3:2);
Writeln('Vsego vyrabatano kVt*chas= ',ws:3:2);
readln;
end.
Блок схема:
Вывод на экран:
Список литературы
1. Информатика. Базовый курс. Учебное пособие для вузов под ред. Симоновича С.В., -СПб.: Питер, 2003.
2. Безручко В.Т. Практикум по курсу «Информатика». Работа в Windows, Word, Excel. –М.: Финансы и статистика, 2003.
3. Маликова Л.В., Пылькин А.Н. Практический курс по электронным таблицам MS Excel. –М.: Горячая линия – Телеком, 2004.
4. Культин Н.Б. Turbo Pascal в задачах и примерах. –СПб.: БХВ, 2005.
5. http://www.rntb.nets.kz – сайт Республиканской Научно-Технической библиотеки (РНТБ).
6. Истомин Е.П., Неклюдов С.Ю., Романченко В.И. Информатика и программирование. –СПб.: АИД, 2008.
7. Каблукова Г.В., Титов В.М. Компьютерный практикум по информатике. Офисные технологии. –М.: ИД Форум-Инфра-М, 2008.
8. Лесничная И.Г., Романова Ю.Д. Информатика и информационные технологии (Конспект лекций). –М.: ООО Издательство Эконом, 2006.
9. Степанов А.Н. Информатика. –СПб.: Питер, 2007.
10. Пестриков В.М., Маслобоев А.Н. Turbo Pascal 7.0. Изучаем на примерах. –СПб.: Наука и техника, 2004.
11. Лукин С.Н. Turbo Pascal 7.0. Самоучитель для начинающих. –М.: Диалог МИФИ, 2002.
12. Андреева Т.А. Программирование на языке Pascal. –М.: Бином, 2006.
