Задачи. Паскаль. Нужна помощь...
Здравствуйте! У вас здесь впервые, надеюсь на помощь. Задано 6 задач. Сделал что смог. Помогите с остальным и проверьте плиз мои решения.
1) program lab1;
uses crt;
var a,b:integer;
l,k:real;
const PI=3.14;
begin
clrscr;
a:=3; b:=2;
l:=a+sqr(b)-sqr(b)-1.5/sqr (sin (pi/6));
k:=sqrt (abs(l))-2.7/(a-b)*(b-l);
write (l, k);
end.
2)program lab2;
uses crt;
var a,b,c:real;
begin clrscr;
writeln ('vvedite znacheniya');
read (a,b,c);
if (sqr (a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then writeln ('gipotenuza')
else writeln ('ne yavlyaetsya');
end.
3)program lab3;
uses crt;
var s:string [20];
l:integer;
begin
l:=length (s);
writeln ('vvedite predlojenie');
read (s);
if copy (s,l,1)='.' then writeln ('da')
else writeln ('net');
end.
Третье не получается. И если не сложно, помогите с блок-схемами... Для 1 и 2 сделал, 3 тоже вроде понятна. Задания находятся во вложенном файле. Спасибо! Жду ответов.
1) program lab1;
uses crt;
var a,b:integer;
l,k:real;
const PI=3.14;
begin
clrscr;
a:=3; b:=2;
l:=a+sqr(b)-sqr(b)-1.5/sqr (sin (pi/6));
k:=sqrt (abs(l))-2.7/(a-b)*(b-l);
write (l, k);
end.
2)program lab2;
uses crt;
var a,b,c:real;
begin clrscr;
writeln ('vvedite znacheniya');
read (a,b,c);
if (sqr (a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then writeln ('gipotenuza')
else writeln ('ne yavlyaetsya');
end.
3)program lab3;
uses crt;
var s:string [20];
l:integer;
begin
l:=length (s);
writeln ('vvedite predlojenie');
read (s);
if copy (s,l,1)='.' then writeln ('da')
else writeln ('net');
end.
Третье не получается. И если не сложно, помогите с блок-схемами... Для 1 и 2 сделал, 3 тоже вроде понятна. Задания находятся во вложенном файле. Спасибо! Жду ответов.