Напечатать таблицу значений функции y=ln(x) при изменении x от 1 до 10 с шагом 0,3.

[zailyamov]

0 1 2 3 4 5 6 7 8 9
0
10
................................... ..
90

[Kotlyar562]

На форме мемо1 и буттон1. Причем свойство ScrollBars в мемо1 установить ssVertical.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    x:real;
begin
  memo1.Clear;
  x:=1;
  for i:=1 to 31 do
  begin
    memo1.Lines.Add('x='+Floattostr(x)+';  '+ floattostr(ln(x)));
    x:=x+0.3;
  end;

end;

end.

[Stilet]

Вотъ:

MODULE m;
IMPORT StdLog,Math;

PROCEDURE do*;
VAR x:REAL;
BEGIN
 StdLog.Clear;
 x:=1;WHILE x<=10 DO
  StdLog.RealForm(x,3,10,0,' ');StdLog.Tab;
  StdLog.RealForm(Math.Ln(x),3,10,0,' ');x:=x+0.3;
  StdLog.Ln;
 END;
END do;

END m.

Результ:

1.0 0.0
1.3 0.262
1.6 0.47
1.9 0.642
2.2 0.788
2.5 0.916
2.8 1.03
3.1 1.13
3.4 1.22
3.7 1.31
4.0 1.39
4.3 1.46
4.6 1.53
4.9 1.59
5.2 1.65
5.5 1.7
5.8 1.76
6.1 1.81
6.4 1.86
6.7 1.9
7.0 1.95
7.3 1.99
7.6 2.03
7.9 2.07
8.2 2.1
8.5 2.14
8.8 2.17
9.1 2.21
9.4 2.24
9.7 2.27

[zailyamov]

Спасибо вам большое! Маленькая просьба, напишите код в паскале.
Заранее спасибо.

[New man]

Из Delphi в паскаль перевести не трудно, ты похоже не читал
то что здесь писали

program func;
uses CRT;
procedure Button1Click;
var i: integer;
    x:real;
begin
  clrscr;
  x:=1;
  while X<=10 do
  begin
    writeln('x='+Floattostr(x)+';  '+ floattostr(ln(x)));
    x:=x+0.3;
  end;

end;
begin
   Button1Click;
   readln;
end;

[zailyamov]

Спасибо! Разобрался.