Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
syber2013
0 / 0 / 1
Регистрация: 24.02.2013
Сообщений: 11
#1

Перечислимые и интервальные типы: программа печатающая для целого от 1 до 99 фразу: мне ,,, лет - Pascal

04.09.2013, 16:52. Просмотров 863. Ответов 1
Метки нет (Все метки)

Задание: Составить программу печатающую для целого числа k от 1 до 99 фразу: "мне k лет". При этом учитывать, что при некоторых значениях k слово "лет" надо заменить на слово "год" или "года".

В общем ситуация: написал прогу
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program kontr1;
uses crt;
label label1; {описание метки}
var
k,b:integer;  {описываем переменные }
begin
 clrscr;      {очистка экрана}
 writeln('Введите число k:');  {вывод надписи}
 write('k=');
 readln(k);                {вводим число k}
 if(k>4)and(k<21) then    {проверяем если число k находится в диапазоне} 
  begin                   {от 5 до 20 то ответ будет ‘лет’}
    writeln('Мне ',k,' лет');  {вывод сообщения}
    goto label1;           {переходим на метку}
  end
 else
  b:=(k mod 10);          {находим остаток от деления}
   if(1<b)and(b<5) then   {если остаток в диапазоне от 2 до 4 }
     begin                {то ответ будет ‘года’}
      writeln('Мне  ',k,' года');
      goto label1;
     end
 else                     {если остаток равен 1 то ответ будет ‘год’}
   if b=1 then
    begin
     writeln('Мне  ',k,' год');
     goto label1;
     end
 else
   writeln('Мне  ',k,' лет');
 label1:write('Нажмите любую клавишу для продолжения');
        repeat
        until keypressed
 end.
Послал на проверку. Пришла рецензия:
Лабораторная работа №1 не зачтена.
Хочу обратить Ваше внимание на то, что в лабораторной работе 1 обязательно нужно использовать перечислимый или ограниченный типы данных.

Помогите пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.09.2013, 16:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перечислимые и интервальные типы: программа печатающая для целого от 1 до 99 фразу: мне ,,, лет (Pascal):

Для целого числа напечатать фразу «Мне k лет»
если не в напряг помогите решить задачку Составьте прогу, которая для целого...

Для целого числа N от 20 до 25 напечатать фразу "Мне N лет"
Для целого числа N от 20 до 25 напечатать фразу &quot;Мне N лет&quot;, учитывая при этом,...

Для целого числа k от 1 до 99 напечатать фразу «Мне k лет»
Помогите пожалуйста составить блок схему, заранее благодарен. Для целого...

Для целого числа К от 1 до 99 напечатать фразу “мне К лет”
1. Для целого числа К от 1 до 99 напечатать фразу “мне К лет”, учитывая при...

Для целого числа k от 1 до 10 вывести фразу "Мне k лет"
Для целого числа k от 1 до 10 вывести фразу &quot;Мне k лет&quot;, учитывая, что для...

Для целого числа к от 1 до 99 напечатать фразу "мне к лет"
Для целого числа к от 1 до 99 напечатать фразу &quot;мне к лет&quot; учитывая при этом...

1
Puporev
Модератор
54124 / 41757 / 28869
Регистрация: 18.05.2008
Сообщений: 98,280
04.09.2013, 17:15 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var k:1..99;
    s:string;
begin
clrscr;
write('Введите число от 1 до 99 k=');
readln(k);
str(k,s);
s:='Мне '+s;
case k mod 100 of
11..14:s:=s+' лет';
else
 case k mod 10 of
 0,5..9:s:=s+' лет';
 2..4:s:=s+' года';
 1:s:=s+' год';
 end;
end;
write(s);
readln
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.09.2013, 17:15
Привет! Вот еще темы с решениями:

Для целого положительного числа К от 1 до 99 напечатать фразу " Мне К лет"
Для целого положительного числа К от 1 до 99 напечатать фразу &quot; Мне К лет&quot;,...

Составьте программу, выводящую фразу "мне k лет" (для целого числа k от 1 до 99)
Составьте программу, выводящую фразу &quot;мне k лет&quot; (для целого числа k от 1 до...

Для целого числа и от 1 до 99 напечатать фразу «Мне k лет»
Чтобы было понятнее напишу задание: Для целого числа и от 1 до 99 напечатать...

Для целого числа К от 1 до 99 напечатать фразу “мне К лет”
Для целого числа К от 1 до 99 напечатать фразу “мне К лет”, учитывая при этом,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru