Как найти периметр треугольника по информатике - Autoru.top

Найди верный ответ на вопрос ✅ «Составить программу в Паскале. Даны стороны треугольника а, в, с. Найти его периметр. …» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.

Искать другие ответы

Источник

Improve Article

Save Article

Like Article

Read

Discuss

Improve Article

Save Article

Like Article

Given side (a, b, c) of a triangle, we have to find the perimeter of a triangle.

Perimeter :
Perimeter of a triangle is the sum of the length of side of a triangle.

where a, b, c are length of side of a triangle.
Perimeter of a triangle can simply be evaluated using following formula :

Examples :

Input : a = 2.0, b = 3.0, c = 5.0
Output : 10.0


Input : a = 5.0, b = 6.0, c = 7.0 
Output : 18.0

C++

#include <iostream>

using namespace std;

float findPerimeter(float a, float b, float c)

{

return (a + b + c);

}

int main()

{

float a = 2.0, b = 3.0, c = 5.0;

cout << findPerimeter(a, b, c);

return 0;

}

C

#include <stdio.h>

float findPerimeter(float a, float b, float c)

{

return (a + b + c);

}

int main()

{

float a = 2.0, b = 3.0, c = 5.0;

printf("%f", findPerimeter(a, b, c));

return 0;

}

Java

class Test {

static float findPerimeter(float a, float b, float c)

{

return (a + b + c);

}

public static void main(String[] args)

{

float a = 2.0, b = 3.0, c = 5.0;

System.out.println(findPerimeter(a, b, c));

}

Python

def findPerimeter(a, b, c):

return (a + b + c)

a = 2.0

b = 3.0

c = 5.0

print(findPerimeter(a, b, c))

C#

using System;

class Test {

static float findPerimeter(float a,

float b, float c)

{

return (a + b + c);

}

public static void Main()

{

float a = 2.0f, b = 3.0f, c = 5.0f;

Console.WriteLine(findPerimeter(a, b, c));

}

PHP

<?php

function findPerimeter($a, $b, $c)

{

return ($a + $b + $c);

}

$a = 2.0;

$b = 3.0;

$c = 5.0;

echo findPerimeter($a, $b, $c);

?>

Javascript

<script>

function findPerimeter(a, b, c)

{

return (a + b + c);

}

let a = 2.0, b = 3.0, c = 5.0;

document.write(findPerimeter(a, b, c));

</script>

Output :

10.0

Time Complexity: O(1)

Auxiliary Space: O(1)

Last Updated :
17 Feb, 2023

Like Article

Save Article

Источник

Обучайтесь и развивайтесь всесторонне вместе с нами, делитесь знаниями и накопленным опытом, расширяйте границы знаний и ваших умений.

поделиться знаниями или
запомнить страничку

Все категории
экономические
43,666
гуманитарные
33,654
юридические
17,917
школьный раздел
611,992
разное
16,906

Популярное на сайте:

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.

Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.

Источник

lavrentev

0 / 0 / 0

Регистрация: 16.02.2017

Сообщений: 7

Процедура: нахождение периметра треугольника

01.05.2017, 12:43. Показов 22955. Ответов 2

Метки нет (Все метки)

Всем привет)
Не могу разобраться в чем ошибка
Задача: Нужно написать программу по нахождению периметр треугольника (p=a+b+c), использую ПРОЦЕДУРЫ

Pascal

program abc;
var a,b,c,p:integer;
procedure perimetr (x,y,z:integer; var p: integer);
begin 
p:=x+y+z;
end;
begin 
writeln ('vvedite storoni treygolnika:');
readln (a,b,c);
perimetr (a,b,c,p);
writeln ('perimetr raven',p);
end.

Cold

87 / 87 / 65

Регистрация: 22.05.2014

Сообщений: 485

01.05.2017, 13:04

Pascal

Program SandP;
var 
  x,y,z: real; 
  S: real;   
  P: real;   
 
procedure RectSP(a,b,с: real; var P:real); 
begin
  P := a + b + c; 
end;
 
begin 
  writeln('Введите стороны прямоугольника: '); 
  readln(x,y,z); 
  RectSP(x,y,z,P); 
  writeln('Периметр равен ',P); 
end.

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

01.05.2017, 13:19

Сообщение от lavrentev

Не могу разобраться в чем ошибка

В принципе никакой ошибки нет, разве что убрать локальные переменные на место.

Pascal

program abc;
procedure perimetr (x,y,z:integer; var p: integer);
begin
p:=x+y+z;
end;
var a,b,c,p:integer;
begin
writeln ('vvedite storoni treygolnika:');
readln (a,b,c);
perimetr (a,b,c,p);
writeln ('perimetr raven: ',p);
end.

IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604	01.05.2017, 13:19
3

Источник

Формулировка задачи:

Составте програму для вычесления периметра прямоугольника

Код к задаче: «Периметр треугольника.»

textual

Var P,a,b: real;
begin
writeln('vvedite storoni');
readln(a,b)
P:=(2*a)+(2*b);
writeln('perimetr='+ P)
end.

Полезно ли:

13 голосов , оценка 4.538 из 5

Источник

C++

C

Java

Python

C#

PHP

Javascript

Процедура: нахождение периметра треугольника

Формулировка задачи:

Код к задаче: «Периметр треугольника.»

Не пропустите также: