Между repeat и until должно идти тело цикла. Вот правильный код калькулятора: Code: program calc; {кстати, program можно и не писать} uses crt; {это нам для очищения экрана} label 1; {для перехода к началу} var a,b:integer; {числа} c:char; {проверка повтора, знака счета} s:real; {real, т.к присутствует деление} begin 1: clrscr; {очистка экрана} writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите знак действия'); readln(c); case c of {проверка введенного} '+' : s:=a+b; '-' : s:=a-b; '*' : s:=a*b; '/' : s:=a/b; end; writeln('ответ с точностью до двух цифр: ',s:4:2); {:2 - кол-во цифр после запятой, используется для деления} writeln ('хотите сосчитать еще раз? Y/N'); readln (c); if c='Y' then goto 1 {переходим к началу} else if c='N' then writeln ('для выхода нажмите любую клавишу...'); {просто продолжение} readln; {ожидание пустого ввода} end.
Delphi/Pascal ----------------------------- на DIV и MOD Присвоить переменной z первую цифру из дробной части действительного числа r. я чутка не трезвый и сообразить не могу =(
Значит так, DIV - деление нацело. Для этого переменную типа Real можно и не брать. А вот "/" - это математическое деление, оно требует вещественного типа Real, и, дабы не выводить 100500 знаков после запятой, существует сокращение. Понятно объяснил? И хватит оффтопить в теме.
Подскажите кто работал с потоками в делфи! на форме есть http1 Сначала делал програму в одном основном потоке http1.get - работало норм. Решил переделать программу в 5 потоков Когда в первом потоке вызваю resp.text:=http1.get('sait.ru'); Компилятор говорит Warring переменая resp может быть не инициализирована. Маркер указывает на строчку с resp.text:=http1.get('sait.ru'); И все встает колом Посоветуйте по этому поводу что нибуть?
Code: form1.resp.text := http1.get ('sait.ru'); А вообще, для каждого потока советую отдельный объект http создавать. Также не забудьте про синхронизацию потоков.
Здравствуйте. В общем у меня к вам просьба о помощи. Сам я не очень ещё и опытен в Delphi, самоучка, учился на электронных учебниках и немного понял основы делфи. Мне в общем нужно сделать проект и я решил написать видеоплеер. Застрял вот на чем: 1) Не могу написать временную шкалу 2) Не получается написать регулировку громкости к проигрывателю 3) Не знаю как сделать полноэкранный режим медиаплеера. Помогите чем можете, научите дурака
Ребята, помогите, все перерыл, нигде не могу найти. Есть-ли в компоненте IdHTTP какое нибудь свойство, которое определяет, занят в данный момент компонент или нет, ну то есть передает-ли он запрос и ждет ответа, либо уже закончил. P.S. Знаю, что сам по себе компонент глючный, и winsock лучше, и тем не менее нужен именно данный компонент.
Хм, а как ты собираешься раскодировать другой функцией, если у zlib свой алгоритм... У меня есть пример в нем 2 функции. 1-я принимает параметром поток данных (stream) и сжимает его. Ну и наоборот. Если подходит, могу кинуть. Подходит для сжатия данных любого формата.
http://php.su/functions/?cat=zlib http://php.su/functions/?gzdeflate gzdeflate это функция из модуля zlib для php, алгоритмы одни и те же (даже в zlib для java micro edition).
Спасибо, не знал. Тогда Найтмеару подойдет? Code: uses ZLib; procedure TForm1.PackStream(Var sSrc: TMemoryStream); var UnknownPtr: pointer; NewSize: integer; begin sSrc.Position:=0; try CompressBuf(sSrc.Memory,sSrc.Size,UnknownPtr,NewSize); sSrc.clear; sSrc.Write(UnknownPtr^,NewSize); sSrc.Position:=0; finally FreeMem(UnknownPtr,NewSize); end; end;
2Flenov Код выложи, и что конкретно не получается? PlaySound(Pchar('.\sounds\123.wav'),0,SND_ASYNC); Вот так правильно думаю будет
"Ресурс" - пленка полиэтиленовая, термоусадочная пленка Are u ponel? Я тебе пример привел а не сказал как именно сделать, но ещё раз повторю выложи код!
Я понял о чем ты, зайди в дэлфи создай проект DLL и перетащи туда свой .pas файл потом нажми плэй и готово!
