Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Вычислить объём конуса Напишите программу Pascal Вычислить объём конуса: V=\frac{1}{3}\pi R^2H\\\\ R=10.88\cdot 10^{-3}\,m,\ H=5.8\cdot 10^{-3}\,m https://www.cyberforum.ru/ turbo-pascal/ thread1891346.html	Turbo Pascal Даны числа от 1 до 1000 и число m; вывести результат умножения куба нечетных сотен на число m Даны числа от 1 до 1000 и число m. Вывести результат умножение куба нечетных сотен на число m.
Turbo Pascal Что значит в списке переменных, то есть var, выражение типа <переменная>: 0.1; ? Что значит в списке переменных, то есть var, выражение типа <переменная>: 0..1; Например (d: 0..1) .Почему без описания типа данных. Пробовал сам найти информацию - не нашел. Снизу представлена программа в которой я это нашел. var a : longint; function DEC_BIN(x:longint):string; const digits:array of char = ('0','1'); var res:string; d:0..1; begin res:=''; while (x<>0) do begin https://www.cyberforum.ru/ turbo-pascal/ thread1891090.html	Turbo Pascal посчитать средний балл и вывести ученика с такой-же оценкой как и средний балл https://www.cyberforum.ru/ turbo-pascal/ thread1891089.html ребят как посчитать средний бал и вывести ученика с такой-же оценкой как и средний бал? Program zashitastroki; Uses crt; Type RT16=record s: string; m: integer; end; Var i,j,k: integer; sb:real; students: array of RT16;
Создайте программу для вычисления значения выражений Turbo Pascal Помогите,пожалуйста, написать программу в Pascal :) \ln \|x+y\|-\sqrt{z^\,}x+3\\\\x=-4.59,\ y=-16.3,\ z=12.87	Turbo Pascal Обработка и преобразование числовых последовательностей https://www.cyberforum.ru/ turbo-pascal/ thread1890531.html В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. количество отрицательных элементов массива; 2. сумму модулей элементов массива, расположенных после минимального по модулю элемента. Заменить все отрицательные элементы массива их квадратами и упорядочить элементы массива по возрастанию.
Turbo Pascal Найти площадь равнобедренного тупоугольного треугольника https://www.cyberforum.ru/ turbo-pascal/ thread1890529.html Помогите пожалуйста составить программу. Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами равнобедренного тупоугольного треугольника, вычислить его площадь. Выведите длины сторон треугольника и площадь в порядке возрастания значений.	Turbo Pascal Неправильная работа одной из процедур в базе данных Есть база данных студентов. Код ниже. Задание-чтобы при нажатии в меню вкладки sort студенты сортировались по году рождения по убыванию. Код отдельно процедуры тоже есть. Полный индусский код program BD; uses Crt; const count=8; x=50; y=10;
Turbo Pascal Найти суммы цифр заданных чисел https://www.cyberforum.ru/ turbo-pascal/ thread1890369.html написать полностью программу которая запрашивает n натуральных чисел а затем выводит на экран следующую информацию (число)(сумма его цифр).в программе должна быть создана и использована функция,вычисляющая сумму цифр натурального числа	Turbo Pascal Паскаль не видит подключенные библиотеки https://www.cyberforum.ru/ turbo-pascal/ thread1890343.html имеется программа в коде uses grafx2; пишу любую функцию из grafx2 компилятор пишет, что не знает такую функцию. Хотя пример автора библиотеки её видит! Мне застрелиться? Вариант с копипастом кода из библиотеки в программу не прокатит - его длина 3000+ строк
Найти сумму всех элементов массива, исключая экстремальные Turbo Pascal Найти сумму всех элементов массива, исключая экстремальные. Значением этой суммы заменить второй и предпоследний элементы исходного массива. Начальный и преобразованный массивы отпечатать.	Turbo Pascal Выяснить, какие из точек находятся на минимальном расстоянии друг от друга и найти значение этого расстояния https://www.cyberforum.ru/ turbo-pascal/ thread1890111.html Четыре точки заданы своими координатами X(x1, x2, x3), Y(y1, y2, y3), Z(z1, z2, z3), T(t1,t2, t3). Выяснить, какие из них находятся на минимальном расстоянии друг от друга и найти значение этого расстояния. Вычисление расстояния между двумя точками оформить в виде процедуры. Выручите,пожалуйста.

AHBAR

1077 / 488 / 316

Регистрация: 05.04.2013

Сообщений: 2,140

29.12.2016, 12:25

Вычислите значения переменных по заданным расчётным формулам - Turbo Pascal - Ответ 9955494

29.12.2016, 12:25. Показов 1406. Ответов 1

Метки (Все метки)

Сообщение было отмечено anastsv как решение

Решение

anastsv,

Pascal

VAR
a,b,x,y,d:real;
begin
a := 3.2;
b := 17.5;
x := -4.8;
y := b * Sin(x)/Cos(x) - a/sin(x/a)/sin(x/a);
d := Cos(b*x/a);
writeln('Y=',y:8:2);
writeln('D=',d:8:2);
readln; 
end.

Вернуться к обсуждению:
Вычислите значения переменных по заданным расчётным формулам Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.12.2016, 12:25

Готовые ответы и решения:

Вычислить значения переменных по заданным расчетным формулам
Вычислить значения переменных по заданным расчетным формулам и наборам исходных данных. На печать...

Вычислить значения переменных по заданным расчетным формулам
Вычислить значения переменных по заданным расчетным формулам и наборам исходных данных. Вывести...

Вычесть значения переменных по формулам
R(x)=a* cosx*cosx xmin=0,5 Xmax=2 Δ=0,1

	29.12.2016, 12:25

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.12.2016, 12:25

Помогаю со студенческими работами здесь

Вычислить значения переменных по заданным расчетным формулам
Вычислить значения переменных по заданным расчетным формулам и наборам исходных данных. Вывести...

Создать приложение, вычисляющее значения переменных по заданным расчетным формулам
Создать приложение, вычисляющее значения переменных по заданным расчетным формулам и наборам...

Вычислить значения переменных по заданным расчетным формулам и исходным данным
Вычислить значения переменных по заданным расчетным формулам и исходным данным:...

Создать приложение, вычисляющее значения переменных по заданным расчетным формулам
Уважаемые форумчане, програмиисты помогите написать программу :cry:

Наверх