Delphi у меня 7-й версии. будет чем проект открыть? Код модуля в файле Unit1.pas.
P.S. Что-то zip не грузится, код - ниже:
procedure TForm1.Button1Click(Sender: TObject); var N1, N2, N3: Real; begin //Проверок на введённе значения для простоты не делаю N1:=StrToFloat(Edit1.Text); N2:=StrToFloat(Edit2.Text); N3:=StrToFloat(Edit3.Text);
if N1<0 then N1:=N1*N1*N1*N1 else N1:=N1*N1; if N2<0 then N2:=N2*N2*N2*N2 else N2:=N2*N2; if N3<0 then N3:=N3*N3*N3*N3 else N3:=N3*N3;
Пронумеруем дни недели числами от 0 до 6 (0-Вс, 1-Пн, .. 6-Сб).
var dow:0..6; begin Write('Введите номер дня недели (0-Вс, 6-сб): '); Read(dow); case dow of 0:Writeln('Воскресенье, выходной'); 1:Writeln('Понедельник, 6 уроков'); 2:Writeln('Вторник, 6 уроков'); 3:Writeln('Среда, 7 уроков'); 4:Writeln('Четверг, 6 уроков'); 5:Writeln('Пятница, 6 уроков'); 6:Writeln('Суббота, 6 уроков'); else Writeln('Введено неверное значение') end end.
Тестовое решение: Введите номер дня недели (0-Вс, 6-сб): 5 Пятница, 6 уроков
Delphi у меня 7-й версии. будет чем проект открыть? Код модуля в файле Unit1.pas.
P.S. Что-то zip не грузится, код - ниже:
procedure TForm1.Button1Click(Sender: TObject);
var
N1, N2, N3: Real;
begin
//Проверок на введённе значения для простоты не делаю
N1:=StrToFloat(Edit1.Text);
N2:=StrToFloat(Edit2.Text);
N3:=StrToFloat(Edit3.Text);
if N1<0 then N1:=N1*N1*N1*N1 else N1:=N1*N1;
if N2<0 then N2:=N2*N2*N2*N2 else N2:=N2*N2;
if N3<0 then N3:=N3*N3*N3*N3 else N3:=N3*N3;
Edit4.Text:=FloatToStr(N1);
Edit5.Text:=FloatToStr(N2);
Edit6.Text:=FloatToStr(N3);
end;