Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2012, 23:02   #1
Whitecoat
 
Аватар для Whitecoat
 
Регистрация: 01.06.2012
Сообщений: 6
Вопрос Задача на использование цикла с пост или пред условием (Pascal)

". Задается случай-ное число из про-межутка [10,15]. Напишите программу, которая предлагает угадать задуманное число и сообщает, с какой попытки. "

Не получается заставить программу сообщать с какой попытки пользователь угадывает число...


Код:
program ciklpoka12;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,k:integer;
c,b:real;

begin
  { TODO -oUser -cConsole Main : Insert code here }


randomize;
a:=10+random(6);
k:=0;

repeat
writeln('vvedite cislo');
    readln(c);

    until c=a;
    writeln(ygadali);

       readln;
    End.
Whitecoat вне форума Ответить с цитированием
Старый 01.06.2012, 23:12   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,291
По умолчанию

Код:
var
a,k:integer;

begin
randomize;
a:=10+random(6);
k:=0;
repeat
writeln('vvedite cislo');
readln(c);
inc(k);
until c=a;
writeln('ygadali s ',k,' popitki');
readln;
End.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 10.06.2012, 22:52   #3
Whitecoat
 
Аватар для Whitecoat
 
Регистрация: 01.06.2012
Сообщений: 6
По умолчанию

inc(k) - что делает эта строчка?
Whitecoat вне форума Ответить с цитированием
Старый 10.06.2012, 22:55   #4
blondino4ka_milk
Пользователь
 
Аватар для blondino4ka_milk
 
Регистрация: 02.03.2010
Сообщений: 59
По умолчанию

тоже самое что K:=K+1
просто к К прибавляет единицу
blondino4ka_milk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка массива с использование операторов цикла с условием MikaNika Паскаль, Turbo Pascal, PascalABC.NET 1 08.04.2012 21:53
Итерационный циклы с пост условием, вычислить[Pascal 7.0] kojakin Помощь студентам 2 20.12.2011 01:26
Задача на pascal с пост условием. StudentSAFU Помощь студентам 1 18.12.2011 19:11
использование условного оператора после операторов цикла с условием машко Помощь студентам 8 21.06.2009 23:59
Оператор цикла с предусловием While. Оператор цикла с пост условием Repeat McMilin Помощь студентам 7 11.11.2007 14:10