Лабораторная работа по теме Линейные алгоритмы. Проверочная работа по теме - Линейное программирование. Операции с целым числами

• Название: Операции с целым числами
• Анкор: Лабораторная работа по теме Линейные алгоритмы
• Дата: 21.03.2022
• Размер: 21.65 Kb.
• Имя файла: Проверочная работа по теме - Линейное программирование.docx
• Тип: Программа; #406892

Операции с целым числами

1. 
   Ввести число, обозначающее количество секунд. Вывести то же самое время в минутах и секундах.
   

Пример:

Введите число секунд: 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.

2. 
   Ввести число, обозначающее количество секунд. Вывести то же самое время в часах, минутах и секундах.
   

Пример:

Введите число секунд: 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.

Операции с вещественными числами

1. 
   Ввести число, обозначающее размер одной фотографии в Мбайтах. Определить, сколько фотографий поместится на флэш-карту объёмом 2 Гбайта.
   

Пример:

Введите размер фотографии в Мбайтах: 6.3

Поместится фотографий: 325.

Program drobi;

var x:real;

begin

writeln ('Введите размер фотографии');

read (x);

x:= 2*1024/x;

write ('На диск размером 2 Гб поместится  ',round (x),'  фотографий')

end.

2. 
   Оцифровка звука выполняется в режиме стерео с частотой дискретизации 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.

3. 
   Для того чтобы опознать своих, математики используют числовые пароли. Услышав число-пароль, математик должен возвести его в квадрат и сказать в ответ первую цифры дробной части полученного числа. Напишите программу, которая по полученному паролю (вещественному числу) вычисляет число-ответ.
   

Пример:

Введите пароль: 1.92

Ответ: 6

(потому что 1,92² = 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. 
   В игре «Русское лото» из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 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. 
   Игральный кубик бросается три раза (выпадает три случайных значения). Из этих чисел составляется целое число, программа должна найти его квадрат.
   

Пример:

Выпало очков:

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.

1. 
   Получить случайное трёхзначное число и вывести через запятую его отдельные цифры.
   

Пример:

Получено число 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.