Turbo Pascal

api4

Member
Ответ: Turbo Pascal

проблема на вставке числа (числа считал, занес в список, нашол среднее)
 

Hamster

Well-Known Member
чтото типа i:=1;
while (a)>=sr do inc(i);

for р:=i to amount-i+1 do
begin
tmp:=a[р+1];
a[р+1]:=a[р];
a[р+2]:=tmp;
end;
a:=10;

На 100% не ручаюсь с этими +-1 в циклах, но суть работы такая.
 
Ответ: Turbo Pascal

а как сделать щетчик в тп используя оператор цикла с параметром ктонить знает?
 
Останнє редагування:
Ответ: Turbo Pascal

а точней? напиши хотябы что считать нужно, а так счетчик легко сделать.
ну всеравно что щитать нужно чтоб был показан такой процес как у обычного електрощетчика, последнее число становится 9кой предпоследнее становится 1й, и тд
 
Останнє редагування:

dreamer

Member
Ответ: Turbo Pascal

Ничего не понимаю (с), ни из кода ни из объяснений ;)
 

Пух

كنت بلهاء
Модератор
Ответ: Turbo Pascal

Ничего не понимаю (с), ни из кода ни из объяснений ;)
аналогично. зачем в коде перемменная "р" так и не понял. цикл начинаеться от к:=1 to 9 потом "к" присваиваеца значение 0 и считает k:=k+1 тоесть получаеца 1. смысл тогда делать цикл с "к" и обнулять её каждый раз?
если нужно чтобы выводило на экран "к", которое увеличиваеца на 1, то
k:=0;
while k<9 do
begin
k:=k+1;
write(' ',k);
end;
автор, напиши точно, что нужно.
 

Кукушка

Фаталистка
Ответ: Turbo Pascal

нужен щетчик, самый обычный щетчик , ну как обьяснить , ну что никогда не видели електро щетчик?
 
Зверху