Составить программу вычисления выражения - Pascal ABC

  1. Составить программу вычисления выражения: кубический корень у +1+tg в квадрате х/2


textual

Код к задаче: «Составить программу вычисления выражения - Pascal ABC»

Var
 x,y:real;
begin
 readln(x,y);
 writeln('ÂûðГ*æåГ*ГЁГҐ:=',y*y*y+1+sqr(sin(x/2)/cos(x/2)));
 readln
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.000 из 5



Похожие ответы
  1. Нужно, чтобы не было лейбел, но программа не меняла своей сути . ОЧЕНЬ СРОЧНО!!!

  1. Напишите программу, которая находит все различные цифры в символьной строке.Входные данные На вход программе подаётся символьная строка.Выходные данные Программа должна вывести в одной строке все различные цифры, которые встречаются в исходной строке, в порядке возрастания. Если в строке нет цифр, нужно вывести слово 'NO'.Примеры:входные данные ab1n32kz2выходные данные 123входные данные asdasdвыходные данные NO

  1. Составить программу вычисления функции y=1-(sin(x))/(1-ln(x+1)) при изменении аргумента x в интервале 0,1<=x<=3,0 с шагом h=0,1

  1. Напишите программу, которая выводит на экран круговую диаграмму , отражающую товарооборот (в процентах) книжного магазина. Исходные данные 30% 35% 30% 5%.

  1. Добрый день. Знаю, что такое уже было на вашем форуме, но оно было не полностью, а как доделать я не сильно знаю. Задача: Написать программу перевода целого числа a из цифрового формата в прописной. a < 1012 Пример: a = 123 ⇒ cто двадцать три. Вот код, который я обнаружил на этом сайте:

  1. Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал. Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cubes; uses crt; var x,x1,x2,x3,x0,y,z,k,n:integer; s:string; f,g:text; begin assign(f,'cubes.dat'); reset(f); readln(f,y); close(f) ; x3:=8; x1:=sqr(y-2)*6; x0:=(sqr(y-2))*(y-2); x2:=(y-2)*4*2+(y-2)*4; assign(g,'cubes.sol'); rewrite(g); writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3); close(g); end.

  1. Написать программу формирования ОПЗ и расчета полученного выражения. Разработать удобный интерфейс ввода исходных данных и вывода результатов. Работу программы проверить на конкретном примере Сам пример со значениями которые должны получиться: (a– b)/(c+d)*e , где а=0.3 b=6.7 c=8.4 d=9.6 e=1.2 Результат должен получиться -0.429. Помогите пожалуйста используя динамический массив заранее спасибо