|
|
#1 
WestR4N @ 11.11.10 13:42 |
[пожаловаться]
|
|
Привет, о могучие 736481 с BRABLAY. С вами разговаривает Эдуард, известный в народе как ed1k.
Тут возникла такая тема в 6 классе, что крайне необходима ваша помощь.
Нужно в Delfi(7 ofc) написать программу для значения функции y:
y=система(
2*x в квадрате - 7 * х +3; x<4
x+1: 4<=x<=5
|6-x|; 5
Задание номер два:
Составить программу, используя оператор множественного ветвления.
По виду знака препинания выдать его название.
Всем хелпующим пацанам кластных тёлочек, море жиги и гору семок офк.
|
|
|
|
#10
WestR4N @ 11.11.10 14:01 |
[пожаловаться]
|
|
пацики,я нашёл решение 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x,y:real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
if x
|
|
|
| Reply | | | |
|
|
|
