4.Тапсырма
Берілгені
Берілген массивтегі 1-ден кіші болатын элементтерді жойып қалғанын біріктіріп жазу
Есепті блок схемасы 4- суретте көрсетілген
1)басы-есепті бастау мәтіні
2)денесі-цикды айналдыру ушін
3) қайталау операторы
4)цикл ішіндегі шарт қанағаттандыруы керек.
5)шартты қанағаттандыратын дене.
6) екі массивті теңеу.
7) цикл арқылы массив жауабын экранға шығару
8)экранға шығару
9)соңы
Паскаль тілінде жазылуы
program _2_2;
uses crt;
const n=5;
a:array [1..n] of real=(4,-5,0.7,3,1);
var в:array[1..n] of real;
I,j:integer;
begin
clrscr;
j:=0;
for i:=1 to n do
if ia[i]>1 then
begin
j=j+1;
b[j]=a[i];
for j=1 to n do
write(b[j]:6:2);
readln;
end.
Жауабы
4,3,0000
Паскаль тіліндегі программага тусінітеме
Программада қайталану операторының ішіне шартты қою арқылы жаубын таптым
5.Тапсырма
Берілгені
Теріс емес қатарлардың элементтерінің көбейтіндісін табу
Есепті блок схемасы 5- суретте көрсетілген
1)басы-есепті бастау мәтіні
2)подпрограмма функцияны қолдану
3,5,6) программа денесі
4,8,9,11,13,15)цикл экранға шығару ушін және денедегі есепті шығару ушін.
10,12,19экранға нәтижені шығару мақсатында қолданады.
18) цикл ішіндегі шарт.
20)соңы
Паскаль тілінде жазылуы
1 есеп
program kobeitu;
uses crt;
const n=4;
var i,j,k,kbt:integer;
a:array[1..n,1..n] of integer;
d:text;
Function kob(i:integer):integer;
var j,k,p:integer;
begin
p:=1;
for j:=1 to n do p:=p*a[i,j];
kob:=p;
end;
BEGIN
clrscr;
assign(d,'c:\users\айкоша\desktop\pascal\matrica.txt');
reset(d);
for i:=1 to n do
for j:=1 to n do read (d,a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j],' ');
writeln;
end;
writeln;
for i:=1 to n do
begin
Паскаль тілінде жазылуы
1 есеп
program kobeitu;
uses crt;
const n=4;
var i,j,k,kbt:integer;
a:array[1..n,1..n] of integer;
d:text;
Function kob(i:integer):integer;
var j,k,p:integer;
begin
p:=1;
for j:=1 to n do p:=p*a[i,j];
kob:=p;
end;
BEGIN
clrscr;
assign(d,'c:\users\айкоша\desktop\pascal\matrica.txt');
reset(d);
for i:=1 to n do
for j:=1 to n do read (d,a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j],' ');
writeln;
end;
writeln;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if a[i,j]<0 then k:=1;
if k=0 then writeln('i=',i,' ', 'kobeitu=','', kob(i));
end;
readln;
end.
Жауабы
Паскаль тіліндегі программага тусінітеме
Программада функция қолданылды және де қайталау операторының ішіне шартты қойғаным, теріс емес қатарларды іздеу болатын.жәнеде денеде теріс емес қатарлардың элементтері көбейтіліп жатты