Вот задали две задачи, вроде решил все компилируется! Но все же хочу убедиться, нет ли ошибок, а то за каждую ошибку при проверке минус 1 бал!

1)Вычислить значение выражения, необходимые данные ввести с клавы, использовать вспомогательные переменные. Результат на экран.

Нажмите для просмотра прикрепленного файла

 var x,a,y,b,part1,part2,rezult:real;

BEGIN

write('Vvedite x, a, y, b: ');
readln(x,a,y,B);

part1:= (1+2*x*a-3*(a*a*a*a)*sqr(y)*B)/(sqrt(sin(x)+1));
part2:= cos(y)-5*(y*y*y*y*y*y)/(2+sin(y));

rezult:=part1-part2;
write('Rezultat = ',rezult:8:4);
readln;
end.

2) Вычислить площадь заштрихованной фигуры. Нужные параметры ввести с клавы.
Нарисован круг, а в средине ромб!

var r,d1,d2,s_romba,s_kruga,rezult:real;

BEGIN

write('Vvedite diaganali d1,d2: ');
readln(d1,d2);
write('Vvedite radius kruga r: ');
readln®;

s_romba:= (d1*d2)/2;
s_kruga:= pi*r*r;
rezult:= s_kruga-s_romba;

write('Otvet: ',rezult:8:4);
readln;
end.

пользуйся тэгами code

var x,a,y,b,part1,part2,rezult:real;

BEGIN

write('Vvedite x, a, y, b: ');
readln(x,a,y,B);

part1:= (1+2-x*a-3*(a*a*a*a)*sqr(y)*B)/(sqrt(sin(x)+1));
part2:= (cos(y)-5*(y*y*y*y*y*y))/(2+sin(y));

rezult:=part1-part2;
write('Rezultat = ',rezult:8:4);
readln;
end.

Сообщение отредактировал APAL - Вчера, 21:10

PORTUGAL , слышал про такую штуку, как ручной рассчет ? ;) Решаешь на бумажке а потом сверяешь с результатами компа :yes:
Очень помогает

Кстати, не первый раз уже... И теги CODE для тебя тоже не существуют???

APAL

ты зачем мое то сообщение отредактировал?? теперь не видно что выделено цветом.

Virt, тв про сто не успел посмотреть мое сообщения и невнимательно смотрел свое Это я попросил, так как в тегах

твой код "сбивался", достаточнго частое явление ... так что меняй обратно ;)

Virt, не веришь ? )) Смотри :

верю..

klem4, чтобы это не возникало, есть галочка "включить смайлики"... Ее надо сбрасывать, иначе B) считается смайликом (так же как и :) )

Насчет правильности вычисления: здесь нужна "защита от дурака". В первой задаче выражение sin(x) может оказаться меньше нуля, тогда функция sqrt вызовет ошибку... Минус бал

Кроме того, пользователь может ввести нечисло: минус второй бал...