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

[hamekadze]

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

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

 

[Vladimir_S]

Проблема не могу правильно прописать программу.
Вот условие "Написать циклический алгоритм, позволяющий угадать некоторое число(от 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]

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

 

[hamekadze]

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

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


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

 

[hamekadze]

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

 

[Vladimir_S]

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

 

[hamekadze]

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

 

[Vladimir_S]

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

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

 

[hamekadze]

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