Задача в дельфи.

[clifred]

Помогите написать программу в дельфи.
Вот условие: дан номер дня недели ( 1 - пн, 2 - вт и т.д.). Вывести название дня недели на английском языке.
заранее спасибо

[_-Re@l-_]

case n of
1: Edit1.Text:= 'Monday';
2: Edit1.Text:= 'Tuesday';
3: Edit1.Text:= 'Wednesday';
4: Edit1.Text:= 'Thursday';
5: Edit1.Text:= 'Friday';
6: Edit1.Text:= 'Saturday';
7: Edit1.Text:= 'Sunday';
end;

Ну, надеюсь, Edit сами знаете как на форму добавить...

[Grag]

StaticText.Font.Color:=clBlack;
case n of
1: StaticText.Caption:= 'Monday';
2: StaticText.Caption:= 'Tuesday';
3: StaticText.Caption:= 'Wednesday';
4: StaticText.Caption:= 'Thursday';
5: StaticText.Caption:= 'Friday';
6: begin
      StaticText.Caption:= 'Saturday';
      StaticText.Font.Color:=clRed
    ebd;
7: begin
      StaticText.Caption:= 'Sunday';
      StaticText.Font.Color:=clRed
    end
end;

[Gorychev]

как вариант:

 caption :=  formatdatetime('dddd', 0); // суббота
...
 caption :=  formatdatetime('dddd', 6); // пятница

правда на русском выводит, те. от локализации зависит.

[clifred]

Спасибо всем ответившим
Помогите пожалуйста в решении еще одной задачки:
Даны три числа. Определить, могут ли они являться длинами сторон треугольника, если да, то определить тип треугольника (равнобедренный, равносторонний, разносторонний).

[fredwriter]

Квадрат гипотенузы равен сумме квадратов катетов

[evg_m]

if (a+b<c) and (a+c<b) and (b+c<a) then
  statictext1.caption:='есть тереугольник'
else begin
  statictext1.caption:='треугольник невозможен';
  statictext1.fornt.color:=clred;
end;

для равнобедренного, равностороннего добавить дополнительные проверки из курса геометрии 7 класса.( определение типа треугольника).

if ...< 7 класс >...... then
  statictext1.caption:='равносторонний'
else if  ...< 7 класс > .... then
 statictext1.caption:='равнобедренный'
else 
  statictext1.caption:='разносторонний';