Блок-схема

@Liza22 · Регистрация: 07.05.2013

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

Помогите сделать блок схему для задачи. Вычислить произведение n первых чисел ряда ln(j)/j от j=2 до
вот код

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var n,j,i:integer;
P,P1:real;
begin
n:=StrToInt(Edit1.Text);
j:=2;
P:=1;
i:=0;
StringGrid1.ColCount:=1;
if j>n then
ShowMessage ('неверное значение n')
else
  for j:=2 to n do
begin
 P1:=ln(j)/j;
 P:=P*P1;
 StringGrid1.Cells[i,0]:=IntToStr(j);
 StringGrid1.Cells[i,1]:=FloatToStr(P);
 StringGrid1.ColCount:=StringGrid1.ColCount+1;
 i:=i+1;
 end;
 StringGrid1.ColCount:=StringGrid1.ColCount-1;
 Edit2.Text:=FloatToStr(P);
end;
 
end.

@Gunilla · 22.12.2013, 17:32

http://paslab.ru/blok-shema.php

@Gunilla 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 23
	22.12.2013, 17:32	2
	http://paslab.ru/blok-shema.php 0