Вопрос № 122241: Уважаемые эксперты! Помогите пожалуста решить 2 задачки. Очень надеюсь на вашу помощь)))
1) Дано определенное кол-во символов (вводит пользователь) :s1,s2,s3… sn Сколько раз среди них встречается символ +
2)Вывод на экран всех нату...Вопрос № 122258: здраствуйте уважаемые специалисты!помогите пожалуйста написать программу на паскале. Заранее спасибо!...Вопрос № 122294: Уважаемые эксперты,помогите пожалуйста написать программу:
В данном текстовом файле найти все фрагменты текста, которые находятся в ковычках. найденные фрагменты вывести в другой фаил. на екран вывести количество найденных обьектов. Спасибо....Вопрос № 122308: Как зделать свой обработчик событий для мыши в Паскале на встороеном Ассемблере пожалуста дайте код с пояснениями. Если надо еще подробности то пишыте в аську 437803640....Вопрос № 122313: Здравствуйте!
Подскажите пожалуйста как написать эту формулу в паскале: http://img512.imageshack.us/img512/6627/form1yh6.jpg
(эта ссылка на картинку формулы)...
Вопрос № 122.241
Уважаемые эксперты! Помогите пожалуста решить 2 задачки. Очень надеюсь на вашу помощь)))
1) Дано определенное кол-во символов (вводит пользователь) :s1,s2,s3… sn Сколько раз среди них встречается символ +
2)Вывод на экран всех натуральных чисел не больше N (вводит пользователь) и делящихся на каждую из своих цифр.
Заранее спасибо))
Отправлен: 08.02.2008, 16:12
Вопрос задала: ksana09 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, ksana09!
Программы в приложении.
Во второй программе сказано "делящихся на каждую из своих цифр", значит все числа, значит все числа в которых есть ноль сразу отпадают. Если деление на ноль проверять не нужно, удалите из второй программы строки if i = 0 then
result := false
else
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист)
Ответ отправлен: 08.02.2008, 16:48 Оценка за ответ: 5 Комментарий оценки: Николай Владимирович!!!!!!!!!!!!))
СПАСИБО вам огромное за ответ, за пояснения - в-общем за все)))))) Я вам очень благодарна! Вы, действительно, очень хороший специалист. Еще раз СПАСИБО))
Вопрос № 122.258
здраствуйте уважаемые специалисты!помогите пожалуйста написать программу на паскале. Заранее спасибо!
Приложение:
Отправлен: 08.02.2008, 18:54
Вопрос задал: AlexJan87 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, AlexJan87!
Программа в приложении.
Как Вы и написали по icq - сделал через промежуточный файл.
Обратите внимание: файл с программой и файл с данными должны быть сохранены в досовской кодировке (OEM) иначе программа работать не будет (из-за русских букв).
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист)
Ответ отправлен: 09.02.2008, 20:31 Оценка за ответ: 5 Комментарий оценки: Я ВАМ ОЧЕНЬ СИЛЬНО БЛАГОДАРЕН!!!БОЛЬШОЕ СПАСИБО!!!
Вопрос № 122.294
Уважаемые эксперты,помогите пожалуйста написать программу:
В данном текстовом файле найти все фрагменты текста, которые находятся в ковычках. найденные фрагменты вывести в другой фаил. на екран вывести количество найденных обьектов. Спасибо.
Отправлен: 08.02.2008, 22:30
Вопрос задал: Потеренный (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Потеренный!
В приложении Ваша программа. Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 08.02.2008, 23:02
Отвечает: Шемет Станіслав Васильович
Здравствуйте, Потеренный!
вот код програма будет по символьно зчитовать з файла даные.
Как зделать свой обработчик событий для мыши в Паскале на встороеном Ассемблере пожалуста дайте код с пояснениями. Если надо еще подробности то пишыте в аську 437803640.
Отвечает: Sanek
Здарсе!!!
Вот Вам модуль который я делал очень давно
unit mouse;
interface
uses dos;
var
r:registers;
function lkey:boolean;
function rkey:boolean;
function mousex:integer;
function mousey:integer;
procedure initmouse(x,y:integer);
implementation
function lkey;
begin
r.ax:=3;
intr($33,r);
if r.bx=1 then lkey:=true
else lkey:=false;
end;
function rkey;
begin
r.ax:=3;
intr($33,r);
if r.bx=2 then rkey:=true
else rkey:=false;
end;
function mousex;
begin
r.ax:=3;
intr($33,r);
mousex:=r.cx;
end;
function mousey;
begin
r.ax:=3;
intr($33,r);
mousey:=r.dx;
end;
procedure initmouse;
begin
r.ax:=0;
intr($33,r);
r.ax:=4;
r.cx:=x;
r.dx:=y;
intr($33,r);
r.ax:=1;
intr($33,r);
end;
Begin
End.
Возьмите скомпилируйте его чтобы вышел TPU и положите в папку где у вас лежат все TPU тоисть библиотеки!!!
Потом если хотите можете протестить свою библиотеку такой программой, я думаю тут все понятно без коментариев
uses graph,mouse,crt;
var
a,b:integer;
Begin
a:=0;
initgraph(a,b,'');
initmouse(getmaxx div 2,getmaxy div 2);
setcolor(10);
repeat
if (rkey)or(lkey) then circle(mousex,mousey,10);
until keypressed;
closegraph;
end.
Ответ отправил: Sanek (статус: 1-ый класс)
Ответ отправлен: 09.02.2008, 07:45 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ но я все же хочу узнать как зделать обработчик событий я знаю что на ассемблере ето можно я делал то как описано в книги но уменя зразу идет ошыбка типа типа недопустимая инструкцыя
вот пример кода который устанавливал обработчик событий
INT 33h, AX = 0Ch — Установить обработчик событий
Ввод: AX = 000Ch
ES:DX = адрес обработчика
СХ = условие вызова
Вопрос № 122.313
Здравствуйте!
Подскажите пожалуйста как написать эту формулу в паскале: http://img512.imageshack.us/img512/6627/form1yh6.jpg
(эта ссылка на картинку формулы)
Отправлен: 09.02.2008, 03:03
Вопрос задал: Upgrader (статус: 3-ий класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Sanek
Здравствуйте, Upgrader!
Все что я могу сказать по этому поводу так это то что (x^9/x^4)^4 так это x^20 а вот с корнем кубическим так тут или библиотеку нужно искать или свою фунццию писать :)))
Ответ отправил: Sanek (статус: 1-ый класс)
Ответ отправлен: 09.02.2008, 07:51 Оценка за ответ: 3
Отвечает: Евчик Сергей Александрович
Здравствуйте, Upgrader! 0,5*(exp(ln(exp(ln(x)*9)/exp(ln(x)*4)*4/3) Думаю будет работать. Дерзайте.
Ответ отправил: Евчик Сергей Александрович (статус: 2-ой класс)
Ответ отправлен: 09.02.2008, 16:00 Оценка за ответ: 5
