Домашнее задание на лето. - Страница 2

AlexZir · 01.08.2010, 19:46

Artes33, извиняюсь, но тогда нужно добавить код разделителя разрядов (запятую или точку) для ввода дробных значений

artes33 · 02.08.2010, 02:06

Мой пример работает только с целыми числами, поэтому там и отсутствуют эти символы.

Жан · 15.08.2010, 08:08

Извените помогите мне написать хоть одну прогу я начал поновому писать её, но застреваю, когда надо рисовать оси координат и написании самой формулы, т.е. вставки её в прогу вот,что у меня получается:

Цитата:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label3.Caption:=DateToStr(Date);
Label5.Caption:=DateToStr(Date);
Label4.Caption:=TimeToStr(Time);
Label6.Caption:=TimeToStr(Time);
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','-',#9]) then Key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:='';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var k,b:real;
x,y,i:integer;
begin
k:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
Image1.Canvas.Pen.Color:=clBlack;
Image1.Canvas.Pen.Width:=1;
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.He ight);
for i:=0 to 100 do begin
y:=k*x+b;
x:=-b/k
end;

end.

Разъясните неучу где какая ошибка? и что неправильно я делаю.

AlexZir · 16.08.2010, 12:22

А в чем проблема? Вы просто не нарисовали сами линии осей. К тому же, в цикле выберите опорную и результирующую переменные, а то вы и аргумент и значение функции вычисляете, опираясь только на коэффициент и свободный член. Могу порекомендовать в первой формуле вместо x использовать значение переменной i, а вторую формулу вообще убрать, она излишняя.

Жан · 16.08.2010, 15:33

А поподробней можете объяснить, что куда и как неправильно и где вписывать. ПЛИЗ!

artes33 · 16.08.2010, 18:39

Жан, почему не устраивает мой пример? А что неправильно... Попробуй построить свою функцию, которую ты указываешь программе, на бумаге. Уверяю, не получится. Грубо говоря, всегда будет получаться одна и та же точка. Почитай: _http://ru.wikipedia.org/wiki/Функция_(математика) . Тебе AlexZir правильно сказал, что нужно делать.

P. S. Где учишься?

Жан · 16.08.2010, 19:26

Мне нужно понять построения написания проги. Помогите

01.08.2010, 19:46	#11 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Artes33, извиняюсь, но тогда нужно добавить код разделителя разрядов (запятую или точку) для ввода дробных значений __________________ Убить всех человеков!

16.08.2010, 12:22	#14 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	А в чем проблема? Вы просто не нарисовали сами линии осей. К тому же, в цикле выберите опорную и результирующую переменные, а то вы и аргумент и значение функции вычисляете, опираясь только на коэффициент и свободный член. Могу порекомендовать в первой формуле вместо x использовать значение переменной i, а вторую формулу вообще убрать, она излишняя. __________________ Убить всех человеков!

01.08.2010, 19:46
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Так же на нашем форуме встречались темы, которые схожи с вашими Домашнее телевидение и комп Задание в Паскале Дворняге домашнее тепло и дружбу. Задание по циклам

02.08.2010, 02:06	#12 (permalink)
artes33 Member Регистрация: 26.07.2010 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 60	Мой пример работает только с целыми числами, поэтому там и отсутствуют эти символы.

16.08.2010, 15:33	#15 (permalink)
Жан Member Регистрация: 18.04.2010 Сообщений: 744 Сказал(а) спасибо: 2 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 639	А поподробней можете объяснить, что куда и как неправильно и где вписывать. ПЛИЗ!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

16.08.2010, 18:39	#16 (permalink)
artes33 Member Регистрация: 26.07.2010 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 60	Жан, почему не устраивает мой пример? А что неправильно... Попробуй построить свою функцию, которую ты указываешь программе, на бумаге. Уверяю, не получится. Грубо говоря, всегда будет получаться одна и та же точка. Почитай: _http://ru.wikipedia.org/wiki/Функция_(математика) . Тебе AlexZir правильно сказал, что нужно делать. P. S. Где учишься?

16.08.2010, 19:26	#17 (permalink)
Жан Member Регистрация: 18.04.2010 Сообщений: 744 Сказал(а) спасибо: 2 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 639	Мне нужно понять построения написания проги. Помогите