| Автор | Программа на паскале! |
|---|
Помогите написать программу на Паскале,чтоб считала площадь треугольника через формулу герона.
Заранее спасибо) |
| Прием данных, пропуск через формулу, вывод. Школота обленилась |
и что тебя в ступор ввело?
Незнание формулы Герона?
Неумение выстроить алгоритм?
Незнание синтаксиса языка? |
| саму программу написать!!!!! |
для Niagar-007:
а самому? |
чтоб ввести ее во фри паскале и работала)
сам пока не могу( |
для Niagar-007:
мозга не хватает? или знания синтаксиса? на информатике надо не в вк сидеть.
___
Эх, нам бы еще информатику сделали в школе... |
Uses Crt;
type dot=record
x,y:real;
end;
var
a,b,c,d:dot;
procedure vvod(var a:dot);
begin
writeln('Enter the parametrs of the dot');
writeln('Enter the first coord');
readln(a.x);
writeln('Enter the second coord');
readln(a.y);
end;
function leng(a,b:dot):real;
begin
leng:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
function Area(a,b,c:dot):real;
var
p,x,y,z:real;
begin
x:=leng(a,b);
y:=leng(a,c);
z:=leng(b,c);
p:=(x+y+z)/2;
Area:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
begin
Clrscr;
Vvod(a);
Vvod(b);
Vvod(c);
Vvod(d);
writeln(Area(a,b,c),' ',Area(a,b,d),' ',Area(a,c,d));
readln;
end.
Не знаю,сработает ли,давно еще на форуме каком-то писал,завалялось на компе |
на С могу, на паскале уже забыл)
#include <stdio.h>
#include <math.h>
void main( )
{
float a,b,c,p;
double S;
printf("Vvedit a="); scanf("%f", &a);
printf("Vvedit b="); scanf("%f", &b);
printf("Vvedit c="); scanf("%f", &c);
p=(a+b+c)/2;
S=sqrt(p*(p-a)*(p-b)*(p-c));
printf("Ploscha S=%f", S);
} |
8+
Какой-то извращеннодлинный код... |
спасибо, ана паскале можно типо с условиями?
типо если выполняется то ...
если нет то... |
для medmax-lg-2:
Можно и проще.
Просто тогда писал именно для дота. |
для Niagar-007:
нахрена тебе ифы? И вообще, где ты видел нормальный язык без ифов? |
для Niagar-007:
ну паренек ты уже реально наглеешь) включи мозги немного, прога элементарна. |
мне желательно чем проще тем лучше)
меня попросили с ифами) |
меня попросили с ифами)
нафига комару пенис? |
меня попросили с ифами)
ифы тут лишние или нафига комару пенис? :) |
для medmax-lg-2:
А ты думал он носом кровь сосет?))) |
для Вэржек:
:D
__
Ифы можно впихнуть для проверки того, введено число или нет, и только. Хотя в паскале может они и не нужны в этом случае, я этот пережиток прошлого не учил никогда |
| нет иф здесь для того чтобы проверять может быть такое треугольник или нет |
