 |
|
08.06.2009, 07:46
|
|
Постоянный
Регистрация: 26.03.2008
Сообщений: 311
С нами:
9540826
Репутация:
479
|
|
pascal нужно несколько задач простых
1) Написать программу, которая после введенного с клавиатуры числа (от 1 до 999) , обозначающего денежную еденицу, дописывает слово "рубль" в правильной форме. (Например 5 рублей, 21 рубль)
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: write ('рубль');
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: write ('рубля');
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..99: write ('рублей');
end;
вот придумал только так...но это нерационально очень..... и тем более до 999
2) Написать программу, которая вычисляет стоимость междугороднего телефонного разговора. Исходными данными являются код города и продолжительность разговора.
Вобще хз. Вот вся задача.
3) Составить программу нахождения произведения всех членов арифметической прогрессии от 10 до 30с шагом 1,15 . Любой член прогрессии находится по формуле a=a1+(n-1)d , где n- номер члена прогрессии , a1 - первый член прогрессии , d - шаг прогрессии.
4) Написать программу поиска первого из двух последовательных элементов в целочисленном массиве из 10 элементов , сумма которых минимальна.
За каждую +5   |
|
|
08.06.2009, 09:36
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
2 МongBa† забыл проверять еще на знак минуса )
|
|
|
|
08.06.2009, 11:52
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Всем доброго времени суток =)
Ещё назрел вопросик -)
Есть приложени и web-страница на которой нужно пройти авторизацию чтобы поучить Инфо о сетевом балансе. Если прошла авторизация то программа должна отобразить состояние баланса...
Вот вопрос : Через что лучше реализовать и как примерно действовать ?
Всем спасибо за ранее =)
|
|
|
|
08.06.2009, 11:57
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
через wininet быстро и просто делается. Удобство в том, что поддержка SSL.
А некоторые сайты какраз и юзаеют SSL при авторизации.
|
|
|
|
08.06.2009, 12:57
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Я уж за Indy Взялся хотел через HTTP реализовать, но что то мутарно...
Спасибо за совет =)
Можно ещё немного помощи ?  А то я в wininet не особо рулю...
Или хотя бы линк на справку по нему =)
Заранее благодарен =)
Последний раз редактировалось iGlass; 08.06.2009 в 13:11..
|
|
|
|
08.06.2009, 14:57
|
|
Познающий
Регистрация: 12.05.2009
Сообщений: 45
С нами:
8946396
Репутация:
28
|
|
Сообщение от slesh
2 МongBa† забыл проверять еще на знак минуса )
Неа, разве что проверку первого нуля, но эт так, для красоты...  >>
чтоб было возможно вводить только целые числа больше 0
Вопросец... имеем уже авторизированное окно деда (mstsc) , ищем его
Код:
ter:=FindWindow(nil,pchar(host+' - Удаленный рабочий стол'));
if ter<>0 then
begin
okno:=FindWindowEx(ter,0,nil,nil);
while okno<>0 do
begin
GetClassName(okno,s,100);
Form1.Memo1.Lines.Add(s);
okno:=GetNextWindow(okno,GW_HWNDNEXT);
end;
Имеем основное окно ter и дочернее okno с классом TSCAXHOST , нужно послать нажатие Esc , пробую:
PostMessage(ter,WM_SYSKEYDOWN,VK_ESCAPE,0);
PostMessage(okno,WM_SYSKEYDOWN,VK_ESCAPE,0);
не жмет.. (
Как и какому именно окну в данном случае нужно слать нажатие кнопки?
|
|
|
|
08.06.2009, 15:01
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
С нами:
8916612
Репутация:
54
|
|
#Wolf#
1) Написать программу, которая после введенного с клавиатуры числа (от 1 до 999) , обозначающего денежную еденицу, дописывает слово "рубль" в правильной форме. (Например 5 рублей, 21 рубль)
Код:
var
r: string;
s: Char;
begin
Readln(r);
s := r[Length(r)];
if r[Length(r)-1] = '1' then Writeln(r+' рублей') else
if s = '1' then Writeln(r+' рубль') else
if (s = '2') or (s = '3') or (s = '4') then Writeln(r+' рубля') else
Writeln(r+' рублей');
end;
Последний раз редактировалось Nullsleep; 08.06.2009 в 15:46..
|
|
|
|
08.06.2009, 15:04
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
С нами:
8916612
Репутация:
54
|
|
blednii
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
if Key <> #8 then Key := #0;
end;
|
|
|
|
08.06.2009, 15:29
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
С нами:
8916612
Репутация:
54
|
|
МongBa†, попробуй SetForegroundWindow(okno), а потом:
keybd_event(27, 0, 0, 0);
keybd_event(27, 0, KEYEVENTF_KEYUP, 0);
|
|
|
|
08.06.2009, 16:04
|
|
Познающий
Регистрация: 12.05.2009
Сообщений: 45
С нами:
8946396
Репутация:
28
|
|
Не катит, окно становится активным но без нажатий... с другими окнами все проходит... видать здесь каверз непосредственно с Удаленным рабочим столом , мож кто сталкивался?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
