Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
24
Добавлен:
20.02.2017
Размер:
99.33 Кб
Скачать

1. Негізгі алгоритм құрылымдарын және бір санақ жүйесінен басқа санақ санақ жүйесіне аудару әдістерді қолданып 2.1.1. тапсырма программасын құру керек. Бағдарлама құрғанда бастапқы мәндерді бірнеше рет енгізу мүмкіндігін құрастыру керек, мысалы программа бір рет орындалғанда бірнеше санды аудару қажет.

Берілген с.ж.: ондық с.ж.

Ауыстырылатын с.ж.:он алтылық с.ж.

Ауыстырылатын сан: 85962000

program sanak_zhuiesi;

var a:longint;

s,k:string;

begin

k:='y';

while (k='y') do

begin

write ('10 sanak zhuiesindegi san (dec):');

readln (a);

s:='';

while a>0 do

begin

if (a mod 16=0) then s:='0'+s;

if (a mod 16=1) then s:='1'+s;

if (a mod 16=2) then s:='2'+s;

if (a mod 16=3) then s:='3'+s;

if (a mod 16=4) then s:='4'+s;

if (a mod 16=5) then s:='5'+s;

if (a mod 16=6) then s:='6'+s;

if (a mod 16=7) then s:='7'+s;

if (a mod 16=8) then s:='8'+s;

if (a mod 16=9) then s:='9'+s;

if (a mod 16=10) then s:='A'+s;

if (a mod 16=11) then s:='B'+s;

if (a mod 16=12) then s:='C'+s;

if (a mod 16=13) then s:='D'+s;

if (a mod 16=14) then s:='E'+s;

if (a mod 16=15) then s:='F'+s;

a:=a div 16;

end;

writeln ('16 sanak zhuiesinde (hex):',s);

read (k);

end;

end.

2. Негізгі алгоритм құрылымдарын қолданып 2.1.3. тапсырманы орындаңыздар. Резервуардағы – деңгей өсуін көрсететін мәліметтерді экранға шығару керек, сәйкес түсініктемелер және ұсыныстар болсын. «.ехе» кеңейтілуімен орындаушы файл құрыңыздар.

  1. Берілгені: а=5; b=6; Vr=90;

program rezervyar;

uses crt;

const a=5; b=6; Vr=90;

var h,V:real;

begin

clrscr;

write ('h=');

readln (h);

V:=a*b*h;

if V<Vr then writeln ('V=',V:2:1,' kerek emes')

else writeln ('V=',V:2:1,' sudi zhap');

readkey;

end.

3. [а,в] аралығындағы h қадаммен өзгеретін х мәндері үшін f(x) (Т1 кестесі) функциясының барлық мәндерін есептеп экранға шығару керек. Сол кестеде талап етілген шарттарды орындаңыздар. Есепті шығарғанда нұсқаңызға сәйкес цикл операторын қолданыңыздар.

F(x)=х/(x*x+1) аралық [-3,6] h=0,5 Repeat-until оператор арқылы есептеу керек.

F(x) функциясындағы барлық мәндерінің орташа геометриялық мәні;

F(x) функцияның ең үлкен мәні.

program funkcia;

uses crt;

var x,y,s,max:real; i,n:integer;

begin

clrscr;

writeln ('f(x)=x/(x*x+1)');

writeln ('h=0.5 [-3,6]');

x:=-3;

max:=x/(x*x+1);

s:=1;

writeln (' x y ');

repeat

y:=x/(x*x+1);

if y>max then max:=y;

s:=s*y;

writeln ('x=',x:4:1,' y=',y:7:4);

x:=x+0.5;

i:=i+1;

until i>19;

writeln('fmax=',max:7:4);

writeln('GeometMan=',s);

readkey;

end.

4. Белгілі негізгі және қосымша алгоритм құрылымдарын қолданып берілген есепті шығарыңыздар;

ρ-сұйықтық тығыздығын негізінде 293К темперетурада өлшейтіні белгілі. Ал егер де тығыздықты басқа темперетураларда өлшейтін болса ρ(Т) байланыс қолданылады. Е2 кестесін қолданып берілген температура өзгеруі арлығында тығыздықтың мәндерін санап экранға шығару керек. Берілген температура аралығында тығыздықтың орташа мәнін анықтау керек;

Берілгені: ρт=ρ-ξ(Т-293) ρ=954, ξ=1.8-0.001 interval [295;340]

program funkcia;

uses crt;

var ro,sig,t,s:real; n:integer;

begin

clrscr;

t:=295;

s:=0;

sig:=1.8-0.001*954;

writeln ('ro(T)=ro-sig(T-293), ro=954, sig=1.8-0.001*ro=',sig:5:3);

writeln (' t ro(t) ');

for n:=1 to 46 do

begin

ro:=954-sig*(t-293);

s:=s+ro;

writeln ('t=',t:5:1,' ro=',ro:7:3);

t:=t+1;

end;

writeln('ro_ort=',s/46:8:4);

readkey;

end.

Қорытынды

Мен бұл №3 Есептік-сызбалық жұмысты орындай отырып, инженерлік есептерді шығаруда Turbo Pascal программалау тілінің мүмкіндіктерін, оның қолдануды, негізгі және қосымша алгоритмдерді қолдануды үйрендім. Бірнеше айнымалыларды қолданып, берілгнен есептерді шығардым. Есептердің программасын құрғаннан кейін оны тексеріп, берілуге тиісті мәндерін беріп қара экранға шығардым. Экранды тазалау програмасы бойынша экранды біренше рет тазалап үйрендім. Программа құру арқылы: ондық санақ, жүйесінен сегіздік санақ жүйесіне аудару программасын құруды. Резервуардағы сұйықтың деңгейіне байланысты программалауды, f(x) функциясының барлық орташа арифметикалық және оның ең үлкен мәнін есептеп шығаруды сонымен қатар гидравликалық кедергі коффициентін табу сияқты есептерді шығаруға болатынын білдім. Бұл есептер негізгілерін ексель программасын шешкен бойынша қарап, жауаптарын табуға болады. Turbo Pascal бағдарлама арқылы өзіме керек есептеулерді жүргізетін бағдарламаларды құруды үйрендім. Негізгі осы үшінші есептік графикалық жұмысты орындауға студенттерге арналған методичка бойынша орындадым.Өзіме керек паскаль тілі программасын, берілген методичка арқылы оқып білдім. Негізгі паскаль тілін меңгердім.

Қолданылған әдебиеттер

1. Информатика. Күндізгі оқу түрінің барлық мамандықтары үшін есептік-сызбалық жұмыстарды орындауға арналған әдістемелік нұсқаулар. –Алматы: АЭжБИ,2007.-47 б.

а. Құрастырушылар: Сябина Н.В., Ешпанова М.Д., Ибрашева Ә.Т.

2. Программалау тілдеріне кіріспе. Бөрібаев Б.Алматы 2008.-380 б. Информатика Язык Turbo Pascal. – ч.3

3. Изучаем Turbo Pascal / Л. Перлоколов. –СПБ.: Питер, 2004.-313 с.:ил.

4. Мастекбаева Г.А., Сябина Н.В. Информатика Язык Turbo Pascal. – ч.3 – Методические указания к выполнению лабораторных работ (для студентов всех спец.). – Алматы: АИЭС, 2005.

Алматы Энергетикалық және Байланыс Университі

Электрэнергетика факультеті

«Ақпараттық жүйелер»кафедрасы

«Информатика» пәнінен

Есептік-графикалық жұмыс №3

Инженерлік есептерді шығаруда құрылымдық

программалау тілдерін қолдану

Нұсқа №9

Орындаған: БЭк 10-5 тобының студенті Берденов Ж.

Тексерген: ассистент Калышева И.Н

«____» _________________2010 ж

Алматы 2010

Жоспар

  1. Берілген санды ондық санақ жүйесінен ол алтылық санақ жүйесіне ауыстыру программасын құру.

  1. Резервуар деңгейін бейнелейтін программа құру.

  1. [a,b] аралығында h қадаммен өзгеретін x мәндері үшін ƒ(x) функциясының барлық мәедерінің орташа геометриялық мәнін және функцияның ең үлкен мәнін есетеу.

  1. Белгілі негізгі және қосымша алгоритм құрылымдарын қолданып берілген физикалық есепті шығару.

  1. Он алтылық жүйеге блок схема құру.

  1. Резервуарға блок схема құру.

Х

Y:=y+1

A[y]:= mod 16

X:=x div 16

Y:=y-1

- +

- +

a=5, b=6, Vr=90

Vg=a*b*h

Соседние файлы в папке инфрматика 1