На сортировку / 2 / 1 курс / 3.Информатика / Информатика / инфрматика 1 / РГР -3
.doc
АЛМАТЫ ЭНЕРГЕТИКА ЖӘНЕ БАЙЛАНЫС ИНСТИТУТЫ
«Инженерлік кибернетика» кафедрасы
«Информатика» пәнінен
ЕСЕПТІК-ГРАФИКАЛЫҚ ЖҰМЫС № 3
ЕСЕПТЕРДІ ШЕШУДЕ ПРОГРАММАЛАУ МҮМКІНДІКТЕРІН ҚОЛДАНУ
16-нұсқа
Орындаган
БВТк-10-2 тобының студенті
Жексенқұлов Қ Е
Тексерген
Сүйеубаева Л.Б.
Алматы 2010
1. Негізгі алгоритм құрылымдарын және бір санақ
жүйесінен басқа санақ санақ жүйесіне аудару әдістерді қолданып 2.1.1. тапсырма программасын құру керек. Бағдарлама құрғанда бастапқы мәндерді бірнеше рет енгізу мүмкіндігін құрастыру керек, мысалы программа бір рет орындалғанда бірнеше санды аудару қажет.
Берілген с.ж.: |
ондық с.ж. |
Ауыстырылатын с.ж.: |
сегіздік с.ж. |
Ауыстырылатын сан:
|
50014000
|
СХМАСЫ
i=1,k=x
n:=k
mod 8 k:=k
div 8
иә
ПРОГРАМАСЫ
PROGRAM kuanyhs;
uses crt; (‘eкранды тазалап тұрады’)
VAR i,n,k,j,x: longin; (‘шексіз мән ‘)
b:array [1..100] of integer; (‘array-массив’)
BEGIN clrscr
write('ondik jue engiziniz '); (‘екранды тазалап тұрады’)
read(x);
i:=1;
k:=x;
repeat
BEGIN
n:=k div 8;
k:=k+1;
b[i]:=n;
if k < 8 then begin inc(i); b[i]:=k;end;
Inc (i); end; until k<8;
for j:= i downto 1 do
case b[j] of 0..7;
writeln (b[j]);
End;
End..
Шешуі Экранға шығару:
Turbo Pascal Version 7.1 Copyright (c) 1983,97 Borland International
ondik jue engiziniz
50014000
segizdik jue: 3563315660
2. Негізгі алгоритм құрылымдарын қолданып 2.1.3. тапсырманы орындаңыздар. Резервуардағы – деңгей өсуін көрсететін мәліметтерді экранға шығару керек, сәйкес түсініктемелер және ұсыныстар болсын. «.ехе» кеңейтілуімен орындаушы файл құрыңыздар.
-
Берілгені:
Резервуар негізі
|
Vr жұмысшы көлемі |
|
|
Радиусы 1,5
|
70
|
СХЕМАСЫ
ия
жоқ
Програмасы
-
PROGRAM ky;
-
const Pi=3.14;Vg=70;r=1.5;
-
Var h,Vg:real;
-
Begin
-
write('h=');
-
read(h);
-
Vj:=4/3*Pi*r*r*r*h;
-
If Vj<Vr then writeln('Vj=',Vg:4:2,'суды құйыңыз’)
-
else writeln ('Vj=',Vj:4:2,'sudi jabiniz');
-
END.
Шешуі :
Turbo Pascal Version 7.1 Copyright (c) 1983,97 Borland International
h= Vj=