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

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

Ақпараттық жуйелер кафедрасы

Есептік графикалық жумыс №2

4-нұсқа

Орындаған:Турдыматов.А

Тексерген:Рахимбергенов.С

Алматы 2011

Мазмұны

1-тапсырма.......................................................................................3

2-тапсырма.......................................................................................7

3-тапсырма.......................................................................................10

4-тапсырма.......................................................................................11

5-тапсырма.......................................................................................14

6-тапсырма.......................................................................................18

Пайдаланылған әдебиеттер............................................................23

1.Тапсырма

Берілгені:

F функциясының мәндерін таблица турінде экранға шығарыныз.x бастапқы мәні мен x-тің соңғы мәніне дейін.

Есептің блок схемасы 1- суретте көрсетілген

1)Басы

2)2-5б15,17 енгізу операторы

3)6,16 циклдык оператор (for)

4)7,8,10,12,13,14 програманың денесі

5)9,11 шарттык оператор

6) 18 соңы

1-сурет

Басы

Z[1..n,1.2]

a

b

c

1,n

X,F

1,n

X=i-1

coны

Z[I,1]=x

Z[I,1],z[I,2

-

C<0,x>0

+

-

F=x-a/-c

C>0,x=0

+

F=b*x/(c-a)

F=(x-a)/c

Z[I,2]=f

Паскаль тілінде жазылуы

program _aza2_1;

uses crt;

label 1;

const n=11;

var x,a,c,f,b:real;

z:array[1..n,1..2]of real ;

i:integer;

begin

clrscr;

writeln('vvedite a-->');

read(a);

writeln('vvedite b-->');

read(b);

writeln('vvedite c-->');

read(c);

for i:=1 to n do

begin

x:=i-1;

z[i,1]:=x;

if (c<0) and (x<>0) then f:=a*x-c else

if (c>0) and (x=0) then f:=(x-a)/-c else

f:=b*x/(c-a);

z[i,2]:=f;

end;

writeln(' x f');

for i:=1 to n do

writeln(z[i,1]:6:2, z[i,2]:6:2);

readln;

Жауабы:

Паскаль тіліндегі программаға тусініктеме:

Програма жұмыс істеу барысында оған белгілі бір шарт берілген болатын.

Осы шарттарға байланысты оның белгілі бір денесі тандалып алынып , және белгілі бір аралыкта мәндері табылып жатты.

2.Тапсырма

Берілгені

Берілген массивтегі индекстері так болатын элементтердін қосындысын табу керек.

Есепті блок схемасы 2- суретте көрсетілген

1)басы-есепті бастау мәтіні

2)денесі-цикды айналдыру ушін

3) қайталау операторы

4)цикл ішіндегі шарт қанағаттандыруы керек.

5)шартты қанағаттандыратын дене.

6)экранға шығару операторы.

7) соңы-программаны аяктау

Паскаль тілінде жазылуы

program _2_2;

uses crt;

const n=8;

a:array [1..n] of real=(5,7,10,-1,6,-1,8,2);

var i:integer;

f:real;

begin

clrscr;

f:=0;

for i:=1 to n do

if i mod 2=1 then

f:=f+a[i];

writeln('f=',f:6:2);

readln;

end.

Жауабы

Паскаль тіліндегі программага тусінітеме

Программа жузінде так сандардың қосындысы алу қажет болатын.бул ушін цикл пайдаландым (FOR) осы цикл ішінде mod аркылы так санды қанағаттандыратын шарт орындалды .Нәтижесінде денедегі есептеу арқылы

Так сан косыдысы табылады.

3)

Берілгені

Екі теріс сан арасындағы сандардың қосындысын табу керек.

3) program_2_3;

uses crt;

label 1,2;

const n=8;

a:array[1..n] of integer=(2,2,-5,4,6,7,9,-8);

var i,i1,i2:integer;

s:integer;

begin

clrscr;

for i:=1 to n do

if a[i]<0 then

begin

i1:=i;

goto 1;

end;

1:writeln('i1=',i1);

for i:=n downto 1 do

begin

if a[i]<0 then

i2:=i;

goto 2;

end;

2:writeln('i2=',i2);

s:=0;

for i:=i1+1 to i2-1 do

s:=s+a[i];

writeln('s=',s);

readln;

end.

Есептің блок схемасы 3 суретте көрсетілген.

1)программа басы

2)цикл операторы шартты жузеге асыру ушін

3)шарт цикл комегімен бірінші теріс санды тауып жатыр

4)денеде 1 бірінші теріс санды меншіктеу жузеге асып жатыр

5) бірінші теріс санды экранға экранға шығару

6)екінші цикл екінші теріс санды табу ушін пайдаланады.

7)шарт цикл көмегімен теріс санды табады (екінші).

8) денеде екінші сол жактан санағандағы теріс сан табылады

9)теріс санды экранға шығару

10)цикл ішінде қосындыны табу ушін о-ге теңейміз

11)цикл кайталау операторы теріс сан арасындағы сандардың косындысын табу ушін

Жауабы:

Соседние файлы в папке РГР 2