IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Программа,подсчитывающая количество введёных с клавиатуры чиселпервого и второго десятков
сообщение
Сообщение #1


Гость






Помогите пожалуйста,кто знает как это решать!!!По заданию мне нужно написать программу, подсчитывающую количество введённых с клавиатуры чисел первого (от 1 до 10) и второго (от 11 до 20) десятка. Если вводится число больше 20 или меньше 0, то программа выдаёт сообщение о том, что введено недопустимое число. Если вводится 0, программа заканчивает своё выполнение и выводит результат.
Рекомендуемый экран после запуска программы: Введите число в диапазоне от 0 до 20: 25 Это недопустимое число, введите ещё раз: 15 Введите число в диапазоне от 0 до 20: 3 Введите число в диапазоне от 0 до 20: 5 Введите число в диапазоне от 0 до 20: 0
Из введённых Вами чисел 2 числа относятся к первому десятку и 1 -ко второму.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

Репутация: -  4  +


ты хоть начни...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






в этом и есть вся проблема...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Считываешь число с помощью readln(х)
Анализируешь его....
Все это в цикле, выход из которого осуществляется при нажатии 0. Например, так:
readln(x);
while x<>0 do
begin
{анализ}
readln(x);
end;


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






что то я не совсем понимаю как это делать, объясните по подробнее
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Знаток
****

Группа: Пользователи
Сообщений: 424
Пол: Мужской

Репутация: -  2  +


Код

var x, count1,count2 : integer;
begin
  count1:=0;{Обнуление количества чисел первого десятка}
  count2:=0;{Обнуление количества чисел второго десятка}
  writeln('Введите число в диапазоне от 0 до 20: '); {Вывод предложения ввести число от 0 до 20}
  readln(x); {Считывание числа}
  while x<>0 do begin{ Пока введеное число не равно 0 выполнять}
    If (x>20) or (x<0) then {Если число не принадлежит отрезку от 0 до 20, то}
      writeln('Это недопустимое число, введите ещё раз: '){Вывести сообщение об ошибке и предложение ввести правильное число}
    else if (x<=20) and (x>10) then begin {Если число меньше либо равно двадцати и больше десяти(условие принадлежности ко второму десятку), то}
      inc(count2);{Увеличить количество чисел второго десятка на 1}
      writeln('Введите число в диапазоне от 0 до 20: ');{Вывести предложение ввести число от 0 до 20}
    end else begin{Если не выполнились два предыдущих условие, то число пренадлежит первому десятку (0 оно быть равно не может, т.к. если бы оно было равно 0, то не произошел бы этот цикл)}
      inc(count1);  {Увеличить количество чисел первого десятка}
      writeln('Введите число в диапазоне от 0 до 20: ');{Вывести предложение ввести число от 0 до 20}
    end;
    readln(x);{Считать число}
  end;
  writeln('Из введённых Вами чисел ',count1,' числа относятся к первому десятку и ',count2,' 1 -ко второму.');{Вывод результата}
  readln;{Считывание Enter}
end.

Если что-то не поймешь, то пиши, задача простая и в ней нужно разобраться.

Сообщение отредактировано: arhimag -


--------------------
Чего хочет женщина – того хочет Бог
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






у меня всё работает, но почему то не выводится результат пишется просто из введённых вами чисел 0 чисел относится к 1 десятку и 0 ко второму
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 21.10.2020 15:22
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name