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

Напиши код программы который будет вычислять пиримитр фигуры

👇
Ответ:
Aalina23
Aalina23
16.02.2023

def pramougolnik(a, b):

  return (int(a) + int(b)) * 2

def treugolnik( a, b, c ):

  return int(a) + int(b) + int(c)

a = input("Введите ширину прямоугольника")

b = input("Введите высоту прямоугольника")

print("Периметр прямоугольника равен: ", pramougolnik(a, b))

a = input("Введите 1 сторону треугольника")

b = input("Введите 2 сторону треугольника")

c = input("Введите 3 сторону треугольника")

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

Объяснение:

Как мы знаем перимитр это сумма всех сторон фигуры, для нахождения перимитра прямоугольника мы суммируем все стороны прямоугольника но мы сократим это: вместо того чтобы писать P=a+b+c+d мы сократим это до P=(a+b)*2.

С треугольником тоже самое

Ещё при return мы должны возвращать число а не строку, если бы мы умножили строку было бы так:

a = "Привет!"

print(a*2)

Результат: Привет!Привет!

Из-за этого мы используем int() конвертируя "строковое число" в число

4,4(32 оценок)
Ответ:
Рома151999
Рома151999
16.02.2023

program z;

var a,p:real;

i,n:integer;

begin

p:=0;

read(n);

for i:=1 to n do

begin

read(a);

p:=p+a

end;

write(p)

end.

Объяснение:

переменная n - количество сторон фигуры

переменная p - периметр фигуры

переменная i - параметр цикла

переменная а -  i-я (текущая) сторона фигуры

вводим количество сторон фигуры

в цикле вводим размер каждой стороны фигуры и вычисляем периметр (накоплением)

выводим периметр фигуры

4,6(29 оценок)
Открыть все ответы
Ответ:
maxwinter095
maxwinter095
16.02.2023
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив [',8,',',7,'] ***');
  var a:=MatrRandom(8,7,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  for var i:=0 to a.RowCount-1 do begin
    a.SetRow(i,a.Row(i).Sorted.ToArray)
    end;
  Writeln('*** Результирующий массив ***');
  a.Println(4)  
end.

Пример
*** Исходный массив [8,7] ***
 -45 -24  26  38 -83 -97  77
  15 -68  80 -47   3 -61 -52
 -71  70 -52  46  70  59 -15
 -66 -20 -32  82  63   1  76
  93 -99 -38  22  83 -36 -42
  53  17 -19  -7  47  12 -58
  53  21  40 -88 -89  65  80
 -73 -16 -78 -62   3  18 -79

*** Результирующий массив ***
 -97 -83 -45 -24  26  38  77
 -68 -61 -52 -47   3  15  80
 -71 -52 -15  46  59  70  70
 -66 -32 -20   1  63  76  82
 -99 -42 -38 -36  22  83  93
 -58 -19  -7  12  17  47  53
 -89 -88  21  40  53  65  80
 -79 -78 -73 -62 -16   3  18
4,6(23 оценок)
Ответ:
merkulovaannet
merkulovaannet
16.02.2023
Var
  cl,lp:integer;
begin
  Write('Количество символов в строке- '); Read(cl);
  Write('Количество строк на странице- '); Read(lp);
  Writeln('Количество символов на странице: ',cl*lp)
end.
 
Пример
Количество символов в строке- 68
Количество строк на странице- 45
Количество символов на странице: 3060

uses Crt;
var
  nt:string; { наименование товара }
  kt:real; { количество товара }
  ct:real; { цена товара за единицу }
begin
  Write('Наименование товара- '); Readln(nt);
  Write('Количество товара- '); Read(kt);
  Write('Цена за единицу товара- '); Read(ct);
  ClrScr;
  Writeln(nt,' - ',ct*kt:0:2)
end. 
 
Результаты работы программы даны во вложениях

const
  podn=0.13; { подоходный налог }
  pensf=0.01; { в Пенсионный фонд }
var
  os:real; { оклад сотрудника }
  nd:integer; { количество отработанных дней }
  nr:integer; { количество рабочих дней в месяце }
  nach:real; { начислено }
  sp:real; { сумма подоходного налога }
  spf:real; { сумма отчислений в ПФ }
  nzp:real; { итого начислений на зарплату }
  svyd:real; { сумма к выдаче }
begin
  Write('Оклад, руб- '); Read(os);
  Write('Отработано дней- '); Read(nd);
  Write('Рабочих дней- '); Read(nr);
  nach:=os*nd/nr; { может получиться нецелое число }
  { округлим до сотых долей }
  nach:=Round(nach*100)/100;
  sp:=nach*podn; sp:=Round(sp*100)/100;
  spf:=nach*pensf; spf:=Round(spf*100)/100;
  nzp:=sp+spf;
  svyd:=nach-nzp;
  Writeln('Начислено, руб:         ',nach:0:2);
  Writeln('Подоходный налог, руб:  ',sp:0:2);
  Writeln('В Пенсионный фонд, руб: ',spf:0:2);
  Writeln('Итого налогов, руб:     ',nzp:0:2);
  Writeln('К выдаче, руб:          ',svyd:0:2)
end.

Пример
Оклад, руб- 46420
Отработано дней- 19
Рабочих дней- 22
Начислено, руб:         40090.00
Подоходный налог, руб:  5211.70
В Пенсионный фонд, руб: 400.90
Итого налогов, руб:     5612.60
К выдаче, руб:          34477.40

Написать программу в паскале pascal авс для самостоятельного решения 1) известно количество символов
Написать программу в паскале pascal авс для самостоятельного решения 1) известно количество символов
4,5(59 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ