|
Вопрос # 6 430/ вопрос закрыт / |
|
Здравствуйте!Помогите пожалуйста
Мне нужно сделать блок-схему и программу написать.
Задание:
Задана последовательность из n вещественных чисел.Определить количество положительных и количество отрицательных элементов
последовательности.
Примечание #1 (18 мая 2013, 19:15): Или найти ошибку
Program B6;
{$APPTYPE CONSOLE}
Uses
SysUtils;
Var a, n , x , kol(0), kol(p): Real;
i , n: Integer;
Begin
{TODO -oUser -cConsole Main : Insert code here}
Write ('Vvod n');
Readln(n);
kol(0):=0;
kol(p):=0;
For i:= 1 to n do;
Begin
Write ('Vvod x');
Readln(x);
If x<0 then kol(0)+1 else kol(p)+1;
End;
Writeln ('Kolichestvo 0', kol(0):5:2, 'kolichestvo p', kol(p):5:2;
End.
 |
Вопрос задал: Хованский Илья Мамедович (статус: Посетитель)
Вопрос отправлен: 18 мая 2013, 18:50
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 20 мая 2013, 22:37; участников в обсуждении: 3.
|
Толяныч (статус: 4-ый класс), 19 мая 2013, 11:11 [#1]:
1. В идентификаторах не должно быть скобок. Нельзя без вырендрежа напис`ать просто KolP ?
2. then KolP := KolP +1 или Inc (KolP)
3. И вообще, транслитом писать -- это очень по-колхозному. Если не в курсе, что значат "Input, Number of", то пиши просто по русски "Количество" -- компилятор поймет.
4. И вообще, "В Дельфях надо действовать смело,
Задачи решать самому."
А "порешайте, дяденьки, за ленивого студня" -- терпеть не люблю.
Хотя скорее всего это тролль, а я тут осетром выплёскиваюсь.
|
19 мая 2013, 11:34: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Лабораторный практикум » Delphi модератором DNK
|
|
Хованский Илья Мамедович (статус: Посетитель), 20 мая 2013, 15:20 [#2]:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:real;
i,n,countplus,countminus:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Vvod n ');
readln(n);
countplus:=0;
countminus:=0;
for i:=1 to n do
begin
write('Vvod a: ');
readln(a);
if a>0 then
countplus:=countplus+1;
if a<0 then
countminus:=countminus+1;
end;
writeln('pologitelnie- ',countplus,'otricatelnie- ',countminus);
readln;
end.
Скажите пожал-та эта правильная программа?Или ошибка есть
|
|
QWERYTY (статус: Посетитель), 20 мая 2013, 22:37 [#3]:
Во прикол. Один и тот же код гуляет по сети.
Недавно был такой же вопрос на другом прталле программистов.
dukalis - Хованский Илья Мамедович вам этот ник ни о чём не говорит?
Неужели сами уже ничего написать не могут нынешние студенты?
Не сказал бы что это правильная программа, но при этом она работоспособна(если идентификаторы переменных сделать нормальными).
Переделайте чтоб второе условие не проверялось если выполнено первое, иначе можно не расчитывать на высокий бал
ВЕРИТЬ ВО ВНЕЗЕМНЫЕ ЦИВИЛИЗАЦИИ НЕ ОЗНАЧАЕТ ВЕРИТЬ В ИНОПЛАНЕТЯН.
|
15 сентября 2013, 12:49: Вопрос закрыт (решение принял Ерёмин А.А.): Не имеет смысла.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
