Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
23.04.2009, 23:36
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
Провел на форуме:
1686751
Репутация:
138
|
|
Сообщение от Flame of Soul
PHP код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
y,x:real;
begin
write('vvedite znachenie x:'+#10#13);
readln(x);
writeln('x='+floattostr(x));
y:=sqrt(2*(1-cos(x)*cos(x)));
write('y='+floattostr(y));
readln(x);
{ TODO -oUser -cConsole Main : Insert code here }
end.
PHP код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
y,x:real;
begin
write('vvedite znachenie x:'+#10#13);
readln(x);
writeln('x='+floattostr(x));
if x>0 then
begin
y:=2*sqrt(x);
end
else
begin
y:=cos(x)*(5-3*x);
end;
write('y='+floattostr(y)+#10#13);
readln(x);
{ TODO -oUser -cConsole Main : Insert code here }
end.
Тоже спасибо!! Только странный какой то код...
Мне не понятно вот это - {$APPTYPE CONSOLE} и floattostr это что такое, не видел ещё в паскале такого
|
|
|
23.04.2009, 23:40
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
Мне не понятно вот это - {$APPTYPE CONSOLE} и floattostr это что такое, не видел ещё в паскале такого
просто написано в дельфи для консоль аппликейшен.
floattostr - позволяет выводить на экран числовые значения в виде текста, можешь эти строки убрать, они для наглядности... не парься в общем, а просто живи как нравиться)))
|
|
|
|
23.04.2009, 23:42
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
Провел на форуме:
1686751
Репутация:
138
|
|
Сообщение от Flame of Soul
просто написано в дельфи для консоль аппликейшен.
floattostr - позволяет выводить на экран числовые значения в виде текста, можешь эти строки убрать, они для наглядности... не парься в общем, а просто живи как нравиться)))
Мнеб 1 прогу на чистом паскале...
|
|
|
|
24.04.2009, 00:21
|
|
Новичок
Регистрация: 15.03.2009
Сообщений: 9
Провел на форуме:
143270
Репутация:
3
|
|
Сообщение от angru
До этого делал лабы сам, а тут трабла возникла, как это ни стыдно, но не могу понять что надо сделать, прошу помощи:
Даны коэффициенты многочленов P(x) и Q(x) пятого порядка и вещественное число a. Вычислить величину P(a+Q(a)*(a+1)). Написать функцию (единственную), вычисляющую как P(x), так и Q(x).
зы. ЯП Паскаль, но не критично
попытка номер 2, мне даже не нужен алгоритм, я именно задание не могу понять
|
|
|
|
24.04.2009, 00:37
|
|
Новичок
Регистрация: 21.04.2009
Сообщений: 7
Провел на форуме:
4427
Репутация:
1
|
|
Помогите пожалуйста в Delphi : Дан фрагмент текста. Если пользователь при введении текста ошибся и текст содержит предложения, которые начинаются с маленькой буквы, сформировать и вывести в другой текстовый редактор исправленный текст. Не знаю как отличить большую букву от маленькой да еще и в начале предложения... Надо сделать с помошью TMemo
|
|
|
|
24.04.2009, 00:58
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
попытка номер 2, мне даже не нужен алгоритм, я именно задание не могу понять
Коэффицие́нт (от лат. co(cum) — «совместно» и лат. efficients) — «производящий») — числовой множитель при буквенном выражении, известный множитель при той или иной степени неизвестного, или постоянный множитель при переменной величине. Например в выражении:
a1x1 + a2x2 + a3x3 + ...
a1 — коэффициент при переменной x1 и т.д.
В многочлене: 
ai — коэффициент при i-й степени переменной x.
вещественное число - любое положительное, отрицательное число или нуль. Посредством действительных чисел выражаются результаты измерения всех физических величин.
Думаю при прочтении определения многочлена все становится понятным.
|
|
|
|
24.04.2009, 02:47
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
Сообщение от qloo
Помогите пожалуйста в Delphi : Дан фрагмент текста. Если пользователь при введении текста ошибся и текст содержит предложения, которые начинаются с маленькой буквы, сформировать и вывести в другой текстовый редактор исправленный текст. Не знаю как отличить большую букву от маленькой да еще и в начале предложения... Надо сделать с помошью TMemo
PHP код:
//ваша программа
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses StrUtils;
{$R *.dfm}
function Sha_SpaceCompress(const s: string): string;
var p, q, t: pchar; ch: char;
label rt;
begin; p := pointer(s); q := nil;
if p <> nil then begin; t := p + (pinteger(p - 4))^;
if p < t then begin; repeat; dec(t);
if p > t then goto rt; until (t^ > ' ');
SetString(Result, nil, (t - p) + 1);
q := pchar(pointer(Result)); repeat;
repeat; ch := p^; inc(p); until ch > ' ';
repeat; q^ := ch; ch := p^; inc(q); inc(p);
until ch <= ' '; q^ := ' '; inc(q); until p > t;
end; end; rt: if q <> nil then begin; dec(q); q^ := #0;
(pinteger(pchar(pointer(Result)) - 4))^ := q - pointer(Result);
end else Result := '';
end;
function CntRecurrences(substr, str: string): integer;
var cnt, p: integer;
begin cnt := 0; while str <> '' do begin
p := Pos(substr, str); if p > 0 then inc(cnt)
else p := 1; Delete(str, 1, (p + Length(substr) - 1));
end; Result := cnt;
end;
function SearchString(const FindStr, SourceString: string; Num: Integer):
Integer;
var FirstSym: PChar;
function MyPos(const FindStr, SourceString: PChar; Num: Integer): PChar;
begin Result := AnsiStrPos(SourceString, FindStr);
if (Result = nil) then Exit; Inc(Result); if Num = 1 then Exit;
if num > 1 then Result := MyPos(FindStr, Result, num - 1);
end; begin FirstSym := PChar(SourceString);
Result := MyPos(PChar(FindStr), PChar(SourceString), Num) - FirstSym;
if Result < 0 then Result := 0;
end;
function UpCase(ch: char): char; begin if (ch in ['a'..'z', 'а'..'я'])
then result := chr(ord(ch) - 32) else result := ch; end;
//аналогична той что выше но только для English символов.
//function UpCaseRus(ch: Char): Char;
//asm
// CMP AL,'a'
// JB @@exit
// CMP AL,'z'
// JA @@yo
// SUB AL,'a' - 'A'
// RET
//@@yo:
// CMP AL,'?'
// JNE @@exit
// MOV AL,'?'
//@@exit:
//end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j,z,c:integer; s,t:string;
begin Memo2.Lines.Clear; for i:=0 to Memo1.Lines.Count-1 do
begin s:=Memo1.Lines[i]; s:=Sha_SpaceCompress(s);
s:=UpCase(s[1])+RightStr(s,Length(s)-1); j:=CntRecurrences('. ', s);
for z:=1 to j do begin c:=SearchString('. ', s, z);
t:=LeftStr(s,c+1)+UpCase(s[c+2])+RightStr(s,Length(s)-c-2);
s:=t; end; Memo2.Lines.Add(s); end;
end;
end.
Последний раз редактировалось Flame of Soul; 24.04.2009 в 02:53..
|
|
|
|
24.04.2009, 13:24
|
|
Новичок
Регистрация: 15.03.2009
Сообщений: 9
Провел на форуме:
143270
Репутация:
3
|
|
Сообщение от Flame of Soul
Думаю при прочтении определения многочлена все становится понятным.
что такое многочлен пятого порядка?
|
|
|
|
25.04.2009, 01:04
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
Провел на форуме:
1686751
Репутация:
138
|
|
Нужно ещё решить 3 примерчика, кому не трудно помогите пожалуйста:
С меня плюсики
Нужно на паскале
Последний раз редактировалось oOoOoOo; 25.04.2009 в 01:10..
|
|
|
|
25.04.2009, 01:05
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
что такое многочлен пятого порядка?
Даны коэффициенты многочленов P(x) и Q(x) пятого порядка, если структура предложения именно такая то речь буквально идет о коффициентах
Нужно ещё решить 3 примерчика, кому не трудно помогите пожалуйста:
х=2(1)8 - это значения которые может принимать х? или к чему это?
Последний раз редактировалось Flame of Soul; 25.04.2009 в 01:10..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
