Просьба. Если кому не лень...

← →
syte_ser78 © (2006-05-05 17:53) [0]

Человек только что обратился На золотую медаль в школе идет Нужна программа для расчета разрывной способности деревяной чурбанки.
Написал без проблем.

Теперь о проблемах.

Должно быть написано на ВизуалБейсике.
Под ХП 5-й Васек рассказывает о ошибке обращения к памяти.

Если кому не лень, переведите плиз

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,f,s,r,s1:real;
N:integer;
begin
try
a:=StrToFloat(edit1.Text);
except
showmessage("А - не число!");
exit;
end;

try
b:=StrToFloat(edit2.Text);
except
showmessage("B - не число!");
exit;
end;

F:=A*B;
R:=7;
N:=StrToInt(edit4.Text);
while (N<StrToInt(edit5.Text)) do
begin
S:=N/B;
S1:=(R-S)/R*100;
label1.Caption:="S1:="+FloatToStr(S1);
N:=N+StrToInt(edit6.Text);
if s1>0 then
showmessage("N="+FloatToStr(N)+"kH. Недовантаження!")
else
showmessage("N="+FloatToStr(N)+"kH. Перевантаження!");
end;
end;

end.

← →
TUser © (2006-05-05 17:58) [1]

Вот идет себе на медаль - пусть сам и пишет. А то, ты программу напишешь, папа сочинение, мама алгебру, а потом вся страна - одни медалисты.

← →
Jeer © (2006-05-05 18:02) [2]

Один только TUser и будет трудится, ээ.. пользоваться.

← →
DrPass © (2006-05-05 18:06) [3]

Лучше пусть напишет про разрывную способность дорожки кокаина

← →
TUser © (2006-05-05 18:08) [4]

> Jeer

У меня медали нет и весь аттестат "честный". А у большинства медалистов (про Москву говорю) - половина оценок "дутые". Что лучше?

← →
Досовец (2006-05-05 18:09) [5]

Могу выслать

Microsoft (R) Visual Basic (TM) for MS-DOS (R) Professional Edition Version 1.00 (C) Copyright Microsoft Corporation, 1982-1992

← →
Jeer © (2006-05-05 18:13) [6]

TUser © (05.05.06 18:08) [4]

Я о том же - о честно заработанных знаниях TUser.
Пэтому тебе, мне, еще таким же и трудиться.
Медалисты будут в офисах глядеть на развешанные на стенках медали и грамоты.

Согласен с TUser. Может ну на фиг таких медалистов?

Чего тут сложного перевести-то? Даже не зная вба, у медалиста полдня, не более, займет...

Папа у Васи силен в ВизулБасике,
Учится папа за Васю весь год.
Где это видано, где это слыхано,
Папа накодит, а Вася здает!

Такая медаль ничего не стоит, с таким же успехом может купить в подземном переходе. Кстати за одно стоит купить и диплом вуза.

Просьба. Если кому не лень... Найти похожие ветки