На Basic написать, к сожалению, не смогу (я его с трудом помню), а на Паскале, наверное, не поймешь, расскажу, как смогу:

1 задача:
Объявляешь переменные
 
var 
x:integer; {integer - целый тип}
p:real; {real - вещественный тип (дробный)}

Дальше вводишь переменные, вроде бы через write и read
Дальше идёт сам пример:
В ячейку p присваиваешь выражение

p=sin(x)*log(tan(x));

И выводишь результат

2 задача:
То же самое, только выражение  записывается так:

p=log(x^3)/x

Вот и всё