М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
зомб1
зомб1
20.08.2020 09:50 •  Информатика

СДЕЛАТЬ ДЗ ПО ИНФОРМАТИКЕ (ЯЗЫК PHYTON)
1. Вычисление площади квадрата. (использовать целые числа)
2. Вычисление периметра квадрата. (использовать вещественные числа)
3. Вычисление площади треугольник. (использовать вещественные числа)
4. Вычисление периметра треугольника. (использовать целые числа)
5. Вычисление площади круга. (использовать целые числа)
6. Вычисление длины окружности. (использовать вещественные числа)​

👇
Ответ:
LadyK15
LadyK15
20.08.2020

1

a = int(input())

print('Площадь квадрата:', a ** 2)

2

a = float(input())  

print('Периметр квадрата:', 4 * a)

3

a = float(input())

h = float(input())

print(Площадь треугольника:', 0.5 * a * h)

4

a = int(input())

b = int(input())

c = int(input())

print('Периметр треугольника:', a + b + c)

5

r = int(input('Введите радиус: '))

from math import pi

print('Площадь круга:', pi * r)

6

r = float(input('Введите радиус: '))

from math import pi

print('Длина окружности:', 2 * pi * r)

4,5(56 оценок)
Открыть все ответы
Ответ:
ggezzzz
ggezzzz
20.08.2020
//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
 ars:array of array of string;
 i:integer;
 
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
 i,j:integer;
begin;
for i:=1 to n do
 begin;
   for j:=1 to n do
    begin;
     ar[i,j]:=random(9);
     str(ar[i,j],ars[i,j]);
    end;
 end;
end;

procedure burning(ars:array of array of string);
var
 i,j:integer;
 t:text;
 begin;
  assign(t,'text.txt');
  rewrite(t);
  for i:=1 to n do
   begin;
    writeln(t,' ');
     for j:=1 to n do
      write(t,ars[i,j],' ');
   end;
 end;  

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
 begin;
  setlength(ar[i],n+1);
  setlength(ars[i],n+1);
 end;
complection(ar,ars);
burning(ars);
end.
4,4(29 оценок)
Ответ:
shopniceLol
shopniceLol
20.08.2020
1)var ar:array of integer;
max,min,s,i,n,maxi,mini:integer;
begin;
randomize;
max:=-1;
min:=101;
readln(n);
setlength(ar,n+1);
writeln('Array:');
for i:=1 to n do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
  if max<ar[i] then
   begin;
    max:=ar[i];
    maxi:=i;
   end;
  if min>ar[i] then
   begin;
    min:=ar[i];
    mini:=i;
   end;
  s:=s+ar[i];
 end;
ar[maxi]:=s;
ar[mini]:=s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
2)var ar:array of integer;
k,h,i,s:integer;
f:real;
begin;
randomize;
readln(h);
setlength(ar,h+1);
writeln('Array:');
for i:=1 to h do
 begin;
  ar[i]:=random(100)-50;
  write(ar[i]:4);
  if (ar[i]>0) and (ar[i] mod 2=0) then
   begin;
    inc(k);
    s:=s+ar[i];
   end;
 end;
f:=s/k;
writeln;
writeln('Result:',f);
end.
4,5(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ