Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.03.2016, 11:59   #1
Styder
Новичок
Джуниор
 
Регистрация: 04.03.2016
Сообщений: 2
По умолчанию Легкую задачку помогите решить

Дано целое n>0, за которым следует n вещественных чисел. Определить, сколько среди них отрицательных. Label goto, пожалуйста

Последний раз редактировалось Styder; 04.03.2016 в 23:47.
Styder вне форума Ответить с цитированием
Старый 04.03.2016, 12:05   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

во-первых, если N меньше нуля, то за ним отрицательное число чисел следовать не может. Это бессмыслица.

во-вторых, label / goto - это очень плохой стиль программирования на Паскале.
где и кто Вас плохому учит?!!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.03.2016, 19:01   #3
ProBeginner
Форумчанин
 
Регистрация: 22.02.2016
Сообщений: 145
По умолчанию

Точно - чепуха. Перепишите задание, как было дано преподавателем.
Возьму в кредит мильён по 100% годовых на сто лет.
ProBeginner вне форума Ответить с цитированием
Старый 06.03.2016, 17:22   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
label l1,l2;
const n=8;
var i,k:integer;
    p:array[1..n] of real;
begin
   Randomize;
   i:=1;
   l1:
   p[i]:=-10+Random(20)+Random;
   Write(p[i]:4:3,'  ');
   i:=i+1;
   If i<=n then
      goto l1;
   Writeln;
   Writeln;
   k:=0;
   i:=1;
   l2:
   If p[i]<0 then
      k:=k+1;
   i:=i+1;
   If i<=n then
      goto l2;
   Writeln(k);
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 10.03.2016, 21:32   #5
Styder
Новичок
Джуниор
 
Регистрация: 04.03.2016
Сообщений: 2
По умолчанию легкая задачка на Паскаль

Дано целое n>0, за которым следует n вещественных чисел. Определить, сколько среди них отрицательных. Через goto
ГДЕ ОШИБКА?
l
Код:
abel l1,l2;
const n=8;
var i,k:integer;
    p:array[1..n] of real;
begin
   Randomize;
   i:=1;
   l1:
   p[i]:=-10+Random(20)+Random;
   Write(p[i]:4:3,'  ');
   i:=i+1;
   If i<=n then
      goto l1;
   Writeln;
   Writeln;
   k:=0;
   i:=1;
   l2:
   If p[i]<0 then
      k:=k+1;
   i:=i+1;
   If i<=n then
      goto l2;
   Writeln(k);
   Readln;
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 10.03.2016 в 22:07.
Styder вне форума Ответить с цитированием
Старый 10.03.2016, 22:03   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Нормально оно работает. Что не нравится?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 10.03.2016, 22:07   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Styder, зачем создавать ещё одну тему?! Вам одной темы мало?
Я слил обе ваши темы в одну.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачку Volshebstvo Паскаль, Turbo Pascal, PascalABC.NET 1 21.10.2014 20:30
Решить легкую задачку - Найти обратный факториал через длинную арифметику паскаль. Alexandr67 Фриланс 1 22.11.2013 11:24
Надо решить легкую задачу в с++ Aaaaaa111 Помощь студентам 4 15.02.2012 11:57