Показать сообщение отдельно
Старый 24.05.2010, 20:47   #6 (permalink)
Ciber
Новичок
 
Регистрация: 18.04.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от AlexZir Посмотреть сообщение
Если я за вас напишу программу - не факт, что вы сможете объяснить всё в листинге при сдаче, из-за этого неизбежно у преподавателя появятся вопросы к вам. Поэтому попытайтесь самостоятельно сделать и выложить сюда, а мы вам поможем исправить, если будут проблемы или ошибки.
var
Form1: TForm1;
n:integer;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
n:=StrToInt (edit1.text);
StringGrid1.ColCount:=n;
end;
function fac(n:integer):integer;
var i:integer;
begin
result:=1;
for i:=1 to n do
result:=result*i;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..100] of real;
k,s,i:integer;
begin
K:=StrToInt (edit2.Text);
s:=0;
For i:=1 to n do
a[i]:=StrToFloat(StringGrid1.Cells [i,1]);
for i:=1 to n do
If (a[i]>exp(k*ln(2))) and (a[i]<fac(k))
then s:=s+1;
if s>0 then
Label4.Caption:=IntTostr (s)
else ShowMessage ('Проверьте условии, оно задано неверно');
end;
end.
Вот прога, к-рую составил, но почему то не работает, проверьти пожалуйста
Ciber вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070