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

­­­­­­­АЛМАТЫ ЭНЕРГЕТИКА ЖӘНЕ БАЙЛАНЫС ИНСТИТУТЫ

«Инженерлік кибернетика» кафедрасы

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

ЕСЕПТІК-ГРАФИКАЛЫҚ ЖҰМЫС № 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. тапсырманы орындаңыздар. Резервуардағы – деңгей өсуін көрсететін мәліметтерді экранға шығару керек, сәйкес түсініктемелер және ұсыныстар болсын. «.ехе» кеңейтілуімен орындаушы файл құрыңыздар.

  1. Берілгені:

Резервуар негізі

Vr жұмысшы көлемі

Радиусы 1,5

70

СХЕМАСЫ

ия

жоқ

Програмасы

  1. PROGRAM ky;

  2. const Pi=3.14;Vg=70;r=1.5;

  3. Var h,Vg:real;

  4. Begin

  5. write('h=');

  6. read(h);

  7. Vj:=4/3*Pi*r*r*r*h;

  8. If Vj<Vr then writeln('Vj=',Vg:4:2,'суды құйыңыз’)

  9. else writeln ('Vj=',Vj:4:2,'sudi jabiniz');

  10. END.

Шешуі :

Turbo Pascal Version 7.1 Copyright (c) 1983,97 Borland International

h= Vj=

6

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