На Basic написать, к сожалению, не смогу (я его с трудом помню), а на Паскале, наверное, не поймешь, расскажу, как смогу:
1 задача:
Объявляешь переменные
var
x:integer; {integer - целый тип}
p:real; {real - вещественный тип (дробный)}
Дальше вводишь переменные, вроде бы через write и read
Дальше идёт сам пример:
В ячейку p присваиваешь выражение
p=sin(x)*log(tan(x));
И выводишь результат
2 задача:
То же самое, только выражение записывается так:
p=log(x^3)/x
Вот и всё