Экзамен по Delphi - Помощь студентам

Григорьева Ксения · 14.03.2012, 19:29

С клавиатуры вводятся два числа. На форме имеется переключатель. В зависимости от переключателя на экран выводится сумма или разность.

С клавиатуры вводятся два числа. На форме имеется переключатель. В зависимости от переключателя на экран выводится произведении или разность.

Hacker19_90 · 14.03.2012, 19:30

И дальше что?

Григорьева Ксения · 14.03.2012, 19:33

Я в Delphi полный ноль, если не сложно, помоги

Hacker19_90 · 14.03.2012, 19:42

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckBox1.State = cbChecked then
      Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text))
  else Edit3.Text := IntToStr(StrToInt(Edit1.Text) - StrToInt(Edit2.Text));
end;

2 По аналогии!

Григорьева Ксения · 14.03.2012, 19:49

Спасибо огромное, с меня причитается )))))))

Hacker19_90 · 14.03.2012, 19:50

Само собой))))))))

Григорьева Ксения · 14.03.2012, 20:26

Если не сложно, помогите еще раз.
С клавиатуры вводятся три числа как коэффициенты квадратного уравнения. На экран выводится количество корней квадратного уравнения.
С клавиатуры вводятся два числа. На форме имеется переключатель. В зависимости от переключателя на экран выводится сумма или разность клавиатуры вводятся три числа. Вывести на экран меньшее из них.

Hacker19_90 · 14.03.2012, 20:38

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (sqr(StrToFloat(Edit2.Text)) - 4*StrToFloat(Edit1.Text)*StrToFloat(Edit3.Text)) < 0 then
      Edit4.Text := 'Нет корней';
  if (sqr(StrToFloat(Edit2.Text)) - 4*StrToFloat(Edit1.Text)*StrToFloat(Edit3.Text)) = 0 then
      Edit4.Text := '1';
  if (sqr(StrToFloat(Edit2.Text)) - 4*StrToFloat(Edit1.Text)*StrToFloat(Edit3.Text)) > 0 then
      Edit4.Text := '2';
end;

Григорьева Ксения · 14.03.2012, 20:42

От куда ты всё это знаешь? Ты просто чудо ))))))))

Hacker19_90 · 14.03.2012, 21:02

Цитата:

С клавиатуры вводятся два числа. На форме имеется переключатель. В зависимости от переключателя на экран выводится сумма или разность клавиатуры вводятся три числа. Вывести на экран меньшее из них.

Это как понять?

14.03.2012, 19:29	#1
Григорьева Ксения Регистрация: 14.03.2012 Сообщений: 9	Экзамен по Delphi С клавиатуры вводятся два числа. На форме имеется переключатель. В зависимости от переключателя на экран выводится сумма или разность. С клавиатуры вводятся два числа. На форме имеется переключатель. В зависимости от переключателя на экран выводится произведении или разность.

14.03.2012, 19:30	#2
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	И дальше что? *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

14.03.2012, 19:42	#4
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Код: `procedure TForm1.Button1Click(Sender: TObject); begin if CheckBox1.State = cbChecked then Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text)) else Edit3.Text := IntToStr(StrToInt(Edit1.Text) - StrToInt(Edit2.Text)); end;` 2 По аналогии! *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

14.03.2012, 19:50	#6
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Само собой)))))))) *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Экзамен	Nempak	Помощь студентам	3	07.06.2011 09:29
экзамен	ronny137	Фриланс	5	29.12.2010 13:28
Экзамен	Acrotrixer	Фриланс	6	18.06.2010 21:27

14.03.2012, 19:33	#3
Григорьева Ксения Регистрация: 14.03.2012 Сообщений: 9	Я в Delphi полный ноль, если не сложно, помоги

14.03.2012, 19:49	#5
Григорьева Ксения Регистрация: 14.03.2012 Сообщений: 9	Спасибо огромное, с меня причитается )))))))

14.03.2012, 20:26	#7
Григорьева Ксения Регистрация: 14.03.2012 Сообщений: 9	Если не сложно, помогите еще раз. С клавиатуры вводятся три числа как коэффициенты квадратного уравнения. На экран выводится количество корней квадратного уравнения. С клавиатуры вводятся два числа. На форме имеется переключатель. В зависимости от переключателя на экран выводится сумма или разность клавиатуры вводятся три числа. Вывести на экран меньшее из них.

14.03.2012, 20:42	#9
Григорьева Ксения Регистрация: 14.03.2012 Сообщений: 9	От куда ты всё это знаешь? Ты просто чудо ))))))))