На сортировку / 2 / 1 курс / 3.Информатика / Информатика / инфрматика 1 / rgr
.doc
Жұмыстың мақсаты- инженерлік есептерді шығаруда негізгі алгоритмді қолдану практикасын үйрену.
Тапсырмалар
1. Негізгі алгоритм құрылымдарын және бір санақ
жүйесінен басқa санақ жүйесіне аудару әдістерді қолданып 2.1.1 тапсырма программасын құру керек. Бағдарлама құрғанда бастапқы мәндерді бірнеше рет енгізу мүмкіндігін құрастыру керек, мысалы программа бір рет орындалғанда бірнеше санды аудару қажет.
Берілген с.ж.: ондық с.ж.
Ауыстырылатын с.ж.:оналтылық с.ж.
Ауыстырылатын сан: 21023658
i=1,k=x
n=0
n=k/16қалдық
k=k/16 бүтін
b[i]=n
i=i+1
Бағдарламасы:
Program mab1;
uses crt;
Var i,n,k,j,x:longint;
b:array[1..100] of integer;
Begin
clrscr;
readln(x); i:=1; k:=x;
repeat
begin
n:=k mod 16;
k:=k div 16; b[i]:=n;if k<16 then begin inc(i);b[i]:=k;end;
inc(i);end;until k<16;
for j:=i downto 1 do
case b[j] of
0..9:write (b[j]);
10:write('A');
11:write('B');
12:write('C');
13:write('D');
14:write('E');
15:write('F');
end;
end.
Шешуі:
Клавиатурадан енгіземіз
21023658
Шыққан жауабы
0140СВАА
2. Негізгі алгоритм құрылымдарын қолданып 2.1.3. тапсырманы орындаңыздар. Резервуардағы – деңгей өсуін көрсететін мәліметтерді экранға шығару керек, сәйкес түсініктемелер және ұсыныстар болсын. «.ехе» кеңейтілуімен орындаушы файл құрыңыздар.
-
Берілгені: a=7; b=5.5; Vr=210;
-
Блок-сұлбасы:
b=5.5,a=7, Vr=210
Vg:=a*b*h
ия
жоқ
Бағдарламасы:
Program mab2;
uses crt;
const a=7;b=5.5;
Vr=210;
Var h,Vk:real;
label 5;
Begin
clrscr;
write('h=');
5: readln(h);
Vk:=a*b*h;
if Vk<Vr then begin writeln('Vk=',Vk:6:4,'sudy kui'); goto 5;
end;
writeln('Vk=',Vk:6:4,'sudy jabynyz');
End.
Шешуі:
h=2
Vg=77.00 sudi kui
h=4
Vg=154.00sudi kui
h=7
Vg=269.50sudi jabynyz
h=5
Vg=192.00sudi kui
h=8
Vg=78.50sudi jabynyz
h=0.5
Vg=39.25sudi kosiniz
h=1.5
Vg=296.45sudi jabynyz
3. [а,в] аралығындағы h қадаммен өзгеретін х мәндері үшін f(x) (Г1 кестесі) функциясының барлық мәндерін есептеп экранға шығару керек. Сол кестеде талап етілген шарттарды орындаңыздар. Есепті шығарғанда нұсқаңызға сәйкес цикл операторын қолданыңыздар.
F(x)=[х]+4 interval[-4,4] h=0.5 параметрлі қайталану операторы арқылы есептеу кереk
F(x) функциясының [-4,4] аралықта жатқан мәндерінің көбейтіндісі;
F(x) функцияның ең кіші мәні. Блок-сұлбасы:
h=0.5
f(x)=int(x)+4
Бағдарламасы:
Program mab3;
var x,y,min,s:real; k:integer;
Begin
writeln('f(x)=int(x)+4');
writeln('interval [-4,4]');
writeln('h=0.5');
writeln('en kishi mani(f(x))');
S:=1; min:=int(x)+4;x:=1;
k:=1;
repeat
begin
y:=int(x)+4;
writeln('x=',x:6:3);
writeln('y=',y:6:3);
if (y>-4) and (y<=4) then s:=s*y;
If (min<y) then min:=y;
x:=x-0.5;
end; k:=k+1; until k>4;
writeln('s(f(x))=',s:4:2);
writeln('min(f(x))=',min:4:2);
end.
Шешуі Экранға шығару:
f(x)=int(x)+4
interval:[-4,4]
h=0.5
en kishi mani f(x)
x= 1.000y= 0.500
x= 0.500y= 0.000
x= 0.000y= 0.500
x=-0.500y= 1.000
s(f(x))=64.00
min(f(x))=5.000
3.1.4 есепті шешуі:
Функция:
Берілгендері: = 921;
=1.8-0.001
Интервал қадaмы: [274;344]
Блок-сұлбасы:
p = 921
e=1,8-0,001p
t=274
pt=p-e(t-293)
t=t-1
Бағдарламасы;
Program mab4;
uses crt;
Var t:integer; p,pt,e:real;
begin
clrscr;
p:=921;
e:=1.8-0.01*p;
t:=274;
while t<=344 do
begin
pt:=p-e*(t-293);
writeln('t=',t,'pt=',pt:5:2);
t:=t+1;
end;
end.
Шешуі:
t=321pt=870.60
t=322pt=868.80
t=323pt=867.00
t=324pt=866.20
t=325pt=865.40
t=326pt=864.60
t=327pt=863.40
t=328pt=862.00
t=329pt=861.20
t=330pt=860.40
t=331pt=859.60
t=332pt=858.80
t=333pt=857.00
t=334pt=856.20
t=335pt=855.40
t=336pt=854.60
t=337pt=853.80
t=338pt=852.00
t=339pt=851.20
t=340pt=850.40
t=341pt=849.60
t=342pt=848.80
t=343pt=847.00
t=344pt=846.20
Пайдаланылған әдебиеттер
-
Симонвич С.В Информатика.Базовый курс.-Питер,2000
-
Мастекбаева,Н.В. Сябина Информатика. Язык Турбо Паскаль.Методическое указания к выполнению лабораторных работ-Алматы:АИЕС,2005
-
Информатика.Есептік-сызбалық жұмыстарды орындауға арналған әдістемелік нұсқаулар-Алматы:Аиес2007