Ладно задам вопрос по другому раз меня не поняли =) Задача: Вводиться число в 36теричной системе (0-9 и A-Z(может быть и a-z, не отличать...)) надо это число перевести в привычную нам десятичную систему (0-9)

На мой взгляд было бы хорошо выложить кроме программ в формате *.exe аналог в *.pas, это очень помогает при изучении какого либо языка программирования...

А я в инете ЖИВУ =) вот так то! кстати инет не такая дорогая штука как ты говоришь! вот мне 14 лет и я спокойно зарабатываю на инет чтобы сидеть месяц да еще и анлим! (вот такая услуга стоит 30$) Так что выделенка рулит.... =) Вобщем ты тока думаешь что сидеть в инете круглые сутки плохо... Найдешь какую нить игру типа Ultima Online и подсядешь как я когда то... =) Тогда не до паскалю будет... =)

Created By: Destruction (ICQ 275986216)

Сидел тут програмки писал в голову мысль пришла как написать вирус который при запуске из дос ломает винду... ну или если его в аватоекзец прописать =) Кстати компилированный весит 2кб! =) А теперь серьезно... То что меня поправили про close(f1) я конечно согласен но это опечатка и ничего больше! У меня тут другой вопрос возниц я вот пишу сейчас себе копирайту =) Красиво получаеться... +) Мне надо написать програмку для проверки серийников ну и ясное дело проблемка возникла... Вот ввели мне часть серийника A7B1 Скажем, я хочу вытащить тока первый символ и проверить буква это или цифра, если буква то какая... Спасибо =) Мыльте мыло =)

Created By: Destruction (ICQ 275986216)
P.S. Аську всюду качнуть мона, а вот если ты людям хелп в онлайне давать будешь вобще те цены не будет!

Пжа, помогите, горю!
задача: отредактировать текст таким образом, чтобы все слова с четным номером были в новом предложении.
заранее пси.

Помогите! Очень нужна программа на Паскале(курсовик). Условие следующее: Исходные данные о предприятиях.Для каждого предприятия задано:код,название,год начала внедрения роботов(в период с 1986 по 2000),затраты на внедрение роботов на каждый год пятилетки(начиная с года начала). Число предприятий не определено.А. Напечатать справку о предприятиях,у которых средние годовые затраты больше общего среднего арифметического значения годовых затрат. Б.Напечатать справку о предприятиях с годом начала позже заданного.В. Напечатать справку о произвольно задаваемых(кодами)предприятиях.Число задаваемых кодов не определено.

Чуть не забыл стучи в аську, помогу с сайтом спрошу по паскалю =)

Created By: Destruction (ICQ 275986216)

Вот нашел человек о помощи взывал а никто помочь не мог =):
>Народ помогите плиз...Вот задача
>Найти натуральные числа,которые при делении на 5 ?
>имеют остаток 3.
Вобщем ответ: каждое 5 число начинаю с 3 =) Решение:
var a,b,i:integer; (еси не обходимо то лонгитн или еще кого)
var f1:text;
begin
assign(f1,'ostatok_3.txt');
rewrite(f1);
readln(b); (Спросить предел простых чисел...)
for i:=1 to b do begin
if (i mod 5)=3 then begin
write(f1,i,' ');
end;
end;
end.

Эдакая программа спросить предел чисел а потом в файл ostatok_3.txt скинет все числа через пробел =) Эх еслиб кто мне за такой бред аж две пятерки поставил.. Меня скорее за такое с уорка выгонят, скажут нечего глупостями на уроке заниматься =)

Типа так =) написал он даже обсчибку не выдал =)Только и то что просили не сделал.. +)
uses dos;
begin
exec('116','');
end.
а в 116.ехе прописано следущее:
begin
readln;
end.
Ну есстесно запускаю я свою прогу с екзецом она проскакивает быстренько ну и само собой ничего не прашивает =) теперь скажи как правильно написать =) мне надо два случая чтобы программа выполнялась в новом окне и чтобы в том же =) Спасибо.
Created By: Destruction (ICQ 275986216)

Выделить память хорошо сказано =) типа скажу ну прога с богом бери память =) сказал же я НАЧИНАЮ только программировать =))

Ну... вобщем я разобрался с глюком команды read просто при замене его на readln уже никаких глюков не будет, уроме того у меня возник новый вопрос, вот я только начинаю программировать на языке турбо паскаль и у меня возник вовпрос как заставить прогу вызвать другую программу выполнить ее ну и соответсвенно закрыть! Именно чтобы выполнилась и сама закрылась!!!

МЕТОД СИМПСОНА ИЛИ МЕТОД ТРАПЕЦИИ НАПИСАТЬ ПРОГРАММУ.

Важнейшей частью составление аудитории для постоянного посещения сайта составляет непосрдственно обещение с ними!

Видимо этот сайт давно не обновляеться или кто-то забывает проверять гвестбук... ЗРЯ...

Еще был человек до меня писал об этом!!! вот напоминаю!!!
>var x,y : real;
>s : string;
>...
>begin
>writeln('Введите первое число');
>read(x);
>writeln('Введите второе число');
>read(y);
>writeln('Введите операцию: +,-,/,*');
>read(s);
>if s='+' then x := x + y;
>... и т.д.
>Прикол в том, что паскаль не считывает s, почему?
>Буду благодарна, если вы мне ответите на почту.