Оператор case в Pascal

@ХЗ_63 · Регистрация: 14.05.2009

Author24 — интернет-сервис помощи студентам

Всем привет, помогите советом.....Мне надо написать программу к задаче:
Дано натуральное число n (n≤100), определяющее возраст человека (в годах). Дать для
этого числа наименования «год», «года», «лет». Например, 1 год, 23 года, 46 лет и т.д.
Я написал программу, но думаю что она слишком громоздкая....помогите советом, как можно это исправить....

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
var
n:integer;
begin
writeln('VVedite Znachenie n:');
readln(n);
case n of
1,21,31,41,51,61,71,81,91:writeln(' God ');
2,3,4,22,23,24,32,33,34,42,43,44,52,53,54,62,63,64 ,72,73,74,82,83,84,92,93,94:writeln(' Goda ');
5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,26,2 7,28,29,30,35,36,37,38,39,40,45,46,47,48,49,50,55, 56,57,58,59,60,65,66,67,68,69,70,75,76,77,78,79,80 ,85,86,87,88,89,90,95,96,97,98,99,100:writeln(' Let ');
else
writeln(' StolbKo HE zhivut ');
end;
readln;
end.

@demidrolll · 14.05.2009, 01:41

Я заметил, что цифры на "год" заканчиваются 1(начиная с 20), на "Года" - 2,3,4; на "Лет" - от 5 до 20 и дальше заканчиваются на 5, 6, 7, 8, 9, 0
Можно это использовать

@ХЗ_63 · 14.05.2009, 01:44 **[ТС]**

Если честно я тоже это заметил, но к сожалению как использовать это не знаю......вот и хотел бы спросить, может кто знает как это использовать и сделать программу компактнее....?

@demidrolll · 14.05.2009, 01:47

последняя цифра числа определяется так:

Pascal

1	c:=n mod 10; {c-цифра, n-число}

@ХЗ_63 · 14.05.2009, 02:12 **[ТС]**

Демидрол....а можешь написать как примерно будет выглядеть 1 строчка в программе, с указанием того, что ты сне написал, то есть как заменить такую строчку:
1,21,31,41,51,61,71,81,91:writeln(' God ');
???

Добавлено через 16 минут 59 секунд
я попробовал написать так:
1:1:=n mod 10:writeln(' God ');
но это конечно же неправильно....подскажи как надо это прописать.....

@demidrolll · 14.05.2009, 02:19

Вот, проверяй

Pascal

uses
  crt;
var
  i,n,c: integer;
begin
  clrscr;
  write('wwedite chislo: ');
  readln(n);
  c:=n mod 10;
  case c of
    1: if (n>20) or (n=1) then
         writeln('GOD');
    2,3,4: if (n>20) or (n=2) or (n=3) or (n=4) then
             writeln('GODA');
    5,6,7,8,9,0: if (n in [5..20]) or (n>20) then
             writeln('Let');
  end;
  readkey;
end.

@ХЗ_63 · 14.05.2009, 02:39 **[ТС]**

Ну конечно....как сразу не догадался....используя оператор if внутри оператора case.....
написано верно...только у меня есть пара вопросов.....
1)зачем вводить переменную i?
2)надо ещё как то указать промежуток n, ведь n?100.......чтобы при наборе в программе например цифры 105 не высвечивалось лет......как это сделать?
(почему то прописав else,не рабатывает....)

Добавлено через 3 минуты 31 секунду
То есть программа моя выглядит сейчас так:

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
var
c,n:integer;
begin
writeln('VVedite Znachenie n:');
readln(n);
c:=n mod 10;
case c of
1: if (n>20) or (n=1) then
writeln('GOD');
2,3,4: if (n>20) or (n=2) or (n=3) or (n=4) then
writeln('GODA');
5,6,7,8,9,0: if (n in [5..20]) or (n>20) then
writeln('Let');
else
writeln(' StolbKo HE zhivut ');
end;
readln;
end.

вопрос, как указать промежуток для n???чтобы при наборе например 105 выходило StolbKo HE zhivut, а???

@demidrolll · 14.05.2009, 02:41

i поставил на автомате, забыл убрать

Pascal

uses
  crt;
var
  n,c: integer;
begin
  clrscr;
  write('wwedite chislo: ');
  readln(n);
  if n<=100 then
  begin
    c:=n mod 10;
    case c of
      1: if (n>20) or (n=1) then
           writeln('GOD');
      2,3,4: if (n>20) or (n=2) or (n=3) or (n=4) then
               writeln('GODA');
      5,6,7,8,9,0: if (n in [5..20]) or (n>20) then
               writeln('Let');
    end;
  end
  else
    writeln('Ne podxodit');
  readkey;
end.

@ХЗ_63 · 14.05.2009, 02:51 **[ТС]**

я записал условие для n так....
if (n<100) or (n=100) then
компактнее записать можно или так оставить?

@demidrolll · 14.05.2009, 02:51

if n<=100 then

@ХЗ_63 · 14.05.2009, 02:54 **[ТС]**

а точно)))просто первый раз так набирал, что то не получалось.....спасибо тебе большое за помощь......

@demidrolll · 14.05.2009, 02:57

и еще: когда пишешь код на форуме, выделяй его с помощью кнопки PASCAL на панели

@ХЗ_63 · 14.05.2009, 02:58 **[ТС]**

я тут впервые.......ещё не освоился....буду иметь ввиду.....спасибо ещё раз....

@lbvf · 14.05.2009, 04:57

добрый вечер

@ХЗ_63 · 14.05.2009, 14:42 **[ТС]**

демидрол.....вот так должна выглядеть прога....

Pascal

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
n:integer;
begin
  writeln(' VVedite Znachenie: ');
  readln(n);
  if n<=100 then
  begin
    if n in [11..14] then write(' Let ') else
      case n mod 10 of
        1:writeln(' God ');
        2,3,4:writeln(' Goda ');
        0,5,6,7,8,9:writeln(' Let ');
      end;
  end
  else
    writeln(' StolbKo HE zhivut ');
  readln;
end.

@MrLOLS · 21.11.2010, 18:26

Я сделал так:

Pascal

Program Vek;
var N: byte;
begin
write('Введите возраст человека - '); read(N);
if N<=100 then
 
    begin write('Человеку ',N,' ');
    if N in [11..14] then write('лет.')
    else
        case N mod 10 of
            1: write('год.');  
            2..4: write('года.'); 
            0,5..9: write('лет.');  
        end;
    end
 
else write('Неправильно введены данные. Введите в диапазоне от 0 до 100!');
End.

Vik.zip

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286
	14.05.2009, 01:41	2
	Я заметил, что цифры на "год" заканчиваются 1(начиная с 20), на "Года" - 2,3,4; на "Лет" - от 5 до 20 и дальше заканчиваются на 5, 6, 7, 8, 9, 0 Можно это использовать 1

@ХЗ_63 0 / 0 / 0 Регистрация: 14.05.2009 Сообщений: 27
	14.05.2009, 01:44 [ТС]	3
	Если честно я тоже это заметил, но к сожалению как использовать это не знаю......вот и хотел бы спросить, может кто знает как это использовать и сделать программу компактнее....? 0

@ХЗ_63 0 / 0 / 0 Регистрация: 14.05.2009 Сообщений: 27
	14.05.2009, 02:12 [ТС]	5
	Демидрол....а можешь написать как примерно будет выглядеть 1 строчка в программе, с указанием того, что ты сне написал, то есть как заменить такую строчку: 1,21,31,41,51,61,71,81,91:writeln(' God '); ??? Добавлено через 16 минут 59 секунд я попробовал написать так: 1:1:=n mod 10:writeln(' God '); но это конечно же неправильно....подскажи как надо это прописать..... 0

@ХЗ_63 0 / 0 / 0 Регистрация: 14.05.2009 Сообщений: 27
	14.05.2009, 02:51 [ТС]	9
	я записал условие для n так.... if (n<100) or (n=100) then компактнее записать можно или так оставить? 0

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286
	14.05.2009, 02:51	10
	if n<=100 then 0

@ХЗ_63 0 / 0 / 0 Регистрация: 14.05.2009 Сообщений: 27
	14.05.2009, 02:54 [ТС]	11
	а точно)))просто первый раз так набирал, что то не получалось.....спасибо тебе большое за помощь...... 0

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286
	14.05.2009, 02:57	12
	и еще: когда пишешь код на форуме, выделяй его с помощью кнопки PASCAL на панели 0

@ХЗ_63 0 / 0 / 0 Регистрация: 14.05.2009 Сообщений: 27
	14.05.2009, 02:58 [ТС]	13
	я тут впервые.......ещё не освоился....буду иметь ввиду.....спасибо ещё раз.... 0

@lbvf 0 / 0 / 0 Регистрация: 14.05.2009 Сообщений: 6
	14.05.2009, 04:57	14
	добрый вечер 0