Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal В двумерном массиве найти произведение чётных элементов последнего столбца 1) В двумерном массиве найти произведение чётных элементов последнего столбца 2)Наибольшее из 3-х различных значений переменных целого типа х,у и z уменьшить на 3. 3) f(x)=cos(4pix)/1+x*x Найти... https://www.cyberforum.ru/ turbo-pascal/ thread891968.html	Turbo Pascal Определить все возможные ходы ферзя, с поворотом доски на 180 градусов Здравствуйте! Задача состоит в следующем: дано поле 8*8, нужно определить все возможные ходы ферзя, с поворотом доски на 180 градусов. Помогите пожалуйста
Turbo Pascal оператор continue https://www.cyberforum.ru/ turbo-pascal/ thread891915.html Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, ... , 10 кг конфет. Нужно сделать через continue.	Turbo Pascal Вычисление величины сопротивления электрической цепи https://www.cyberforum.ru/ turbo-pascal/ thread891909.html 1.Написать программу вычисления величины сопротивления электрической цепи, состоящей из трех параллельно соединёных сопротивлений. Формула: a=103+(b/x+y2)+(b+sin2*pi4/cos3+\|ctgy\|) Помогите...
Turbo Pascal Прокомментировать код Есть программа Program StringCount; Uses Crt; Var i : integer; s : string; f : text; Begin ClrScr; readln(s); assign(f, s); reset(f); i := 0;	Turbo Pascal разрядность числа https://www.cyberforum.ru/ turbo-pascal/ thread891875.html Помогите, задали определить разрядночть числа через подпрограмму функции. Обычное определение разрядности нашел, а как сделать через функцию, вообще не понимаю.
Turbo Pascal Найти среднее арифметическое отрицательных элементов одномерного вещественного массива https://www.cyberforum.ru/ turbo-pascal/ thread891869.html Выдаёт арифметическое переполнение, что сделать то? само условие: Найти среднее арифметическое отрицательных элементов одномерного вещественного массива(если отрицательных нет-вывести сообщение) Код...	Turbo Pascal Разработка програмного модуля Прошу помощи, товарищи. Дали задание, а я представления не имею с чего начать. Есть добрые люди? Разработка программного модуля «Конвейер» Имеется сводка о простоях конвейера с начала месяца по...
Turbo Pascal рекурсия вывод чисел две программы {1}function d(a:integer):integer; begin if a=0 then exit else d:=d(a-1); write(a,' '); end; {2}function d(a:integer):integer; https://www.cyberforum.ru/ turbo-pascal/ thread891852.html	Turbo Pascal надо написать программу!Отблагодарю.В текстовом файле хранится база отдела кадров предприятия.На предприятии N сотрудников https://www.cyberforum.ru/ turbo-pascal/ thread891831.html В текстовом файле хранится база отдела кадров предприятия. На предприятии N сотрудников. Каждая строка файла содержит запись об одном сотруднике: фамилия и инициалы, год рождения, оклад. Написать...
Turbo Pascal Задача со списками, меняем местами эелементы Принес сегодня на сдачу задачу со списками, все работало и сделано правильно, по условию a1,a3,a2,a4,a5,..,an при вводе 1,2,3,4,5 выводила 1,3,2,4,5. Препод сказал, что я понял не так задачу,...	Turbo Pascal Двумерные массивы. Найти сумму положительных элементов последней строки Помогите :) А то сам не разбираюсь в этом... Найти сумму положительных элементов последней строки. https://www.cyberforum.ru/ turbo-pascal/ thread891766.html

newyork7776

351 / 344 / 279

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

Сообщений: 1,312

06.06.2013, 08:48

Найти сумму вычисленных значений функции - Turbo Pascal - Ответ 4678294

06.06.2013, 08:48. Показов 1227. Ответов 2

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

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

Решение

Pascal

program progrramka;
uses crt;
var a,b,k,f:real;
begin
write('Enter start = ');readln(a);
write('Enter finish = ');readln(b);
Write('Enter X = ');readln(k);
While (a<=b) do
begin
f:=(5*(1-exp(-0.5*a))*cos(2*pi*a));
a:=(a+k);
Writeln('Answer = ',f:2:4);
end;
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.06.2013, 08:48

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

Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2
Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2....

Среди вычисленных значений функции найти наибольшее и наименьшее значения
Не знаю как ввести большее или меньшее в задачу • среди вычисленных значений функции найти...

Рассчитать значения функции согласно своему варианту. Предусмотреть сохранение в памяти вычисленных значений
d=\ln\left|x+\sin {x}^{4} \right| при x {0.75; -3.1; 21; -1.7; 3} Количество и произведение...

Найти сумму значений функции f(x), абсолютная величина целой части которых < 1
F(x)=sin(Px)*cos(Px) Найти сумму значений функции f(x), абсолютная величина целой части которых...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.06.2013, 08:48

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

Процедуры и Функции. Найти сумму наибольших значений элементов строк матрицы
Ребятки, помогите пожалуйста, нужно Составить подпрограммы для решения следующих задач (именно...

Вывести на экран таблицу вычисленных значений Y при изменении Х
Вывести на экран таблицу вычисленных значений Y при изменении Х в интервале с шагом h=0.2, а...

Найти сумму вычисленных значений функции
1.F(x)=(cos4*3.14*x)/1 +x*x Найти сумму вычисленных значений функции f(x), дробная часть которых >...

Найти произведение вычисленных значений функций
Найти произведение вычисленных значений функций f(x), дробная часть которых < 0,5....

Наверх