Паскалда есеп шығара аласыздарма?

4 ұнайтын 1 ұнамады
190 қаралды
z(m) массивіндегі таңбалардың ауысу санын анықтаңдар (плюстен минуске және минустан плюске) 0,-2,0,-10,2,-1,0,0,3,2,-3 тізбегіндегі ауысулар саны төртеу  (нөл санының таңбасы жоқ).
Жаңа қолданушы Информатика сұрақ қойды | 190 қаралды

3 жауап

3 ұнайтын 0 ұнамайтын
Жақсы Жауап

 

 Гаухар ханым сіздің есебіңіздің бағдарламасы:
 
Uses crt;
const
     m = 10;
var
   Z:array[1..m] of integer;
   A:array[1..m] of integer;
   i,j,n,k:integer;
begin
k:=0; j:=0;
clrscr;
     writeln('Massivti engiz');
     for i:=1 to m do
     begin
          write('Z[',i,'] = ');
          readln(Z[i]);
          if(Z[i]<>0) then
          begin
               k := k + 1;
               A[k] := Z[i];
          end;
     end;
for i:=2 to k do
     begin
     if(((A[i-1]>0)and(A[i]<0))or((A[i-1]<0)and(A[i]>0))) then
     j := j + 1;
     end;
     write('Auisular sani = ',j);
readln;
end.
Оқушы жауап берді
1 like 0 ұнамайтын
Есептің берілгенін сал түсінікті қылып жазасыз ба? нені табу керектігін түсінбедім.
Данышпан жауап берді
1 like 0 ұнамайтын
Это алгоритм сортировки. Чтобы отсортировать по убыванию или возрастанию надо:
1)Присвоить ккакой-нибудь переменной зачение очень маленькое;
2) Сравнивать  с ним все элементы массива;
3) И менять их местами, т.е. менять их порядковые номера.
Аналогично и при убывании
пример выявления наиболее низкой температуры зимой(часть программы):
writeln('Temp Zimoy:');
for i:=1 to 4 do
readln(b[i]);
b[1]:=Min;
for i:=2 to 4 do
if b[i]<Min then
begin
Min:=b[i];b[1]:=b[i];
end
 else;writeln('Min Zimoy=',Min:0:0);readln;
end.
жауап берді

Сіздің жауабыңыз

Есіміңіз:
Құпиялық: Email поштаңыз тек сізге хабарлама жіберу үшін ғана қолданылады
Спамға қарсы тексеру:
Он бірге бесті қосыңыз?
Модерациядан өтпес үшін сайтқа кіріңіз немесе тіркеліңіз

Ұқсас сұрақтар

4 ұнайтын 0 ұнамайтын
4 жауап
0 ұнайтын 0 ұнамайтын
0 жауап
115,554 сұрақ
292,661 жауап
152,704 пікір
58,847 қолданушы