Прошу помочь в воде текста (вроде как задачи) в turbo pascal.
Доброго времени суток! Так сложилось что Паскаль последний раз видел еще в школе, которую окончил около 10 лет назад, но никак не мог подумать что мне он сможет пригодиться. У кого есть возможность, введите пожалуйста данный текст у себя в Паскале и покажите что вышло. Так же чтобы его не качать есть онлайн версия, но это я понял уже потом, жаль что даже данный факт меня не спасет, вот ссылка https://rextester.com/l/pascal , надеюсь это он, у меня он выглядит иначе, а именно синий экран программы. В программировании я полный ноль и не понимаю ничего в этом, скачал несколько версий Паскаля, но тут из серии "смотрю в книгу вижу фигу". Буду очень благодарен любому кто откликнется на мою просьбу и поможет мне. Текст приложу в формате картинки, заранее огромное спасибо за помощь! Так же вот мне скинули документ по данной задаче, там вообще мрак для меня, приложу его скрины потому что файл приложить не выходит.
Я очень надеюсь что найдутся знающие люди. Всем счастья, удачи и добра!)))
Текст вводить нет смысла - количество ошибок в нем стремится к бесконечности ;)
По блок-схеме:
var A,B,C,x,t,M,numOne,numTwo,numThree,numFour:real;
begin
readln(A,B,C,x);
numOne:=A/sqrt(2*pi);
numTwo:=exp(-sqr(B*x));
t:=3.8*pi*x*x/ln(A)*ln(10);
numThree:=sin(t)/cos(t);
numFour:=-sqrt(1.5*pi-4*sqr(sin(C)));
M:=numOne*numTwo+numThree+numFour;
writeln(M)
end.
