program Project1;
var
s,fk,sk,Gip:real;
label
Lf;
begin
Lf:
Write('Vvedite perviy katet :');Readln(fk);
Write('Vvedite vtoroy katet :');Readln(sk);
if (fk<0) then
begin
writeln('Perviy katet ne moget byt menIIIe 0');
GoTo Lf;
end;
if (sk<0) then
begin
writeln('Vtoroy katet ne moget byt menIIIe 0');
GoTo Lf;
end;
Gip:=Sqrt(sqr(fk)+sqr(sk));
S:=((fk*sk)/2);
Writeln('gipotenuza = ',gip);
Writeln('Ploshad = ',s);
readln;
end.
Somebody,help!
Привет всем!
Помогите, пожалуйста решить две задачи в Visual Basic!!! Нужно срочно! Завтра уже сдавать...а т.к. у нас программирование только началось, никто не знает как правильно решить! Одна надежда только на вас!!!
1) Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.
2) Вычислить массу L м свинцовой рубы (плотность 11.3 г/см3), толщина стенок которой а мм, а внутренний диаметр r мм.
Заранее спасибо!
Помогите, пожалуйста решить две задачи в Visual Basic!!! Нужно срочно! Завтра уже сдавать...а т.к. у нас программирование только началось, никто не знает как правильно решить! Одна надежда только на вас!!!
1) Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.
2) Вычислить массу L м свинцовой рубы (плотность 11.3 г/см3), толщина стенок которой а мм, а внутренний диаметр r мм.
Заранее спасибо!
Извини,но я Бейсик знаю не очень хорошо...вот на паскале так будет(1):
А второе задание я ваще не понял!
Код:
А второе задание я ваще не понял!
Цитата:
Originally posted by CrazyTimon
Извини,но я Бейсик знаю не очень хорошо...вот на паскале так будет(1):
А второе задание я ваще не понял!
Извини,но я Бейсик знаю не очень хорошо...вот на паскале так будет(1):
Код:
program Project1;
var
s,fk,sk,Gip:real;
label
Lf;
begin
Lf:
Write('Vvedite perviy katet :');Readln(fk);
Write('Vvedite vtoroy katet :');Readln(sk);
if (fk<0) then
begin
writeln('Perviy katet ne moget byt menIIIe 0');
GoTo Lf;
end;
if (sk<0) then
begin
writeln('Vtoroy katet ne moget byt menIIIe 0');
GoTo Lf;
end;
Gip:=Sqrt(sqr(fk)+sqr(sk));
S:=((fk*sk)/2);
Writeln('gipotenuza = ',gip);
Writeln('Ploshad = ',s);
readln;
end.
var
s,fk,sk,Gip:real;
label
Lf;
begin
Lf:
Write('Vvedite perviy katet :');Readln(fk);
Write('Vvedite vtoroy katet :');Readln(sk);
if (fk<0) then
begin
writeln('Perviy katet ne moget byt menIIIe 0');
GoTo Lf;
end;
if (sk<0) then
begin
writeln('Vtoroy katet ne moget byt menIIIe 0');
GoTo Lf;
end;
Gip:=Sqrt(sqr(fk)+sqr(sk));
S:=((fk*sk)/2);
Writeln('gipotenuza = ',gip);
Writeln('Ploshad = ',s);
readln;
end.
А второе задание я ваще не понял!
хихи! спасибо...но а на язык Бэйсика это кто-ни будь может перевести?