Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 143283
07.09.2008, 17:55
0.00 руб.
07.09.2008, 20:29
0 4 1
Компьютеры Программирование
Здравствуйте!!!!помогите решить задачу. В одномерном массиве вещественных чисел все отрицательные элементы замените количеством элементов,а остальные их номером.(на Qbasic)

Обсуждение

Неизвестный
07.09.2008, 18:14
общий
это ответ
Здравствуйте, Андреев Павел Александрович!
Есть два варианта: первый быстрее, второй нагляднее в тестировании. Выбирайте сами. Обе программки в приложении.


Приложение:
program p143283;
const N=10;
var array [1..N] of real;
c,i,n:integer;
BEGIN
for i:=1 to N do
begin
write('Введите элемент №',i,' ');
readln(a[i]);
if a[i]<0 then a[i]:=N else a[i]:=i;
end;
for i:=1 to N do
write(a[i],' ');
end.


program p143283_;
const N=10;
var array [1..N] of real;
c,i,n:integer;
BEGIN
for i:=1 to N do
begin
write('Введите элемент №',i,' ');
readln(a[i]);
end;
for i:=1 to N do
begin
write(a[i],' ');
if a[i]<0 then a[i]:=N else a[i]:=i;
end;
for i:=1 to N do
write(a[i],' ');
end.
Неизвестный
07.09.2008, 18:15
общий
Дополнение к ответу: недоглядел, что переменные c,n в решении не используются (да ещё и вторая повторяет ранее определённую константу ), поэтому можно их не определять в строке "c,i,n:integer;", оставив "i:integer;"
Неизвестный
07.09.2008, 18:53
общий
помогите решить задачу !!! в одномерном массиве вещественных чисел все отрицательные элементы замените количеством элементов,а остальные их номером.на Qbasic
Неизвестный
07.09.2008, 19:49
общий
Задайте еще один вопрос в рассылку / КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA. Pascal и Qbasic совсем разные вещи.
Форма ответа