Важная информация
Показано с 1 по 3 из 3

Тема: Задание в Pascal (с подпрограммой)

  1. #1 Задание в Pascal (с подпрограммой) 
    Новичок
    Регистрация
    29.04.2016
    Сообщений
    9
    Сказал(а) спасибо
    4
    Поблагодарили 0 раз(а) в 0 сообщениях
    Создать программу для определения количества отрицательное чисел из набора 5-и введенных пользователем целых чисел. Определение количества должно выполняться в подпрограмме
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Сионист
    Регистрация
    21.01.2016
    Адрес
    Галактика Млечный Путь
    Сообщений
    509
    Сказал(а) спасибо
    11
    Поблагодарили 21 раз(а) в 20 сообщениях
    Pascal Code:
    1. program p;
    2. const n=5;
    3. var i:integer;
    4.     x:integer;
    5.     count:integer;
    6. begin
    7.      count:=0;
    8.      writeln('Введите ', n, ' целых чисел');
    9.      for i:=1 to n do
    10.      begin
    11.           readln(x);
    12.           if (x<0) then count:=count+1;
    13.      end;
    14.      if (count=0) then writeln('Отрицательных чисел нет') else writeln ('Среди введённых чисел ', count, ' отрицательных');
    15. end.
    Писать можно на чём угодно, но зачем же так себя ограничивать? Пиши на си.
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Сионист
    Регистрация
    21.01.2016
    Адрес
    Галактика Млечный Путь
    Сообщений
    509
    Сказал(а) спасибо
    11
    Поблагодарили 21 раз(а) в 20 сообщениях
    Цитата Сообщение от Артём Седляр Посмотреть сообщение
    Определение количества должно выполняться в подпрограмме
    Тогда так:
    Pascal Code:
    1. program p;
    2. const n=5;
    3. type tarrya=array[q..n] of integer;
    4. var i:integer;
    5.     x:tarray;
    6.     count:integer;
    7. function check(x:tarray):integer;
    8. var r:integer;
    9.     i:integer;
    10. begin
    11.      r:=0;
    12.      for i:=1 to n do
    13.      begin
    14.           if (x[i]<0) then r:=r+1;
    15.      end;
    16.      check:=r;
    17. begin
    18.      writeln('Введите ', n, ' целых чисел');
    19.      for i:=1 to n do
    20.      begin
    21.           readln(x[i]);
    22.      end;
    23.      count:=check(x);
    24.      if (count=0) then writeln('Отрицательных чисел нет') else writeln ('Среди введённых чисел ', count, ' отрицательных');
    25. end.
    Писать можно на чём угодно, но зачем же так себя ограничивать? Пиши на си.
    Ответить с цитированием  
     

  4. Пользователь сказал cпасибо:

    Артём Седляр (02.05.2016)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Задание в Pascal
    от Артём Седляр в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 01.05.2016, 16:22
  2. Помогите Pascal
    от Артём Седляр в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 30.04.2016, 23:00
  3. Pascal
    от Катюха в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 13.11.2014, 18:56
  4. Массив Pascal abc
    от inkognitik в разделе Pascal ABC
    Ответов: 0
    Последнее сообщение: 26.04.2014, 01:20
  5. Задание по файлам
    от Stannum в разделе QBasic
    Ответов: 18
    Последнее сообщение: 19.04.2013, 01:37
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •