Лабораторная работа по теме Линейные алгоритмы. Проверочная работа по теме - Линейное программирование. Операции с целым числами
![]()
|
Операции с целым числамиВвести число, обозначающее количество секунд. Вывести то же самое время в минутах и секундах. Пример: Введите число секунд: 175 2 мин. 55 с Программа на языке программирования Паскаль program Vremya; var x,y,z:integer; begin writeln ('Введите время в секундах'); read (x); y:= x div 60; z:= x mod 60; write (y, ' мин. ', z, ' сек.') end. Ввести число, обозначающее количество секунд. Вывести то же самое время в часах, минутах и секундах. Пример: Введите число секунд: 8325 2 ч. 18 мин. 45 с Программа на языке программирования Паскаль program Vremya; var x,y,z,m:integer; begin writeln ('Введите время в секундах'); read (x); y:= x div 3600; m:= x div 60; z:= x mod 60; write (y, ' час. ',m ,' мин. ', z, ' сек.') end. Операции с вещественными числамиВвести число, обозначающее размер одной фотографии в Мбайтах. Определить, сколько фотографий поместится на флэш-карту объёмом 2 Гбайта. Пример: Введите размер фотографии в Мбайтах: 6.3 Поместится фотографий: 325. Program drobi; var x:real; begin writeln ('Введите размер фотографии'); read (x); x:= 2*1024/x; write ('На диск размером 2 Гб поместится ',round (x),' фотографий') end. Оцифровка звука выполняется в режиме стерео с частотой дискретизации 44,1 кГц и глубиной кодирования 24 бита. Ввести время записи в минутах и определить, сколько Мбайт нужно выделить для хранения полученного файла (округлить результат в большую сторону). Пример: Введите время записи в минутах: 10 Размер файла 151 Мбайт Program drobi; var x:real; begin writeln ('Введите время записи'); read (x); x:= 44.1*1000*24*x*60*2/8/1024/1024; write ('Нужно выделить для хранения полученного файла ',round (x),' Мбайт') end. Для того чтобы опознать своих, математики используют числовые пароли. Услышав число-пароль, математик должен возвести его в квадрат и сказать в ответ первую цифры дробной части полученного числа. Напишите программу, которая по полученному паролю (вещественному числу) вычисляет число-ответ. Пример: Введите пароль: 1.92 Ответ: 6 (потому что 1,922 = 3, 6 864…, первая цифра дробной части – 6). (var x:real; begin read (x); write (int (x)) end.) Program drobi; var x:real; begin writeln ('Введите число-пароль'); read (x); x:= sqr (x); x:=frac (x)*10; write ('Число-ответ ',int (x)) end. Случайные числаВ игре «Русское лото» из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90. Напишите программу, которая выводит наугад первые 5 выигрышных номеров. В игре «Русское лото» из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90. Напишите программу, которая выводит наугад первые 5 выигрышных номеров. Program sluch; var a,b,c,d,e:integer; begin a:= random (1,90); b:= random (1,90); c:= random (1,90); d:= random (1,90); e:= random (1,90); write (a:2,b:4,c:4,d:4,e:4) end. Игральный кубик бросается три раза (выпадает три случайных значения). Из этих чисел составляется целое число, программа должна найти его квадрат. Пример: Выпало очков: 1 2 3 Число 123 Его квадрат 15129 Program sluch; var a,b,c,s:integer; begin a:= random (1,20); b:= random (1,20); c:= random (1,20); Writeln (a:2,b:4,c:4); s:= a*100+b*10+c; writeln (s); write (Sqr (s)) end. Получить случайное трёхзначное число и вывести через запятую его отдельные цифры. Пример: Получено число 123 сотни: 1 десятки: 2 единицы: 3 Program sluch; var a,b,c,s:integer; begin a:= random (100,999); writeln (a); b:= a div 100; c:= a mod 100 div 10; s:= a mod 100 mod 10; Writeln ('Сотни ',b); Writeln ('Десятки ',c); Writeln ('Единицы ',s); end. |