Алматы Энергетика және Байланыс Университеті
Ақпараттық жуйелер кафедрасы
Есептік графикалық жумыс №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)цикл кайталау операторы теріс сан арасындағы сандардың косындысын табу ушін
Жауабы: