Технический форум - Написать программу в Паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Написать программу в Паскале (http://www.tehnari.ru/f43/t52889/)

Dasha26970

08.06.2011 15:35

Написать программу в Паскале

Здравствуйте, помогите пожалуйста.....
Напишите программу, запрашивающую с клавиатуры натуральное число n и определяющую количество различных цифр в его десятичной записи.

Vladimir_S

08.06.2011 16:50

Цитата:

Сообщение от Dasha26970 (Сообщение 534425)

Да... забавная задачка. Ну пожалуйста:

Код:

VAR

 p:Byte;

 S,S1:String;

 Ch:Char;

BEGIN

 Writeln('n:');

 Readln(S);

 S1:='';

 Repeat

  Ch:=S[1];

  S1:=S1+Ch;

  Repeat

   p:=Pos(Ch,S);

   Delete(S,p,1);

  Until p=0;

 Until Length(S)=0;

 Writeln(Length(S1),' different figures');

 Readln

END.

Dasha26970

08.06.2011 17:20

Спасибо большое, вы мне очень помогли, я вам безумно благодарна:tehnari_ru_102:

Dasha26970

08.06.2011 17:54

Владимир, простите пожалуйста, а вы не могли бы к моей задаче сделать блок - схему???? Заранее спасибо....

Dasha26970

08.06.2011 18:00

И ещё, у меня пишет что Lenght - неизвестная величина, и S1:=''; - это тоже не читает....

Vladimir_S

08.06.2011 20:40

Цитата:

Сообщение от Dasha26970 (Сообщение 534521)

Владимир, простите пожалуйста, а вы не могли бы к моей задаче сделать блок - схему???? Заранее спасибо....

Извините, Даша, что нет, то нет. Блок-схемами не занимаюсь.

Цитата:

Сообщение от Dasha26970 (Сообщение 534526)

И ещё, у меня пишет что Lenght - неизвестная величина, и S1:=''; - это тоже не читает....

Во-первых, не Lenght, a Length (англ. "длина"), а во-вторых и в главных - грустно это! Что за Паскаль такой у Вас? Не АВС, часом? Если так, то, увы - помочь бессилен: в этом дебильном изделии не разбираюсь. Даже не видел его "живьём" никогда. И не стремлюсь.
И что делать - не представляю. Из-за задвигов версии писать громоздкий неуклюжий код, решающий задачу тупым перебором? Как-то не хочется.

Ау, коллеги - мысли есть?

Dasha26970

08.06.2011 20:52

А у вас какой Паскаль??? Вы не подскажите, где я могу его скачать??? Просто мне безумно надо решить эту задачу сегодня, завтра экзамен, а преподаватель сегодня только дал задание...Прошу вас, помогите пожалуйста....

Vladimir_S

08.06.2011 21:49

Цитата:

Сообщение от Dasha26970 (Сообщение 534655)

Попробуйте отсюда (MrStep выкладывал рабочую версию TP7):
http://www.tehnari.ru/f43/t43891/index3.html#post439303
Только вот не знаю, сможете ли Вы запустить DOS-программу? Если у Вас супер-пупер компьютер с современной видеокартой, то может и не запуститься. На всякий случай - запуск там (если не ошибаюсь) turbo.exe.
Если не получится - попробуйте отсюда:
http://www.tehnari.ru/f22/t30258/
либо Free Pascal, либо Turbo Pascal School Pak - хотя что это за "школьный пакет" - не знаю.
У меня Free Pascal, правда очень старая версия.

Tema92

04.08.2011 10:07

напишите пожалуйста прогу на паскале плиз срочняк (Дано числительное. Классифицировать его по значению (коли-
чественное, порядковое, собирательное, дробное), по строению (прос-
тое, сложное, составное).
) буду очень признателен)))

Vladimir_S

04.08.2011 10:25

Цитата:

Сообщение от Tema92 (Сообщение 563122)

Tema92, Ваше предыдущее сообщение было удалено отсюда, поскольку Вам создана новая отдельная тема http://www.tehnari.ru/f43/t55364/ . У нас не принято цепляться к чужим темам. Могли бы и сами разобраться, вместо того, чтобы с упорством, достойным лучшего применения, снова восстанавливать удаленный пост.
ТЕМА ЗАКРЫТА

Часовой пояс GMT +4, время: 22:15.