Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
19.05.2008, 16:02
|
|
Новичок
Регистрация: 03.07.2007
Сообщений: 18
Провел на форуме:
98311
Репутация:
28
|
|
case поменяй на if а то бред какой-то
Код:
program matching;
uses crt;
var x, y : integer;
begin
writeln;
write('Input value X = ');
read(x);
write('Input value Y = ');
read(y);
if x - y = 0 then write ('X = Y')
else
write('X <> Y');
readkey;
end.
Последний раз редактировалось merax; 19.05.2008 в 16:09..
|
|
|
19.05.2008, 16:03
|
|
Постоянный
Регистрация: 06.12.2006
Сообщений: 321
Провел на форуме:
1536533
Репутация:
370
|
|
Попробуй так:
Код:
program matching;
var x,y:integer;
begin
writeln('Введите значение X ');
readln(x);
writeln('Введите значение Y ');
readln(y);
case (x-y) of
0:writeln ('X и Y равны');
else
writeln ('X и Y не равны');
end;
end.
Я бы сделал вот так:
Код:
program matching;
var x,y:integer;
begin
write('Введите значение X ');
readln(x);
writeln('Введите значение Y ');
readln(y);
if (x=y) then writeln ('X и Y равны')
else writeln ('X и Y не равны');
end.
|
|
|
|
19.05.2008, 16:15
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
Провел на форуме:
1494768
Репутация:
272
|
|
Блин выводит только "Введите значение X", а остальное нет..  |
|
|
|
19.05.2008, 16:19
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от Andres
Блин выводит только "Введите значение X", а остальное нет.. А ты число после этого вводишь-то? 
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
19.05.2008, 19:55
|
|
Новичок
Регистрация: 12.05.2008
Сообщений: 19
Провел на форуме:
28051
Репутация:
2
|
|
Код:
{$R A.res}
procedure TForm1.FormCreate(Sender: TObject);
var
ResW:THandle;
rs:TResourceStream;
begin
ResW:=FindResource(hInstance,'AU',RT_RCDATA);
if ResW=0 then RaiseLastOSError;
rs:=TResourceStream.Create(hInstance,'AU',RT_RCDATA);
Field.Clear;
Field.LoadRTFFromStream(rs);
end;
Field - это компонент TRichView
в ресурсе A.res "зашит" файл Auni.rtf следующим образом:
AU RCDATA Auni.rtf
Программа работает, ошибки не выползают, но поле остается пустым! То есть файл не загрузился...
Что у меня не так??
Помогите, чем можете, плиз.. |
|
|
|
20.05.2008, 00:39
|
|
Познающий
Регистрация: 06.08.2007
Сообщений: 36
Провел на форуме:
373639
Репутация:
10
|
|
Сообщение от Nick_Rimer
Код:
{$R A.res}
procedure TForm1.FormCreate(Sender: TObject);
var
ResW:THandle;
rs:TResourceStream;
begin
ResW:=FindResource(hInstance,'AU',RT_RCDATA);
if ResW=0 then RaiseLastOSError;
rs:=TResourceStream.Create(hInstance,'AU',RT_RCDATA);
Field.Clear;
Field.LoadRTFFromStream(rs);
end;
Field - это компонент TRichView
в ресурсе A.res "зашит" файл Auni.rtf следующим образом:
AU RCDATA Auni.rtf
Программа работает, ошибки не выползают, но поле остается пустым! То есть файл не загрузился...
Что у меня не так??
Помогите, чем можете, плиз..
Код:
function ExtractRes(ResType, ResName:string): string;
var
Htemp,HResInfo,HGlobal: THandle;
pStr: PCHar;
Size: Longint;
Str: String;
begin
HResInfo := FindResource(Htemp, PAnsiChar(ResName), PAnsiChar(ResType));
if HResInfo = 0 then exit;
HGlobal := LoadResource(Htemp, HResInfo);
if HGlobal = 0 then exit;
// size:=SizeOfResource(HTemp, HResInfo); //размер нужен, если строка не нуль-терминированная
pStr:=LockResource(HGlobal);
//SetLength(Str, size);
//Move(pStr^, PChar(Str)^, Size); //для случая не нуль-терминированной строки
Str := pStr; //подразумевается, что в ресурсе хранится нуль-терминированная ANSI-строка
result:=Str;
end;
De-visible:Не забываем теги [code]
Последний раз редактировалось De-visible; 20.05.2008 в 07:36..
|
|
|
|
20.05.2008, 11:54
|
|
Участник форума
Регистрация: 01.02.2005
Сообщений: 233
Провел на форуме:
748321
Репутация:
112
|
|
подскажите как узнать свой радительский процесс ?
тоесть кто нас запустил..
------------------------------
уже чето намутил )
procedure TForm1.Button1Click(Sender: TObject);
var
hSnapshoot: THandle;
pe32: TProcessEntry32;
ProcessName:string;
begin
ProcessName:='Totalcmd.exe';
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if hSnapshoot = -1 then Exit;
pe32.dwSize := SizeOf(TProcessEntry32);
if (Process32First(hSnapshoot, pe32)) then
repeat
if extractfilename(pe32.szExeFile) = ProcessName then
begin
memo1.lines.add(inttostr(pe32.th32ProcessID));
memo1.lines.add(inttostr(pe32.th32ParentProcessID) );
Break;
end;
until
not Process32Next(hSnapshoot, pe32);
CloseHandle (hSnapshoot);
end;
Последний раз редактировалось AHTOLLlKA; 20.05.2008 в 12:05..
|
|
|
|
20.05.2008, 15:02
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме:
2715445
Репутация:
588
|
|
Код:
var
Info: TProcessBasicInformation;
...
begin
ZeroMemory(@Info,SizeOf(TProcessBasicInformation));
d1:=ZwQueryInformationProcess(hProcess,0,@Info,SizeOf(TProcessBasicInformation),nil);
If (d1 = 0) then
begin
d1:=Info.InheritedFromUniqueProcessId;
// d1 = parent process pid
end;
|
|
|
|
20.05.2008, 15:40
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
Провел на форуме:
1494768
Репутация:
272
|
|
Парни помогите решить проблемку с программой, вроде все правильно прописал, а не работает!
Код:
Program Dialog; {расширенный диалог — второй вариант)
const
Question =' What is your name?';
Rep(y1 =
'Паскаль — прост, но первый компилятор Паскаля был написан на Паскале';
Reply21 = 'Вас ждет удивительное путешествие';
Reply22 = 'сквозь джунгли особенностей и возможностей языка';
Reply3 =
'Паскаль — разумный компромисс между желательным и эффективным';
Reply4 = 'Паскаль академически элегантен';
var
Name: string;
Age: byte;
begin
WriteLn(Question); ReadLn(Name); {Ввод имени} WriteLn('Hello,',
Name,'!'); {Вывод приветствия} WriteLn('How old are you?');
{Вопрос о возрасте} ReadLn(Age); {Ввод возраста} if 12
< Age then WriteLn(Reply1 );
if (12 <= Age) and (Age < 20) then begin
WriteLn (Reply21);
WriteLn (Reply22) end;
if (20 <= Age) and (Age < 40) then WriteLn(Reply3);
if Age >= 40 then WriteLn(Reply4) end.
И еще такой вопрос:
В интернете есть масса исходных кодов программ разных, скопировать и вставить в Турбо Паскаль нельзя, вопрос(?) как залить код программы в турбо паскаль?
Если допустим программа маленькая, то я и переписать могу, а если большая..лень берет..
De-visible: Уже не раз говорил, не надо создавать пост два раза подряд!
Последний раз редактировалось De-visible; 20.05.2008 в 17:45..
|
|
|
|
20.05.2008, 15:49
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Сообщение от Andres
И еще такой вопрос:
В интернете есть масса исходных кодов программ разных, скопировать и вставить в Турбо Паскаль нельзя, вопрос(?) как залить код программы в турбо паскаль?
Открой в текстовике свой проект и копируй туда.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
