Вопрос № 123222: Ребята помогите решить задачи... Их четыре, но можно хоть одну :
1. Составьте программу нахождения наименьшего натурального N-знчного числа Х (X>=10), равному утроенному произведению своих цифр.
2. Напишите программу, которая вво...Вопрос № 123229: Разработать и отладить программу циклической структуры в которой для организации цикла используется конструкция repeat...until программа не должна содержать цикл со счетчиком. Программа должна иметьдиалоговый пользовательский интерфейс желательно в ц...Вопрос № 123322: Здравствйте!
Подскажите пожалуйста правила объявления и инициализации констант...как их можно называть, допускается ли в имени знак подчёркивания, максимальная длина имен и т.п. Заранне спасибо!...
Вопрос № 123.222
Ребята помогите решить задачи... Их четыре, но можно хоть одну :
1. Составьте программу нахождения наименьшего натурального N-знчного числа Х (X>=10), равному утроенному произведению своих цифр.
2. Напишите программу, которая вводит строку и выводит её, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ.
3. Напишите программу определяющую, какая из букв первая или последняя, встречаются в заданном слове чаще.
4. Составить программу, удаляющую в строке всё, что заключено между фигурными скобками и их самих.
Зарание спасибо %)
Отправлен: 15.02.2008, 08:43
Вопрос задал: Paintball (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Шемет Станіслав Васильович
Здравствуйте, Paintball!
Вот вторая и третья программа.
var
s:string;
I:integer;
Begin
repeat
readln(s);
i:=length(s);
dec(i);
s[0]:=chr(i);
Writeln(s);
until i<=1;
readln;
end.
Var
I,J:integer;
Procedure Count(s:string);
Begin
i:=0;
For j:=2 to Length(s)-1 do
if s[1]:=s[j] then
Inc(i)
else
If s[Length(s)]=s[j] then
Dec(i);
if i<0 then
Writeln('Последняя встречаеться чаще')
else
If i=0 then
Writeln('первая и последняя буква встречаеться одинаково')
else
Writeln('Первая встречаеться чаще');
end;
begin
Count('kjhsdfh');
readln;
end.
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Paintball! Все четыре программы в приложении. Замечание по четвертой: работать правильно будет если введена одна пара фигурных скобок в правильной последовательности.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 15.02.2008, 09:33
Отвечает: Артём1983
Здравствуйте, Paintball!
Я не решил первую задачу.
Код остальных смотрите в приложении.
Приложение:
--------- Программирование - дело Путное!
Ответ отправил: Артём1983 (статус: 9-ый класс)
Ответ отправлен: 16.02.2008, 19:07
Вопрос № 123.229
Разработать и отладить программу циклической структуры в которой для организации цикла используется конструкция repeat...until программа не должна содержать цикл со счетчиком. Программа должна иметьдиалоговый пользовательский интерфейс желательно в цвете.
Формулировка задачи
даны действительные числа X , E(x<>0,E>0)
Вычислиь с точностью E:
формула дана по ссылке; http://foto.mail.ru/mail/kant.90/4/30.html
В приложении пример решения. Если захотите что-нибудь уточнить, спрашивайте в минифоруме.
Приложение:
--------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.
Ответ отправил: Delph (статус: Студент)
Ответ отправлен: 15.02.2008, 11:36 Оценка за ответ: 5
Вопрос № 123.322
Здравствйте!
Подскажите пожалуйста правила объявления и инициализации констант...как их можно называть, допускается ли в имени знак подчёркивания, максимальная длина имен и т.п. Заранне спасибо!
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Гальцов Андрей!
Ниже выдержка из помощи паскаля: Описания констант (Const: зарезервированное слово) Описание константы содержит идентификатор, который обозначает константу внутри блока, в котором происходит объявление. Идентификатор константы не может быть включен в свое собственное объявление. Синтаксис: Const идентификатор = значение; ... = ... идентификатор = значение; Замечания: Выражение "значение", используемое в описании константы
должно быть написано так, чтобы компилятор смог оценить его значение во время компиляции. В Turbo Pascal позволяются постоянные выражения в качестве расширения стандартного Pascal. Для объявления инициализированной переменной можно использовать типизированные константы. В отличие от нетипизированных констант, при объявлении типизированной константы можно задать и тип, и значение константы. Типизированные константы могут изменяться при работе прогр
аммы точно так же как и переменные. Примеры:(* Описания констант *) Const MaxData = 1024 * 64 - 16; NumChars = Ord('Z') - Ord('A') + 1; Message = 'Hello world !';
Идентификаторы Идентификаторы обозначают следующее: Константы, Поля записей, Функции, Метки, Процедуры, Программы, Типы, Модули, Переменные; Идентификаторы могут иметь любую длину, но только первые 63 символа являются значимыми для компилятора. - Первый символ идентификатора должен быть буквой.
- Последующие символы, должны быть буквами, цифрами или знаком подчеркивания (не пробелом!). Подобно зарезервированным словам, идентификаторы можно записывать в любом регистре, компилятор не чуствителен к регистру. Квалифицированные идентификаторы: Если существуют несколько образцов одного и того же идентификатора, то вы можете квалифицировать идентификатор с помощью идентификатора модуля, для того, чтобы выбрать нужный образец идентификатора
. Объединенный идентификатор называется квалифицированным идентификатором. Примеры:(* Идентификаторы *) WriteLn Exit Real2String (* Квалифицированные идентификаторы *) System.MemAvail (* модуль = System, идентификатор = MemAvail *) Dos.Exec (* модуль = Dos, идентификатор = Exec *) Crt.Window (* модуль = Crt, идентификатор = Window *)
Удачи!
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 15.02.2008, 23:01 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!
