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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2021, 15:39   #1
solmyashzz
Пользователь
 
Регистрация: 12.12.2021
Сообщений: 10
По умолчанию Числа в диапазоне

Вечер добрый, прошу помощи
Напишите программу, делающую три следующих вещи:
Печатает случайное целое число в диапазоне от 0 до 100, включая границы диапазона
Печатает случайное дробное число в диапазоне от -500 до 500
Запрашивает у пользователя два числа A и B и выводит два случайных числа X и Y, таких, что:
A < X <= Y < B
При условии, что A < B и B – A >= 10
solmyashzz вне форума Ответить с цитированием
Старый 12.12.2021, 16:16   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,910
По умолчанию

Здесь включены 3 вещи:
Код:
var i, a, b, x, y: integer;
    r: real;
begin
   Randomize;
   i:=Random(101);
   Writeln(i);
   Writeln;

   r:=Random(1000)-500+Random;
   Writeln(r:0:8);
   Writeln;

   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   if b-a<10 then
   begin
      Writeln('Error: B - A < 10');
      Readln;
      Exit;
   end;
   x:=a+Random(b-a-2)+1;
   y:=x+Random(b-x);
   Writeln('x = ', x);
   Writeln('y = ', y);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 12.12.2021, 16:30   #3
solmyashzz
Пользователь
 
Регистрация: 12.12.2021
Сообщений: 10
По умолчанию

newerow1989, Огромное вам спасибо!
solmyashzz вне форума Ответить с цитированием
Старый 12.12.2021, 16:35   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,910
По умолчанию

С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием