Карта сайта

Это автоматически сохраненная страница от 25.05.2013. Оригинал был здесь: http://2ch.hk/b/res/48746543.html
Сайт a2ch.ru не связан с авторами и содержимым страницы
жалоба / abuse: admin@a2ch.ru

Суб 25 Май 2013 13:12:26
Погромизт-куны, поясните мне, почему ответ 14? С меня как обычно.


Суб 25 Май 2013 13:18:43
>>48746543
Блядь, хочу в школу.
Это пиздец, ОП, не поступай на погромиста.
Писать коды в 6-7 страниц с комментариями на каждой лабе , даже на первом курсе, заебешься.
Я уже жалею нахуй.
Не сдавай это говно, сдай физику, стань инженером.

Суб 25 Май 2013 13:20:35
Быть может дело в этом ? 1? Что оно вообще делает? Ибо у меня ответ получается 13.

Суб 25 Май 2013 13:21:14
>>48746543

Сосоны, а что в Си, в цикле значит i<N ? 1.

Мимохуй

Суб 25 Май 2013 13:21:44
>>48746823
не слушай этого мудака ОП. я сдал физику, отсидел полтора года, дропнул. Сейчас смотрю на прогеров наших и понимаю какая сука у них халява по сравнению с нами. Пишу им коды по 100р за программу, за ночь так зарабатываю по 1-2 килорубля.

Суб 25 Май 2013 13:22:48
>>48746926
А вот хуй знает, поэтому и создал тред. Вроде бы если не учитывать это, то ответ 13, поэтому думаю на ? 1. Ну или я объебан и пропускаю какую-то очевидную вещь, да.

Суб 25 Май 2013 13:23:46
>>48746950
> какая сука у них халява по сравнению с нами
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Grids, StdCtrls,
ComCtrls,unit2;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label5: TLabel;
Label6: TLabel;
Edit4: TEdit;
UpDown1: TUpDown;
Button1: TButton;
StringGrid1: TStringGrid;
Chart1: TChart;
UpDown2: TUpDown;
Button2: TButton;
StringGrid2: TStringGrid;
Button3: TButton;
Series1: TLineSeries;
Series2: TLineSeries;
Series3: TLineSeries;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Series1Click(Sender: TChartSeries; ValueIndex: Integer;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Edit1Exit(Sender: TObject);
procedure Edit2Exit(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);
var
i,k:byte;
a,b,x,dx,y: double;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
k:=100;
x:=a;
dx:=(b-a)/(k-1);
Series1.Clear;
Series2.Clear;
Series3.Clear;
for i:=1 to k do
begin
y:=f(x);
Series1.AddXY(x,y); // ўћ§љ
← К списку тредов