Описание кода

@dimonpwnz · Регистрация: 10.01.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста с описание к этому коду:

Pascal

uses crt;
function F(x:real):real;
begin
F:= sin(x)*sin(x);
end;
var x,a,b,h,y:real;
    n,i:integer;
begin
clrscr;
write('Начало интервала a=');
readln(a);
repeat
write('Конец интервала >',a:0:2,' b=');
readln(b);
until b>a;
repeat
write('Шаг табулирования <',(b-a):0:2,' h=');
readln(h);
until h<b-a;
n:=round((b-a)/h)+1;
writeln('Цикл ДО:');
 
x:=a;
repeat
  writeln('x=',x:5:2,'  F(x)=',F(x):8:4);
  x:=x+h;
until x>b+0.000001;
 
write('Press Enter...');
readln;
writeln('Цикл ПОКА:');
x:=a;
while x<b+0.000001 do
 begin
  writeln('x=',x:5:2,'  F(x)=',F(x):8:4);
  x:=x+h;
 end;
write('Press Enter...');
readln
end.

@Puporev · 01.06.2010, 16:05

Сообщение от dimonpwnz

описание к этому коду:

А чего тут описывать? Через строчку пояснения.

@dimonpwnz · 01.06.2010, 16:21 **[ТС]**

Сообщение от Puporev

А чего тут описывать? Через строчку пояснения.

Препод докапался, ему каждую расписать надо

@Puporev · 01.06.2010, 16:24

Ну тогда это горе... Видимо Паскаль ты прошел мимо.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.06.2010, 16:05	2
	Сообщение от dimonpwnz описание к этому коду: А чего тут описывать? Через строчку пояснения. 0

@dimonpwnz 0 / 0 / 0 Регистрация: 10.01.2010 Сообщений: 22
	01.06.2010, 16:21 [ТС]	3
	Сообщение от Puporev А чего тут описывать? Через строчку пояснения. Препод докапался, ему каждую расписать надо 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.06.2010, 16:24	4
	Ну тогда это горе... Видимо Паскаль ты прошел мимо. 0