Помоги с 3мя задачами по паскалю!!!
Парень в группе не может сдать информатику т.к. нет доступа к экзамену, проблема утыкается в несколько задач из лабораторных работ.
4 штуки я сам ему помог сделать,но вот несколько задач из первой лабораторной (к-я самая легкая по идеи) у меня вынесли мозг! Я не знаю как их решить! Я таких формул не изучал! Гугл тоже не помог.
1. Составить программу на использование оператора выбора Case
Написать программу, которая в зависимости от введённого символа L, S, V программа должна вычислять длину окружности; площадь круга; объём цилиндра.
2. Составить программу с использованием условного оператора. Предусмотреть задание исходных данных при помощи оператора ввода.
Даны действительные положительные числа x, y z. Выяснить существует ли треугольник с длинами сторон x, y z. Если треугольник существует, то ответить – является ли он остроугольным.
3. Составить программу для вычисления по формулам. Предусмотреть задание исходных данных при помощи оператора ввода.
Треугольник задан координатами своих вершин. Найти периметр и площадь треугольника.
(Эту последнюю задачу нашел на форуме, но ее решили через функцию, информатичка ее не приняла, надо не через функцию решать...)
P.S. товарищ готов раскошелиться, если что.
1 
2Baker:
уже пытались подкупить по всячески...ни в какую!
0 
0
Piro:
2Baker:
уже пытались подкупить по всячески...ни в какую!
Напоите и изнасилуйте 
0 0
сейчас напишу что смогу
program p1;
var choose:char;
r,h:integer;
P,L,S,V:real;
begin
writeln('Что вычислить(L,S,V)?');
writeln('Длину окружности(L)?');
writeln('Площадь окружности(S)?');
writeln('Объем цилиндра(V)?');
readln(choose);
case choose of
'L':begin
writeln('Введи радиус окружности');
readln(r);
L:=2*pi*r;
writeln('Длина окружности: ',L:6:2);
end;
'S':begin
writeln('Введи радиус окружности');
readln(r);
S:=pi*r*r;
writeln('Площадь круга: ',S:6:2);
end;
'V':begin
writeln('Введи радиус основания и высоту цилиндра');
readln(r,h);
V:=pi*r*r*h;
writeln('Объем цилиндра: ',V:6:2);
end;
end;
end.
program p2;
var x,y,z:integer;
cosx,cosy,cosz:real;
begin
writeln('Введи x,y и z через пробел');
readln(x,y,z);
if(abs(x-y)<z)and(z<(x+y)) then begin
writeln('Построить можно!');
cosx:=(y*y+z*z-x*x)/2*y*z;
cosy:=(x*x+z*z-y*y)/2*x*z;
cosz:=(x*x+y*y-z*z)/2*x*y;
if (cosx>0) and (cosx<10000) and (cosz>0) and (cosz<10000) and (cosy>0) and (cosy<10000) then writeln('Треугольник остроугольный!');
end
else write('Построить нельзя!');
end.
в этой я не оч уверен
0 0
program p3;
var x1,x2,x3,y1,y2,y3:integer;
a,b,c:real;
begin
writeln('Введите координаты x, y первой вершины');
write('>');
readln(x1,y1);
writeln('Введите координаты x, y второй вершины');
write('>');
readln(x2,y2);
writeln('Введите координаты x, y третьей вершины');
write('>');
readln(x3,y3);
a:= sqrt(sqr(x2-x1)+sqr(y2-y1));
b:= sqrt(sqr(x3-x2)+sqr(y3-y2));
c:= sqrt(sqr(x1-x3)+sqr(y1-y3));
writeln('P: ',a+b+c);
writeln('S: ',(1/4)*sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end.
0 0
2С0лд@т:
большое спасибо!2ps-95:
Спасибо! Выручили парня, в пятницу к ней пойдет, всей группой провожать будем! Спасибо за оперативность с задачами! 0 0