Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*.*(1/sin1+sin2+.+sinN) https://www.cyberforum.ru/ pascal/ thread2150589.html
Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*...*(1/sin1+sin2+...+sinN) Помогите пожалуйста с программой var s, ssin: real; i, n: integer; begin readln(n);ssin := 0;s := 1; for i := 1 to n do begin ssin := ssin + sin(i);s := s * 1 / ssin;
Лотерея Pascal
Доброго времени суток. Нужно написать программу лотереи, которая работает по следующему принципу: допустим конечная сумма равна N. Участники (a, b, c, ...) переводят деньги на счет, тем самым становясь потенциальными победителями. В программу их можно вписывать. Вероятность выиграть прямо пропорциональна значению переведенной суммы, то есть чем больше переведено тем выше вероятность выигрыша в...
Pascal ПЕРЕВОД дробных чисел из одной системы счисления в другую. СПОСОБЫ ВНУТРЕННЕГО представления чисел с фиксированной точк 2) Создать блок-схему алгоритма программы перевода правильных дробей из одной системы счисления в другую по заданному варианту. 3) проанализировать текст Паскаль-программы в файле lab2.pas и определить ее назначение. 4) Скомпилировать программу и запустить на выполнение. 5) Подставить собственные входные значения и проанализировать результаты работы программы. 8 2 uses crt; var... https://www.cyberforum.ru/ pascal/ thread2150560.html Pascal Для функции, заданной графически, определить у при заданном значении x Для функции, заданной графически, определить у при заданном значении x. https://www.cyberforum.ru/ pascal/ thread2150320.html
Pascal Найти максимальный элемент массива
Найти максимальный элемент массива D (4,4) среди элементов, расположенных выше главной диагонали, и индексы минимального элемента среди элементов, расположенных на побочной диагонали.(если можете,то составьте пожалуйста блок схему)
Pascal Найти количество элементов массива https://www.cyberforum.ru/ pascal/ thread2150309.html
Дан массив a, заполненный с помощью случайных целых чисел. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и вывести на экран их номера.(если можете,то составьте пожалуйста блок схему)
Pascal Вычислить: S =(1-1/2^2)*(1- 1/3^2)* . *(1-1/n^2) , где n>2 Дано натуральное n. Вычислить: S =(1-1/2^2)*(1- 1/3^2)* ... *(1-1/n^2) , где n>2 https://www.cyberforum.ru/ pascal/ thread2150134.html Pascal Вычислить сумму ряда
Дано натуральное n. Вычислить: S =(1-1/22)*(1- 1/32)* ... *(1-1/n2) , где n>2
Pascal Опишите алгоритм подсчета максимального количества подряд идущих элементов Опишите алгоритм подсчета максимального количества подряд идущих элементов, каждый из которых меньше предыдущего в целочисленном массиве длины 20. https://www.cyberforum.ru/ pascal/ thread2149380.html Pascal Вывести на экран случайные из заданных чисел привет привет научите, как вывести случайные числа из массива. ну например я задал массив с клавиатуры и теперь хочу вывести на экран случаные из заданых мною чисел. это могут быть 1, 8, 7 , 3 допустим хочу, чтобы эти числа были выведены случайно. random как то неп подходит вроде https://www.cyberforum.ru/ pascal/ thread2149376.html
Как сделать так, чтобы размерность массива было от 1 до N Pascal
как сделать так, чтобы размерность массива было от 0 до N(N нужно будет задать с клавиатуры)? Добавлено через 6 минут * от 1 до N
Pascal Сформировать новый массив, состоящий из противоположных соответствующих элементов матрицы https://www.cyberforum.ru/ pascal/ thread2149125.html
Дан целочисленный двумерный массив, размерности n х m. Сформировать новый массив, состоящий из противоположных соответствующих элементов .
0 / 0 / 0
Регистрация: 02.12.2017
Сообщений: 10
0

Не работает програма - Pascal - Ответ 11916607

05.12.2017, 23:32. Показов 483. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
Program lab8;
var a,y:real;
function Sh(x:real):real;
begin
Sh:=(exp(x)-exp(-x))/2;
end;
Begin
write('Ввод значения х: '); readln(a);
writeln(y);
end.

Что нужно изменить чтобы програма работала,выводила данные?

Вернуться к обсуждению:
Не работает програма Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2017, 23:32
Готовые ответы и решения:

Програма вроде написаная правельно, но не работает
Есть програма, которая должна удалять символи до первой точки в определеном символьном ряде....

Не работает програма
Код #include <iostream> #include <stdio.h> #include <math.h> using namespace std; int main ()...

Не работает програма в делфи!
Подкорректируйте програму, очень надо скоро курсач сдавать! не работает поиск!

Простая програма, не работает
Вот что нужно сделать: http://i.**********/2dbeHLo.png Вот что сделал я: #include <iostream>...

1
05.12.2017, 23:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2017, 23:32
Помогаю со студенческими работами здесь

Работающая на С++ програма, не работает на С
Программа на С++ #include <iostream> #include <math.h> #define PI 3.141592654 using namespace...

Неправильно работает програма с fscanf
Всем доброго времени суток. Задание прочитать файл и вывести все ведомости про курсы, в которых не...

консольная програма, но ка сделать чтоб програма выполнялась, а консоль не открывалась??
Есть консольная програма, что недо убрать что добавить? чтоб програма выполняла свою функцию но...

Програма не работает полностью(((в чём ошибка?
Написал програму для возведения числа в степень, не работает для дробных чисел и отрицательных...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru