Составьте программу, которая генерирует и выводит на экран длины сторон катетов прямоугольного треугольника, не превыщающих 10 см. Программа должна подсчитать длину гипотенузы этого треугольника, его площадь и периметр и вывести их на экран. Затем эти вычисленные значения следует округлить и вывести результат на экран в отдельной строке (Phyton/Питон)

👇

Увидеть ответ

Ответ:

torebekkismetov

18.01.2023

import math

import random

a = random.randint(2,10)

b = random.randint(2,10)

while a == b:

a = random.randint(2,10)

b = random.randint(2,10)

print("a =", a, "см", "b =", b, "см.")

c = math.sqrt(a**2+b**2)

print("c =",'%.1f' % c, "см.")

p = a+b+c

print("P =",'%.1f' % p, "см.")

s = (a*b)/2

print("S =",'%.1f' % s, "см^2.")

4,5(91 оценок)

Открыть все ответы

Ответ:

MrDackes

18.01.2023

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

4,8(69 оценок)

Ответ:

Nic5748796237067736

18.01.2023

Объяснение:

Задача 1.

Определить объем видеопамяти в килобайтах для графического файла размером 640х480 пикселей и палитрой из 32 цветов.

Найдем сколько бит нужно для хранения значения цвета каждого пикселя. Если палитра составляет 32 цвета то для этого достаточно 2⁵=32 (степень 5, значит 5 бит). Всего у нас 640*480=307200 пикселей, на каждый нужно 5 бит, всего потребуется 307200*5=1536000 бит.

В одном байте 8 бит, значит нам нужно 1536000/8=192000 байт. В килобайте 1024 байта, следовательно для нашего файла нам потребуется объем видеопамяти 192000/1024= 187,5=188 кБ

Задача 2.

После преобразования графического изображения количество цветов уменьшилось с 256 до 32. Во сколько раз уменьшился объем занимаемой им памяти?

Изначально, для хранения 256 цветов требовалось 8 бит для каждого пикселя (2⁸=256). После преобразования, для каждого пикселя количество цветов уменьшилось до 32, и для их хранения нужно всего 5 бит (считали в первой задаче)

Найдем во сколько раз уменьшился объем занимаемой памяти:

8/5=1,6

То есть количество хранимой информации уменьшилось в 1,6 раза, во столько же раз уменьшился и необходимый объем памяти.

4,7(70 оценок)

Это интересно:

Хобби-и-рукоделие

22.07.2021

Как сделать флаг: простой шаг за шагом гид...

Дом-и-сад

16.01.2020

Как удалить сажу с окрашенных поверхностей...

Компьютеры-и-электроника