23.04.2009, 22:41
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами:
9423746
Репутация:
2399
|
|
Сообщение от Alex056
№2 определить количество положительных и отрицательных элементов в массиве х(n)
Код:
const x = array(1,2,-3,4,-5,6,7);
y = array(1,-2,3);
var
pol, otr : integer;
begin
pol := 0; otr := 0;
for i:=0 to 6 do
if x[i]>=0 then inc(pol) else
dec(pol);
writeln('X: ','noJlo*uteJlbHux=',pol, 'oTPucaTeJlHux=',otr);
pol := 0; otr := 0;
for i:=0 to 2 do
if y[i]>=0 then inc(pol) else
dec(pol);
writeln('Y: ','noJlo*uteJlbHux=',pol, 'oTPucaTeJlHux=',otr);
end.
|
|
|
23.04.2009, 23:07
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
С нами:
9456866
Репутация:
138
|
|
Всем привет!
Помогите с двумя задачами - нужно написать на турбо паскале сие:
Только первый и второй пример, с меня + и огромное спасибо. Желательно чтоб было написанно без проффисионализма =) Ну чтоб препод не запалил) |
|
|
|
23.04.2009, 23:26
|
|
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
С нами:
9187097
Репутация:
158
|
|
1.
y:=sqrt(1-sqr(cos(x)*cos(x)));
2.
Код:
Program xya2;
uses crt;
var x,y:real;
begin
writeln('BBeguTe X');
readln(x);
if (x<=0) then
y:=cos(x)*(5-3*x)
else
y:=2*sqrt(x);
writeln('Y = ',y);
readln();
end.
Неужели нет интереса научится хотябы немного программировать?=\
Последний раз редактировалось fker; 23.04.2009 в 23:35..
Причина: cosx^2
|
|
|
|
23.04.2009, 23:35
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
С нами:
9456866
Репутация:
138
|
|
Сообщение от fker
1.
y:=sqrt(1-sqr(cos(x))); //точно не помню как вычисл cos^2 x
2.
Код:
Program xya2;
uses crt;
var x,y:real;
begin
writeln('BBeguTe X');
readln(x);
if (x<=0) then
y:=cos(x)*(5-3*x)
else
y:=2*sqrt(x);
writeln('Y = ',y);
readln();
end.
Неужели нет интереса научится хотябы немного программировать?=\ Спасибо! Ну, другие интересы)
|
|
|
|
23.04.2009, 23:33
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
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.
|
|
|
|
23.04.2009, 23:36
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
С нами:
9456866
Репутация:
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
С нами:
9980798
Репутация:
435
|
|
Мне не понятно вот это - {$APPTYPE CONSOLE} и floattostr это что такое, не видел ещё в паскале такого
просто написано в дельфи для консоль аппликейшен.
floattostr - позволяет выводить на экран числовые значения в виде текста, можешь эти строки убрать, они для наглядности... не парься в общем, а просто живи как нравиться)))
|
|
|
|
23.04.2009, 23:42
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
С нами:
9456866
Репутация:
138
|
|
Сообщение от Flame of Soul
просто написано в дельфи для консоль аппликейшен.
floattostr - позволяет выводить на экран числовые значения в виде текста, можешь эти строки убрать, они для наглядности... не парься в общем, а просто живи как нравиться)))
Мнеб 1 прогу на чистом паскале...
|
|
|
|
24.04.2009, 00:37
|
|
Новичок
Регистрация: 21.04.2009
Сообщений: 7
С нами:
8976658
Репутация:
1
|
|
Помогите пожалуйста в Delphi : Дан фрагмент текста. Если пользователь при введении текста ошибся и текст содержит предложения, которые начинаются с маленькой буквы, сформировать и вывести в другой текстовый редактор исправленный текст. Не знаю как отличить большую букву от маленькой да еще и в начале предложения... Надо сделать с помошью TMemo
|
|
|
|
24.04.2009, 02:47
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
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..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
