Программа в Pascal

John666 · 18.09.2011, 16:19

Помогите написать программу в Паскале:
"Ввести 5 чисел и подсчитать число отрицательных чисел".
Заранее спасибо.

sc2melvin · 18.09.2011, 22:31

Стучите, 648964446

ww01031977 · 19.09.2011, 14:44

Var A:array[1..5] of real;
i,k:integer;
begin
for i:=1 to 5 do
begin
write(' ',i,'=');readln(A[i]);
end;
for i:=1 to 5 do
if a[i]<0 then k:=k+1;
writeln('k=',k);
end.

AlexZir · 19.09.2011, 17:21

А зачем так длинно и с массивом? Можно же обойтись и одним циклом, будет работать быстрее.

Код:

var x: real;
i,s: byte;
begin
s:=0;
writeln('Введите 5 чисел:');
for i:=1 to 5 do begin
readln(x);
if x<0 then inc(s);
end;
writeln('Было введено ',s,' отрицательных чисел');
readln;
end.

kreol · 19.09.2011, 19:47

а чтоб оптимизировать еще немного можно вынести первый writeln из цикла и сразу попросить ввести 5 цифр через пробел и объявить i,s: byte ))

AlexZir · 20.09.2011, 05:29

Тоже вариант

18.09.2011, 16:19	#1 (permalink)
John666 Новичок Регистрация: 18.09.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программа в Pascal Помогите написать программу в Паскале: "Ввести 5 чисел и подсчитать число отрицательных чисел". Заранее спасибо.

19.09.2011, 17:21	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	А зачем так длинно и с массивом? Можно же обойтись и одним циклом, будет работать быстрее. Код: var x: real; i,s: byte; begin s:=0; writeln('Введите 5 чисел:'); for i:=1 to 5 do begin readln(x); if x<0 then inc(s); end; writeln('Было введено ',s,' отрицательных чисел'); readln; end. __________________ Убить всех человеков! Последний раз редактировалось AlexZir; 20.09.2011 в 05:31 Причина: и то верно, зачем слишком память забивать ;)

20.09.2011, 05:29	#6 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Тоже вариант __________________ Убить всех человеков!

18.09.2011, 16:19
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Я уверен, проблема решиться если ознакомиться с похожими темами Программа в Pascal abc Pascal Pascal Pascal Pascal

18.09.2011, 22:31	#2 (permalink)
sc2melvin Новичок Регистрация: 18.09.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Стучите, 648964446

19.09.2011, 14:44	#3 (permalink)
ww01031977 Member Регистрация: 22.01.2008 Сообщений: 553 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 46	Var A:array[1..5] of real; i,k:integer; begin for i:=1 to 5 do begin write(' ',i,'=');readln(A[i]); end; for i:=1 to 5 do if a[i]<0 then k:=k+1; writeln('k=',k); end.

19.09.2011, 19:47	#5 (permalink)
kreol Member Регистрация: 27.02.2010 Сообщений: 659 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1312	а чтоб оптимизировать еще немного можно вынести первый writeln из цикла и сразу попросить ввести 5 цифр через пробел и объявить i,s: byte ))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070