Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
syber2013
0 / 0 / 0
Регистрация: 24.02.2013
Сообщений: 11
#1

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

04.09.2013, 16:52. Просмотров 818. Ответов 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 лет» - Pascal
если не в напряг помогите решить задачку Составьте прогу, которая для целого числа k (от 1 до 99), введенного вами, напечатает фразу...

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

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

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

Для целого числа k от 1 до 10 вывести фразу "Мне k лет" - Turbo Pascal
Для целого числа k от 1 до 10 вывести фразу &quot;Мне k лет&quot;, учитывая, что для некоторых значений k слово лет меняется. Помогите какой будет...

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

1
Puporev
Модератор
52836 / 40647 / 13895
Регистрация: 18.05.2008
Сообщений: 94,320
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 напечатать фразу " Мне К лет" - Turbo Pascal
Для целого положительного числа К от 1 до 99 напечатать фразу &quot; Мне К лет&quot;, учитывая при этом, что при некоторых значениях К слово &quot;лет&quot;...

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

Для целого числа и от 1 до 99 напечатать фразу «Мне k лет» - C#
Чтобы было понятнее напишу задание: Для целого числа и от 1 до 99 напечатать фразу «Мне k лет», учитывая при этом, что при некоторых...

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


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

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

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