Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Посчитать сумму https://www.cyberforum.ru/ free-pascal/ thread2114009.html Дан набор чисел, количество чисел в наборе равно N<=24. Также дано число R. Необходимо определить, может ли сумма нескольких чисел в наборе(может даже всех) дать число R. input.txt содержит в себе на первой строчке N и R через пробел. На второй строчке набор чисел через пробел. Необходимо вывести в output.txt сумму нужных чисел(x1+x2+x5+x8), либо 'No solution', если решений нет. Вот код,...	Вывести длину отрезка прямой внутри окружности Free Pascal Окружность и прямая Имеется окружность радиуса R с центром в (x,y) и прямая, заданная координатами двух своих точек. Какой длины отрезок прямой лежит внутри окружности? Входные данные Радиус окружности R, координаты центра окружности (x,y) и координаты двух точек прямой. Все числа целые, не превышающие 10000 по модулю. Выходные данные
Free Pascal Множественные типы данных По заданию с клавиатуры вводится имя, фамилия и номер абонента. Необходимо сформировать отдельные каталоги, в которых абоненты будут отсортированы по номеру ATC97 и ATC93. Программа исправно работает до вывода результатов. Но номера упорядоченные не выводит. Код: program laba; uses crt; //modyl' dlya aktuvacii komandu ochushchennya ekrany const n=3; ... https://www.cyberforum.ru/ free-pascal/ thread2113358.html	Free Pascal Что не так с программой? Вот моя программа (Pascal): var s:string; st:array of char; i,v,t:longint; begin v:=0; readln(s); t:=0; i:=0; https://www.cyberforum.ru/ free-pascal/ thread2113112.html
Free Pascal Установка клавиш Циклически заполняя строки выводить на экран свои данные: фамилию и имя. Вывод осуществляется дальше, если на запрос пользователь нажимает клавишу «Y» и прекращается по нажатии клавиши «N». Установить эффекты мерцания и изменения цвета при каждом новом выводе. С помощью каких команд осуществить "Вывод осуществляется дальше, если на запрос пользователь нажимает клавишу «Y» и прекращается по...	Free Pascal Подобие треугольников Здравствуйте. Помогите, пожалуйста, доработать программу. Проходит на 60%. Заданы два треугольника: ABC и DEF. Необходимо определить, являются ли они подобными. Входные данные Первая строка содержит координаты вершин треугольника ABC: xA, yA, xB, yB, xC, yC. Вторая строка содержит в аналогичном формате координаты вершин второго треугольника. Все числа целые и не превосходят 5000 по... https://www.cyberforum.ru/ free-pascal/ thread2112982.html
Free Pascal Посчитайте количество носов Папа Карло делал Буратино всю свою жизнь. Он сделал десятки, сотни или, может быть, тысячи красивых и хорошо одетых мальчиков с длинными носами. У папы Карло в сарае была куча деревянных палочек, которых он держал для будущих носов. В минувшую пятницу папа Карло получил срочный заказ на производство партии Буратино с одинаковыми носами. Он решил использовать все свои деревянные палочки для... https://www.cyberforum.ru/ free-pascal/ thread2112638.html	Free Pascal Булевы типы Free Pascal также поддерживает типы ByteBool, WordBool и LongBool. Они имеют тип Byte, Word и Longint, но являются совместимыми с переменными булевого типа: False (Ложь) эквивалентна нулю (0 - нуль), и любое ненулевое значение считается True (Истиной) при преобразовании в булево значение. Булево значение True преобразовывается в –1 в случае, если оно присвоено переменной типа LongBool. Почему...
Free Pascal Заменить элементы заданного массива на значение k , если они меньше этого значения. Подсчитать количество замен https://www.cyberforum.ru/ free-pascal/ thread2111277.html Заменить элементы заданного массива на значение k , если они меньше этого значения. Подсчитать количество замен.	Free Pascal Реализация списка на основе массива нужно сделать список на основе массива сделал вот эту программу не работает как надо (ясно что много ошибок ) помогите проблема скорее всего со сдвигом вот только понять не могу program project1; const n=5; var https://www.cyberforum.ru/ free-pascal/ thread2110960.html
Найти все четные отрицательные элементы и заменить их на модуль этого значения Free Pascal Дан массив, состоящий из 20 элементов - случайных целых чисел из диапазона от -30 до 30, вывести значения элементов массива на экран в столбец. Найти все четные отрицательные элементы и заменить их на модуль этого значения. Полученный массив вывести на экран. Найти минимальное значение элементов в полученном массиве.*Определить индексы этих элементов и вывести их на экран. Отсортировать массив...	Free Pascal Написать программу 19,39,59 Нужно написать программу в free pascal.19,39,59 примеры. https://www.cyberforum.ru/ free-pascal/ thread2110142.html

Puporev

Почетный модератор

64300 / 47595 / 32743

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

Сообщений: 115,181

01.11.2017, 14:16

Не правильно считается Sin(x) - на проге одно н калькуляторе другое - Free Pascal - Ответ 11673819

01.11.2017, 14:16. Показов 827. Ответов 9

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

Ответ

Pascal

var u:real;
begin
write('Угол в градусах u=');
readln(u);
writeln('синус=',sin(u*pi/180):0:3);
end.

Вернуться к обсуждению:
Не правильно считается Sin(x) - на проге одно н калькуляторе другое Free Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

01.11.2017, 14:16

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

при вычислении выражении - одно значение,а в калькуляторе другое!
есть,самое простое выражение: 21/5*3 но на калькуляторе будет - 21/5=4.2(логично?) и умноженное...

С моим кодом что-то не так! на калькуляторе одно число,а в программе другое(
вот код программы,я только учусь,через неделю олимпиаду писать, так что выручайте)) #include...

На калькуляторе 0, но php выводит совсем другое
Есть кусок кода: $tmp = 2.8/4.8; $tmp = -$tmp; $tmp *= 4.8; $tmp += 2.8; echo $tmp; ...

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y>0.01 do begin ...

	01.11.2017, 14:16

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

01.11.2017, 14:16

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

Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4
1)Вычислить y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4 ...

Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ., меньшее по модулю 10-4
Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ..., меньшее по модулю 10-4 Видел...

Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x
Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x (n раз).

Рассчитать функцию y=sin(sin(sin(…(sin(x))))), в которой имя функции «sin» повторяется n раз.
1. Вычислить элементы последовательности, используя рекурсию. L0(x)=1, L1(x)= +1-x,...

Наверх