PASCAL Даны 2 натуральных числа. определить наибольший общий делитель и наименьшее общее кратное/ как сделать на циклах? (for )
#Wolf# Наименьшее общее кратное Code: program nok; var a,b,i,nd:integer; begin readln(a,b); for i:=a*b downto 1 do begin if (i mod a = 0) and (i mod b = 0) then nk:=i; end; write(nk); end. Наибольший общий делитель Code: program nod; var a,b,i,nk:integer; begin readln(a,b); for i:=1 to a*b do begin if (a mod i = 0) and (b mod i = 0) then nd:=i; end; write(nd); end.
есть файлик примерного содержания: какойто муссссоооорррр!!! <--!tag--> какойто муссссоооорррр!!! </--!tag--> какойто муссссоооорррр!!! --------------------------------------- как можно средствами delphi удалить то что находится внутри тега, вместе с самими тегами?
Code: procedure TForm1.Button1Click(Sender: TObject); var str:string; a,b:integer; begin str:=memo1.Text; a:= pos('<--!tag-->',str); //определяем позицию начального тэга b:= pos('</--!tag-->',str); //конечный тэг showmessage(inttostr(a)); delete(str,a,b-a+length('</--!tag-->')); //удаляем эту часть memo1.text := str; end;
смотри в конце страници. http://www.barcodeman.com/altek/mule/scandoc.php Left win key - 1F Right win key - 27
http://www.windowsnetworking.com/kb...tryTips/Hardware/DisableWinkeyonkeyboard.html Там по ссылке скрипт лежит для отключения.
Сорь, но мне надо на дельфи =). Ну т.е. через дельфи отключить клавишу. нашёл. http://www.oszone.net/2031/, но там надо ребутится. Без ребута можно?
И не будет потому что эта кнопка перехватывается только таскбаром. Вот тут пример перехвата, правдо на с++) Наверно нет.
mailbrush, а ты сделай в OnKeyDown Code: if key=VK_LWIN then SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0); При нажатии WinKey закрываем Пуск Но это только в пределах программы. Либо ставь хук, отлавливай нажатие WinKey, либо опиши, для чего это реализовать хочешь, может, другие способы есть
pascal вычислить у=х+х²/2+х³/3........хⁿ/n , где х вводится с клавиатуры, а n принимает значение от 1 до 15 нужно осуществить с использованием 2 вложенных циклов. вайл..а внутри фор буду благодарен (+8)
Code: program st; var y,n,i:integer; res:real; x:longint; begin n:=2; writeln('Vvodim x'); readln(y); res:=y; x:=y; while n<=15 do begin x:=y; for i:=1 to n-1 do x:=x*y; res:=res + x/n; writeln(x,'/',n,'=',x/n); n:=n+1; end; writeln('Result',res); end. Думаю, так вполне подойдёт
Как сделать чтоб текст отправлялся из Memo1 и Memo2 Code: procedure TForm1.Button1Click(Sender: TObject); begin idSmtp1.Host:='smtp.yandex.ru'; idSmtp1.Port:=25; idSmtp1.Username:='iceeend'; idSmtp1.Password:='xxx'; idMessage1.Body.Text:=Memo1.Text; idMessage1.From.Text:='[email protected]'; idMessage1.Recipients.EMailAddresses:='[email protected]'; idMessage1.Subject:='Tema'; idSmtp1.Connect(); if idSmtp1.Connected=true then idSmtp1.Send(idmessage1); idSmtp1.Disconnect end; end.
Ребят помогите упростить исходник. Что-то из кода можно переделать на function? Программа у меня работает, но написана по-нубовски. Code: unit auth; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ExtCtrls, RXShell, RXClock, ComCtrls; type TForm5 = class(TForm) http1: TIdHTTP; Button1: TButton; Button2: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Timer1: TTimer; RxTrayIcon1: TRxTrayIcon; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure RxTrayIcon1DblClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public procedure OnMinimize(Sender: TObject); { Public declarations } end; var Form5: TForm5; implementation {$R *.dfm} // Сворачивание в трей. procedure TForm5.FormCreate(Sender: TObject); begin Application.onMinimize:=OnMinimize; end; procedure TForm5.OnMinimize(Sender: TObject); begin RxTrayIcon1.Show; //Показываем иконку в трее ShowWindow(Application.Handle,SW_HIDE); //Скрываем окно приложения end; procedure TForm5.RxTrayIcon1DblClick(Sender: TObject); begin Application.Restore; //Восстанавливаем окно SetForeGroundWindow(Application.MainForm.Handle); //Активизируем окно RxTrayIcon1.Hide; //Прячем иконку из трея end; // Запуск висения. procedure TForm5.Timer1Timer(Sender: TObject); var params,responseres:tstringlist; begin params:=TStringList.Create; responseres:=TStringList.Create; try responseres.Text:=http1.Post('http://www.dmbchat.ru/refresh.php?say=aoaiaa&addr=Aey',params); if Pos('refresh.php',responseres.Text)>0 then Memo1.Lines.Add('Вы успешно написали фразу.') else Memo1.Lines.Add('Вы не в чате. Перезаходим.'); while Pos('refresh.php',responseres.Text)<=0 do begin Button1.Click; Exit; end; finally params.free; responseres.free; end; end; // Вход в чат. procedure TForm5.Button1Click(Sender: TObject); var params,responseres:tstringlist; Login, Password: string; begin params:=TStringList.Create; responseres:=TStringList.Create; try Login:= Edit1.Text; Password:= Edit2.Text; params.Add('login='+Login); params.Add('password='+Password); responseres.Text:=http1.Post('http://www.dmbchat.ru/login.php',params); if Pos('refresh.php',responseres.Text)>0 then Memo1.Lines.Add('Вы успешно вошли в чат.') else Memo1.Lines.Add('Ошибка! Вы не вошли в чат.'); finally params.free; responseres.free; end; while (Edit1.Text='') or (Edit2.Text='') or (Length(Edit1.Text) < 2) or (Length(Edit2.Text) < 5) do begin ShowMessage (' Логин или Пароль введён неверно.'); Exit; end; Edit1.Enabled:=False; Edit2.Enabled:=False; Button2.Enabled:=True; Timer1.Enabled:=True; end; // Выход из чата. procedure TForm5.Button2Click(Sender: TObject); var params,responseres:tstringlist; begin params:=TStringList.Create; responseres:=TStringList.Create; try params.Add('exit'); responseres.Text:=http1.Post('http://www.dmbchat.ru/logout.php',params); finally params.free; responseres.free; end; Timer1.Enabled:=False; Edit1.Enabled:=True; Edit2.Enabled:=True; Button2.Enabled:=False; end; end.
