Составьте программу генерирования случайных чисел от -100 до 100.Выдавать на экр...

July 2022 1 1 Report

Составьте программу генерирования случайных чисел от -100 до 100.Выдавать на экран по одному числу в каждой строчке,если же число отрицательное ,то выводить противоположно.Буду благодарна за помощь

Answers & Comments

elfxea Var a:shortint;
begin
Randomize;
a:=Random(-100, 100);
if (a<0) then a:=a*(0-1);
writeln(a);
end.

Все программируемое - просто))

TataTato Я ,как человек неопытный в этом плане,не побоюсь спросить "это точно верно?"Просто как-то мало всего писать. А так,спасибо огромное ,что уделили времечко )

elfxea хм.

elfxea Сейчас, мысли сформулирую... :В

elfxea Алгоритмика: объявляем a:Shortint [-127;+127] → Объявляем процедуру randomize → задаем a [-100;+100] → Усл. оператор:

elfxea Если a<0, умножаем на -1, чтобы получить обратное число

elfxea дальше - выводим a)

elfxea Для себя сейчас проверил: можно без Randomize с:

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

Answers & Comments

рекомендуемые вопросы

Helpful Links

Helpful Social