Тех.прог.

[Александр I]

Помогите составить программу, которая при вводе с клавиатуры номера месяца выводит на экран сообщение: «Ученье – свет!» для всех месяцев, кроме июля и августа. Для июля и августа сообщение должно быть: «Ура! Каникулы!». При вводе числа за пределами диапазона 1..12 должно появляться сообщение: «В году 12 месяцев!».

Указание: использовать селектор интервального типа.

[tsar_]

Вот тебе решение на Delphi 7:
1)кидаешь на Form1 компоненты Label (2 шт.) и Edit (1 шт.);
2)код модуля:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var n:integer;
begin
 case key of                                                 //проверка вводимых символов
  '1'..'9', #8, #13: key:=key;                           //(допустимы только цифры)
 else
  key:=chr(0);
 end;

 if (key=#13) and (edit1.Text<>'') then              
 begin                                               
  n:=strtoint(edit1.Text);                           
  case n of
   1..6, 9..12: label1.Caption:=Ученье- свет!';
   7,8: label1.Caption:='Ура! Каникулы!';
  else label1.Caption:='В году 12 месяцев!'
  end;
  end;
end;

end.

Запускаешь, вводишь число, нажимаешь Enter и получаешь сообщеньице.

[Александр I]

во, спасибо !