Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Июль 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 194
от 17.07.2006, 15:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 198, Экспертов: 54
В номере:Вопросов: 2, Ответов: 4

Вопрос № 48828: Здравствуйте!!! Надо решить задачу: Вывести на экран один из рядков формулы: 2*4*…*N S= для заданного натурального числа N; 1*3*…*N Первый рядок вводится, если N – парное; второй – если N – непарное. Если непонятн...
Вопрос № 48855: Здравствуйте, надо написать программу за такими условиями: Дано натуральное число N. Удалить из записи этого числа цифры 3 и 7, оставивши начальный порядок цифр. Например, из числа 3 171 507 377 должно остаться 1150. Я пробовал делать с ...

Вопрос № 48.828
Здравствуйте!!! Надо решить задачу:
Вывести на экран один из рядков формулы:

2*4*…*N
S= для заданного натурального числа N;
1*3*…*N
Первый рядок вводится, если N – парное; второй – если N – непарное.

Если непонятнa запись в формуле – обратитесь по этой ссылке http://interestingall.narod.ru/delete/proga2.jpg
Отправлен: 11.07.2006, 14:57
Вопрос задал: ataman (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Устинов Сергей Евгеньевич
Здравствуйте, ataman!

Нужный код в приложении.

Удачи!!!

Приложение:

---------
Ответы на все вопросы - на сайте www.ya.ru ☺

Ответ отправил: Устинов Сергей Евгеньевич (статус: Студент)
Ответ отправлен: 11.07.2006, 15:20
Оценка за ответ: 5

Вопрос № 48.855
Здравствуйте, надо написать программу за такими условиями:
Дано натуральное число N. Удалить из записи этого числа цифры 3 и 7, оставивши начальный порядок цифр. Например, из числа 3 171 507 377 должно остаться 1150.

Я пробовал делать с помощью рядка. Искать символ и его удалять, но не получилось, знаю, что можно и с помощью mod и div но не знаю как так сделать. Нужна Ваша помощь.

Приложение:

Отправлен: 11.07.2006, 20:00
Вопрос задал: ataman (статус: 1-ый класс)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 6)
Отвечает: Устинов Сергей Евгеньевич
Здравствуйте, ataman!

По условию Вам дано натуральное число N, а Вы считываете строку - нехорошо однако!
Решение в приложении.

Удачи!

Приложение:

---------
Ответы на все вопросы - на сайте www.ya.ru ☺

Ответ отправил: Устинов Сергей Евгеньевич (статус: Студент)
Ответ отправлен: 11.07.2006, 20:16
Оценка за ответ: 5
Отвечает: [PROnet] * St@cK ! N.Nov
Здравствуйте, ataman!

Можно сделать всё намного проще, вкратце опишу алгоритм:
считваем число, переводим в строку, в цикле от 1 до lenght(S) проверяем очередной символ, если '3' или '7' то его удаляем:
for i:=1 to lenght(s) do
begin
case s[i] of :
'3': delete (s,i,1 );
'7': delete (ss,i,1);
end;
end;
writeln (s);
вот и всё

извини, но полностью код писать просто лень

P.S. если что не так - по лицу не бить :)
---------
Семь бед - один ответ: RESET !!!
Ответ отправил: [PROnet] * St@cK ! N.Nov (статус: 2-ой класс)
Ответ отправлен: 11.07.2006, 23:37
Отвечает: METALLDOCTOR
Здравствуйте, ataman!
Ну, во первых, строка

if (poz = "3") or (poz = "7") then Delete (S,poz,1);

Тут вы сравниваете целое число непонятно с чем

Как насчёт S[poz] для начала? И одиночных кавычек вместо двойных?

То есть это строка эта должна выглядеть так:

IF ( ( S[poz] = '3' ) OR ( S[poz] = '7' ) ) THEN Delete (S,poz,1);

И цикл сделайте не FOR, а
WHILE DO ...
или
REPEAT ... UNTIL
, что бы нормально из него выходить, Сухомлин Кирилл Владимирович прав.
---------
Ни о чём не жалею!
Ответ отправил: METALLDOCTOR (статус: 5-ый класс)
Ответ отправлен: 12.07.2006, 10:08

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.34 от 01.06.2006 		Яндекс Rambler's Top100
В избранное