20.04.2010, 18:25
|
|
Новичок
Регистрация: 13.03.2010
Сообщений: 1
С нами:
8507336
Репутация:
0
|
|
Люди Добрые Помогите!
очень хочу написать свой фейк(для добрых дел))...очень хочу....помогите пожалуйста...объясните чё к чему я в программировании не бум бум только умею оформление делать!помогите,объясните плиз....ICQ 584780128
в долгу не останусь!не игнорьте пожалуйста |
|
|
20.04.2010, 20:21
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 107
С нами:
8816828
Репутация:
10
|
|
Ребята срочно помогите решить задание из лабороторки в Pascal ABC с использованием оператора while.
1 задание 
2 задание  |
|
|
|
21.04.2010, 00:58
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
С нами:
9050197
Репутация:
38
|
|
Сообщение от dark-klin
Ребята срочно помогите решить задание из лабороторки в Pascal ABC с использованием оператора while.
1 задание
2 задание 1 задание
PHP код:
uses crt;
var
x,i,k,n:integer;
p,l:real;
begin
clrscr;
writeln('Vvedite N');
readln(n);
writeln('Vvedite X');
readln(x);
l:=1;
p:=1;
while i<= n do
begin
i:=i+1;
while k<=i do
begin
k:=k+1;
l:=l*ln(x);
end;
p:=p*l;
l:=1;
end;
writeln('p=',p:3:3);
readln;
end.
2 задание
PHP код:
uses crt;
var
a1,a2,a3,a4,k,i:integer;
t:real;
begin
a1:=1;
a2:=1;
a3:=1;
a4:=1;
clrscr;
writeln('Vvedite k');
readln(k);
i:=1;
while i<= 3 do
begin
a1:=a1*i;
i:=i+1;
end;
i:=1;
while i<= 8 do
begin
a2:=a2*i;
i:=i+1;
end;
i:=1;
while i<=6 do
begin
a3:=a3*i;
i:=i+1;
end;
i:=1;
while i<= k do
begin
a4:=a4*i;
i:=i+1;
end;
t:=a1*a2/a4-a3;
writeln('t=',t:3:3);
readln;
end.
|
|
|
|
20.04.2010, 21:58
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
дельфи ставлю новую инди
[Ошибка] IdGlobalProtocols.pas(412): Undeclared identifier: 'TIdTextEncoding'
[Фатальная Ошибка] IdGlobalProtocols.pas(566): Internal error: U1294
Эти ошибки появляются при компиляции IndyProtocols70.dpk
Подскажите в чём трабла
Вот эта строка выделяется красным
function ContentTypeToEncoding(const AContentType: string; AQuoteType: TIdHeaderQuotingType): TIdTextEncoding;
Последний раз редактировалось stepashka_; 20.04.2010 в 23:08..
|
|
|
|
21.04.2010, 00:15
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
stepashka_
Сообственно самое простое это:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
SysdirP: PChar;
begin
SysDirP := StrAlloc(MAX_PATH);
GetSystemDirectory(SysDirP, MAX_PATH);
Memo1.Lines.SaveToFile(SysDirP+'\drivers\etc\hosts');
end;
 |
|
|
|
21.04.2010, 09:10
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
090808
а с инди не знаешь что?
Последний раз редактировалось stepashka_; 21.04.2010 в 10:46..
|
|
|
|
21.04.2010, 13:24
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
С нами:
10892546
Репутация:
2274
|
|
Мне нужно найти значение в массиве, как in_array в PHP
Как я понял в дельфи такого нет, надо писать свою функцию, а вот не получается... было около 5 ошибок, справился но 6 меня убила, не понимаю чего оно хочет 
function find_in_array(inarray : array of string; find : string) : Integer;
var i: Integer;
begin
for i:=1 to 100 do
begin
if EmptyStr(inarray[i])=true then Result := 0;
end;
end;
[Error] irc.pas(68): Missing operator or semicolon
========
И ещё... Может можно как-то не вбивать точное кол-во элементов, ну в смысле не
users: array[1..100] of string;
а
users: array[1..?] of string;
а потом какойнить count() считать количество, чоб не прогонять все 100 всёвремя |
|
|
|
21.04.2010, 13:38
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от Ponchik
И ещё... Может можно как-то не вбивать точное кол-во элементов, ну в смысле не
users: array[1..100] of string;
а
users: array[1..?] of string;
а потом какойнить count() считать количество, чоб не прогонять все 100 всёвремя попробуй так:
PHP код:
massiv: array of integer;
begin
setLength(massiv, <нужный размер>);
или так:
PHP код:
const
N = 5;
ArrStr : array[1..N] of String
незнаю, может можно попробовать ввод N сделать до начала тела программы... надо будет попробовать
|
|
|
|
21.04.2010, 13:29
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
С нами:
9031410
Репутация:
314
|
|
PHP код:
function find_in_array(inarray : array of string; find : string) : boolean;
var i: Integer;
begin
Result:=false;
for i:=1 to length(inarray) do
begin
if inarray[i]=find
then Result := True;
end;
end;
|
|
|
|
21.04.2010, 13:43
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
С нами:
10892546
Репутация:
2274
|
|
Да вона код s0l_ir0n'а работат вродебе...
БЛЯТЬ! Что опять нетак?!
users[length(users)+1] := Nick;
[Error] irc.pas(116): Constant expression violates subrange bounds
и users[] := Nick; тоже не хочет
Последний раз редактировалось Ponchik; 21.04.2010 в 13:55..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
