Решаем задачи Абрамян на Паскале. Text42

Text42. Даны вещественные числа $$A$$, $$B$$ и целое число $$N$$. Создать текстовый файл, содержащий таблицу значений функции $$\sqrt{x}$$ на промежутке $$[A, B]$$ с шагом $$(B-A)/N$$. Таблица состоит из двух столбцов: с аргументами $$x$$ ($$10$$ позиций, из них $$4$$ под дробную часть) и со значениями $$x$$ ($$15$$ позиций, из них $$8$$ под дробную часть). Столбцы выравниваются по правому краю.

Решение:

program Text42;
var
  F_out: Text;
  line,S,Name:string;
  A,B,N,i:integer;
  y,x:Real;

begin
 Write('A: ');
 Readln(A);

 Write('B: ');
 Readln(B);

 Write('N: ');
 Readln(N);

 Write('File name out: ');
 Readln(Name);
 Assign(F_out,Name);

 Rewrite(F_out);

 y:=A;
 x:=0;
 While x<=B do
  begin
    Write(F_out,'|');
    str(trunc(x),S);
    for i:=1 to 5-length(S) do Write(F_out,' ');
    Write(F_out,x:5:4);

    y:=sqrt(x);
    str(trunc(y),S);
    for i:=1 to 6-length(S) do Write(F_out,' ');
    Write(F_out,y:6:8);
    Writeln(F_out,'|');
    x:=x+(B-A)/N;
  end;

 Close(F_out);
end.

program Text42;

var

F_out: Text;

line,S,Name:string;

A,B,N,i:integer;

y,x:Real;

begin

Write('A: ');

Readln(A);

Write('B: ');

Readln(B);

Write('N: ');

Readln(N);

Write('File name out: ');

Readln(Name);

Assign(F_out,Name);

Rewrite(F_out);

y:=A;

x:=0;

While x<=B do

begin

Write(F_out,'|');

str(trunc(x),S);

for i:=1 to 5-length(S) do Write(F_out,' ');

Write(F_out,x:5:4);

y:=sqrt(x);

str(trunc(y),S);

for i:=1 to 6-length(S) do Write(F_out,' ');

Write(F_out,y:6:8);

Writeln(F_out,'|');

x:=x+(B-A)/N;

end;

Close(F_out);

end.

Другие задачи из раздела Text можно посмотреть здесь.

Комментарии 2

//uses PT4;
begin
  //Task('Text42'); 
  var f:text; var (a,b):=ReadReal2; var n:=ReadlnInteger;
  Rewrite(f,ReadString);
  SeqGen(n+1,a,x->x+(b-a)/n).Tabulate(x->sqrt(x)).ForEach(s->begin writeln(f, s.Item1:10:4, s.Item2:15:8) end);
  f.Close;
  //Print(PascalABCVersion); //3.3.5 1600
end.

//uses PT4;

//Task('Text42');

var f:text; var (a,b):=ReadReal2; var n:=ReadlnInteger;

Rewrite(f,ReadString);

SeqGen(n+1,a,x->x+(b-a)/n).Tabulate(x->sqrt(x)).ForEach(s->begin writeln(f, s.Item1:10:4, s.Item2:15:8) end);

f.Close;

//Print(PascalABCVersion); //3.3.5 1600

Ответить

var
a,b,x:real;
n:integer;
begin
  readln(a,b);
  readln(n);
  x:=a;
  while x<b do
  begin
    write(x:10:4);
    write(sqrt(x):15:8);
    writeln;
    x:=x+(b-a)/n;
  end;
end.

a,b,x:real;

n:integer;

readln(a,b);

readln(n);

x:=a;

while x<b do

write(x:10:4);

write(sqrt(x):15:8);

writeln;

x:=x+(b-a)/n;

Решаем задачи Абрамян на Паскале. Text42

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ