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

hamekadze · 05.04.2011, 11:17

Проблема не могу правильно прописать программу.
Вот условие "Написать циклический алгоритм, позволяющий угадать некоторое число(от 1 до 100) за строго определённое количество попыток" И нужна ещё защита от не корректного ввода. (букв,знаков,и чисел не входящих в рамки)

Vladimir_S · 05.04.2011, 12:32

Цитата:

Сообщение от hamekadze

Проблема не могу правильно прописать программу.
Вот условие "Написать циклический алгоритм, позволяющий угадать некоторое число(от 1 до 100) за строго определённое количество попыток" И нужна ещё защита от не корректного ввода. (букв,знаков,и чисел не входящих в рамки)

Да без проблем - пожалуйста:

Код:

VAR
 N_attempt,Num,Attempts:BYTE;
 N:Integer;
 IOres:Word;
BEGIN
 {$I-}
 Randomize;
 Num:=Random(100)+1;
 Write('How many attempts? ');
 ReadLn(N_attempt);
 Attempts:=0;
 Repeat
  Inc(Attempts);
  Write('New attempt: ');
  Repeat
   ReadLn(N);
   IORes:=IOResult;
   If (IOres>0) or (N<1) or (N>100) then
    Write('Incorrect input! Try another: ');
  Until (IOres=0) and (N>0) and (N<101);
  If N=Num then
   Writeln('You won!!!')
 Until (N=Num) or (Attempts=N_attempt);
 If (Attempts=N_attempt) and (N<>Num) then
  WriteLn('You lost! The number to guess was ',Num);
 ReadLn;
END.

hamekadze · 11.04.2011, 21:40

Спасибо большое))))

hamekadze · 11.04.2011, 21:54

Ребят) помогите написать программу...для двумерных массивов
вот условия
1. Написать программу, которая осуществляла бы объявление массива DATA1 целочисленного типа и выполняла его заполнение произвольными значениями в диапазоне 0..100, после чего производился вывод массива в виде таблицы.
2. Написать программу, которая осуществляла бы объявление массива DATA2 строкового типа и позволяла пользователю заполнить его, после чего осуществляла подсчёт длины каждого элемента массива, и вывод на экран максимального из них
3. Написать программу, которая осуществляла бы объявление массива DATA3 char-типа и позволяла пользователю заполнить его, после чего осуществляла нахождение в данном массиве некоторого символа, выводя на экран номер его позиции

1. Решить с помощью массива систему из 2 уравнений с 2 переменными, выводя на экран не только значения х и у, но и внешний вид самой системы

Там ещё надо защиту от не корректного вводы значений.Заранее благодарен)

hamekadze · 11.04.2011, 22:05

Ребят) помогите написать программу...для текста
вот условия
II. Написать программу, которая бы позволяла определить длину ранее заданной текстовой строки.
III. Написать программу, которая бы позволяла удалить содержимое ранее заданной текстовой строки начиная с определённого символа на заданную длину(в случае невозможности кдаления должно выдаваться сообщение).
• Удалить все гласные буквы из ранее введённой текстовой строки

Vladimir_S · 11.04.2011, 22:15

hamekadze, хватит уже лодыря гонять! Садитесь и учитесь. Ваши задачи из #4 просты до неприличности, вот на таких и нужно осваивать самые азы программирования, а не сбрасывать их втупую на форум - пусть, мол, дурачки за меня поработают, а я умный. Не пойдет! Мы здесь не для того, чтобы делать за лентяев рутинную работу.
Что касается задачек из #5, то тут еще смешнее: по сути, там практически и писать-то нечего! Потому что первая решается применением стандартной функции Length(S), где S - имя строки, вторая - тоже стандартной функции Copy. Дерзайте!
P.S. Сейчас посмотрел - даже и Copy не надо, достаточно простого цикла. Как и с выборкой гласных.

hamekadze · 11.04.2011, 22:29

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

Vladimir_S · 11.04.2011, 22:36

Цитата:

Сообщение от hamekadze

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

Удачи! И, пожалуйста, без обид. А если нужна помощь (именно помощь!) - не стесняйтесь, выкладывайте свои варианты, спрашивайте - поможем всегда.
На всякий случай - извините за резкость. Просто иногда посты типа "вы тут давайте, а я пошел!" достают.

hamekadze · 11.04.2011, 22:41

Я понимаю. Мне самому стало не приятно когда я понял что сильно затупил... надеюсь что на меня тоже не в обиде? просто 48 часов до сессии осталось я весь на иголках вот и туплю на каждом шагу.
надеюсь в ближайшее время оказывать хоть какую нибудь посильную помощь) СПАСИБО ВАМ БОЛЬШОЕ)))) ВСЕМ))

05.04.2011, 11:17	#1 (permalink)
hamekadze Новичок Регистрация: 05.04.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Не могу правильно написать программу Проблема не могу правильно прописать программу. Вот условие "Написать циклический алгоритм, позволяющий угадать некоторое число(от 1 до 100) за строго определённое количество попыток" И нужна ещё защита от не корректного ввода. (букв,знаков,и чисел не входящих в рамки)

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

05.04.2011, 11:17
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вам скорее всего будет интересно прочитать похожие темы Написать программу в Паскале Написать программу на С++

11.04.2011, 21:40	#3 (permalink)
hamekadze Новичок Регистрация: 05.04.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое))))

11.04.2011, 21:54	#4 (permalink)
hamekadze Новичок Регистрация: 05.04.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ребят) помогите написать программу...для двумерных массивов вот условия 1. Написать программу, которая осуществляла бы объявление массива DATA1 целочисленного типа и выполняла его заполнение произвольными значениями в диапазоне 0..100, после чего производился вывод массива в виде таблицы. 2. Написать программу, которая осуществляла бы объявление массива DATA2 строкового типа и позволяла пользователю заполнить его, после чего осуществляла подсчёт длины каждого элемента массива, и вывод на экран максимального из них 3. Написать программу, которая осуществляла бы объявление массива DATA3 char-типа и позволяла пользователю заполнить его, после чего осуществляла нахождение в данном массиве некоторого символа, выводя на экран номер его позиции 1. Решить с помощью массива систему из 2 уравнений с 2 переменными, выводя на экран не только значения х и у, но и внешний вид самой системы Там ещё надо защиту от не корректного вводы значений.Заранее благодарен)

11.04.2011, 22:05	#5 (permalink)
hamekadze Новичок Регистрация: 05.04.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ребят) помогите написать программу...для текста вот условия II. Написать программу, которая бы позволяла определить длину ранее заданной текстовой строки. III. Написать программу, которая бы позволяла удалить содержимое ранее заданной текстовой строки начиная с определённого символа на заданную длину(в случае невозможности кдаления должно выдаваться сообщение). • Удалить все гласные буквы из ранее введённой текстовой строки

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

11.04.2011, 22:15	#6 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,809 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	hamekadze, хватит уже лодыря гонять! Садитесь и учитесь. Ваши задачи из #4 просты до неприличности, вот на таких и нужно осваивать самые азы программирования, а не сбрасывать их втупую на форум - пусть, мол, дурачки за меня поработают, а я умный. Не пойдет! Мы здесь не для того, чтобы делать за лентяев рутинную работу. Что касается задачек из #5, то тут еще смешнее: по сути, там практически и писать-то нечего! Потому что первая решается применением стандартной функции Length(S), где S - имя строки, вторая - тоже стандартной функции Copy. Дерзайте! P.S. Сейчас посмотрел - даже и Copy не надо, достаточно простого цикла. Как и с выборкой гласных.

11.04.2011, 22:29	#7 (permalink)
hamekadze Новичок Регистрация: 05.04.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я сейчас перечитал условия, и понял что у меня есть похожие программы, их только немного видоизменить. Извиняюсь за неудобства, реально сплоховал. надеюсь больше так не косячить.

11.04.2011, 22:41	#9 (permalink)
hamekadze Новичок Регистрация: 05.04.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я понимаю. Мне самому стало не приятно когда я понял что сильно затупил... надеюсь что на меня тоже не в обиде? просто 48 часов до сессии осталось я весь на иголках вот и туплю на каждом шагу. надеюсь в ближайшее время оказывать хоть какую нибудь посильную помощь) СПАСИБО ВАМ БОЛЬШОЕ)))) ВСЕМ))