Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Прокоментировать програму https://www.cyberforum.ru/ turbo-pascal/ thread892267.html Можене закоментить каждую стручку в программе, а то мне ее написали, а я не понимаю что там написано. program sound_wav; uses crt; const ssize=16; af=1; numch=1; sr=16; sampR=16000; bps=16;	Turbo Pascal Дан двумерный массив. Найти строку, в которой сумма модулей элементов максимальна и заменить ее все остальные строки Дан двумерный массив. Найти строку, в которой сумма модулей элементов максимальна и заменить ее все остальные строки.
Turbo Pascal Расчет движения графического объекта на плоскости https://www.cyberforum.ru/ turbo-pascal/ thread892235.html Расчет движения графического объекта на плоскости, заданного координатами угловых точек: - линейное перемещение; - вращение объекта вокруг заданного центра на заданный угол. Скажите пожалуйста,...	Turbo Pascal Ввести и вывести данные всех стандартных типов https://www.cyberforum.ru/ turbo-pascal/ thread892231.html Ввести и вывести данные всех стандартных типов (по 3-и каждого типа). Вывод для каждого типа озаглавить. Пример: Целые: 5,6,10 и т.д Помогите пожалуйста. Если понадобится отблагодарю
Оформить сортировку в виде процедуры, среднее в виде функций Turbo Pascal Была прога program Sortirovka; uses Crt; var a: array of char; min: char; sred: real;	Turbo Pascal Блок схема https://www.cyberforum.ru/ turbo-pascal/ thread892179.html Помогите пожалуйста блок схему сделать вот код program zadacha9; var a:array of integer; b,c,d,e,n,i,j,z:integer; fl:text; l:longint; begin assign(fl,'D:\45\qwe.txt'); rewrite(fl);
Turbo Pascal запись в файл Организовать типизированный файл целых чисел F, состоящий из N компонент.после этого организовать файлы G и H. В файл G записать все четные числа из файла F, а в H все нечетные.вывести на экран... https://www.cyberforum.ru/ turbo-pascal/ thread892138.html	написать программу для вычисления суммы ряда( через команду :"while") Turbo Pascal День добрый, помогите пожалуйста "Написать программу вычисления суммы ряда: sin(x)+sin(x^2)+sin(x^n). Значения чисел "N" и "x" вводить с клавиатуры, при значении "n=0" - выход из программы. ЗЫ Знак...
Turbo Pascal написать программу для вычисления суммы ряда( через команду :"repeat") https://www.cyberforum.ru/ turbo-pascal/ thread892131.html День добрый, помогите пожалуйста "Написать программу вычисления суммы ряда: (x-1)+(x-3)+...(x-n). Значения чисел "N" и "x" вводить с клавиатуры, при значении "n=0" - выход из программы. ЗЫ Знак...	Turbo Pascal Шифр монофонической замены https://www.cyberforum.ru/ turbo-pascal/ thread892069.html Нужно написать программу, которая будет осуществлять шифрование и дешифрование методом монофонической замены. с условием, что каждая буква зашифровывается по таблице А Б В Г Д Е Ж З И Й К Л М Н О...
Turbo Pascal Turbo Pascal 3. Задача Имеется месячный табель выхода на работу N работников отдела. Требуется найти: а) общее число человеко-дней по отделу; б) число работников, отработавших менее 15 дней; в) долю...	Turbo Pascal натуральное число в записи которого n цифр https://www.cyberforum.ru/ turbo-pascal/ thread892031.html задача : натуральное число в записи которого n цифр,называется числом Армстронга,если сумма его цифр, в степень n , равна самому числу.Найти все числа Армстронга от 1 до k. Через функции.

CodeR

Фрилансер

3417 / 2814 / 3000

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

Сообщений: 8,518

Записей в блоге: 1

06.06.2013, 09:40

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

06.06.2013, 09:40. Показов 2621. Ответов 3

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

Ответ

Pascal

Var xn,xk,x,s,y:real;
Begin
    write('Отрезок изменения x: ');readln(xn,xk);
    x:=xn;
    While x<=xk do
    Begin
      y:=(1-exp(-x))*sin(4*pi*x);
      if trunc(y) mod 2 = 0 then s:=s+y;
      x:=x+0.1;
    End;
    writeln('Сумма = ',s:0:2);
    readln;
End.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.06.2013, 09:40

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

Переписать в другой файл те числа, целая часть которых кратна 3
Заполнить файл с вещественными числами из отрезка .Переписать в другой файл те числа,целая часть...

Минимальное значение среди значений функции, целая часть которых является четным числом
Что нужно добавить или поправить Составьте программу, которая строит таблицу значений функции...

Найти сумму вычисленных значений функции, имеющих дробную часть
2 задача:y=e^-2x*Cos^2*(2Пx-30градусов).Найти сумму вычисленных значений функции,имющих дробную...

Все те числа, в которых целая часть кратна 4, выделить цветом
В одномерный массив A размерности N при помощи датчика случайных чисел вводятся действительные...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.06.2013, 09:40

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

Определить количество элементов массива, целая часть которых кратна 7
Составить программный код решения задачи для заданного массива X. Определить количество элементов...

Минимальное значение среди значений функции, целая часть которых является четным числом
Составьте программу, которая строит таблицу значений функции x3+5x2+x-10sin(5x)-1. Количество...

Найти сумму вычисленных значений функции
Найти сумму вычисленных значений функции f(x). Задание: 1. Из таблицы выбрать вариант задания....

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

Наверх