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

Dasha26970 · 8 Июн 2011

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

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

Vladimir_S · 8 Июн 2011

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

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

Код:

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 · 8 Июн 2011

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

Dasha26970 · 8 Июн 2011

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

Dasha26970 · 8 Июн 2011

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

Vladimir_S · 8 Июн 2011

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

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

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

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

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

Dasha26970 · 8 Июн 2011

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

Vladimir_S · 8 Июн 2011

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

Попробуйте отсюда (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 · 4 Авг 2011

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

Vladimir_S · 4 Авг 2011

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

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

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

Dasha26970

Ученик

Vladimir_S

Супермодераторы

Dasha26970

Ученик

Dasha26970

Ученик

Dasha26970

Ученик

Vladimir_S

Супермодераторы

Dasha26970

Ученик

Vladimir_S

Супермодераторы

Tema92

Ученик

Vladimir_S

Супермодераторы

Похожие темы