PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Делаю чат, переделываю исходник https://www.cyberforum.ru/ pascalabc-net/ thread2205853.html Вот откуда код https://www.cyberforum.ru/pascalabc-net/thread1349154.html Переделываю сервер, вместо командной строки хочу сделать winforms, как выводить сообщения в textbox1, каждую в новую строку? Unit Unit1; interface uses System, System.Drawing, System.Windows.Forms, System.Net, System.Net.Sockets, System.IO, System.Threading;	Напишите программу, которая вычисляет значение арифметического выражения, записанного в постфиксной форме PascalABC.NET Напишите программу, которая вычисляет значение арифметического выражения, записанного в постфиксной форме. В выражении используются только целые числа, знаки арифметических операций и вызовы функций abs , sin , cos и sqrt . Знак '/' обозначает обычное деление (результат – вещественное число). Входные данные На вход программы подаётся символьная строка, которая содержит запись арифметического...
PascalABC.NET Дано натуральное число, верно ли, что количество его цифр есть чётное число Никак не могу додуматься. Нужно через count while и div https://www.cyberforum.ru/ pascalabc-net/ thread2205588.html	PascalABC.NET Найти максимальную компоненту файла https://www.cyberforum.ru/ pascalabc-net/ thread2205513.html Создать файл F вещественных чисел. Найти максимальную компоненту файла и записать ее в конец файла. Сформировать файл H, записав в него каждую вторую компоненту файла F.
PascalABC.NET Доделать программу. Нужно, после кнопки "построить" открывалась графическая форма ,где можно построить график. желательно с примером графика уже в коде. uses FormsABC;//Включение форм uses System.Windows.Forms, System.Drawing; var//Включение форм m0:= new Space (30);//отступ m:= new TextLabel('Введите в поле высоту с которой бросают тело, если же тело бросают с земли оставьте поле "Введите начальную...	PascalABC.NET Диапазон элементов матрицы https://www.cyberforum.ru/ pascalabc-net/ thread2205343.html Доброго времени суток! Имеется код (алгоритм параллельного и последовательного умножения матриц + вывод времени выполнения). Как задать случайные числа в диапазоне от 4 до 10? Пример матрицы: 5 8 10 4 9 5 8 5 7 uses Arrays; {$omp parallel for} procedure ParallelMult(a,b,c: array of real; n: integer);
PascalABC.NET События в обобщенном типе type T1<T> = class event E1: procedure; procedure TryE1(); begin if E1 <> nil then E1(); end; end; https://www.cyberforum.ru/ pascalabc-net/ thread2205238.html	PascalABC.NET ИИ бот для шахмат Есть ли где-нб ИИ бот для шахмат?? Если нет, то как его сделать, с чего начать?
*PascalABC.NET Найти наименьший положительный корень уравнения. x^3 = 1.75x - 0.75** Добрый день! :) Задание. Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75 Корень уравнения должен быть найден с точностью E = 10^-4 . Для каждого метода вывести найденный приближенный корень E' и значение f ( E' ). Помогите пожалуйста,как решать, натолкните на мысль. https://www.cyberforum.ru/ pascalabc-net/ thread2205086.html	PascalABC.NET Класс TProperty - преобразование к object https://www.cyberforum.ru/ pascalabc-net/ thread2205051.html Почему когда TProperty<T> реализует интерфейс IEquatable<TProperty<T>> вылетает ошибка компиляции, когда нет - все нормально? ///Предоставляет данные аргументов событий. unit Events; type ///Главный класс аргументов событий. TEventArgs = class private _Description: string;
Ошибка запуска PascalABC.NET Почему не работает когда подключаю модуль MaterialsAndProperties: uses BaseGraphicsSystem, MaterialsAndProperties; begin (new TMaterialInfo(clBlack, TBrushStyleType.bsSolid, THatchStyle.BackwardDiagonal)).Println(); end. ? Если код: ///Предоставляет данные аргументов событий. unit Events;	PascalABC.NET Ребус: VOLVO+FIAT=MOTOR, используя тип "Множество" https://www.cyberforum.ru/ pascalabc-net/ thread2204915.html Ребус: VOLVO+FIAT=MOTOR. Каждая буква – это цифра, разным буквам соответствуют разные цифры. Необходимо заменить буквы цифрами так, чтобы получилось верное равенство. Найти все решения (если есть несколько ). ИСПОЛЬЗОВАТЬ ТИП «МНОЖЕСТВО». помогите, пожалуйста отыскать ошибку в коде (или предложите свой вариант решения). Моя программа ошибки не выдает, но и решения тоже (а их должно быть 10 шт.)....

мороженко

0 / 0 / 0

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

Сообщений: 5

Минимальное значение среди значений функции, целая часть которых является четным числом - PascalABC.NET - Ответ 12186690

05.03.2018, 18:57. Показов 1431. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Составьте программу, которая строит таблицу значений функции x³+5x²+x-10sin(5x)-1. Количество строк в таблице n, начальное значение аргумента и шаг изменения аргумента step вводятся программистом. В каждой строке должно выводиться значение аргумента и соответствующее ему значение функции с 4 знаками после запятой.

После таблицы в соответствие с номером варианта (данные порядкого номера из журнала группы) должно быть выведено следующее: Минимальное значение среди значений функции, целая часть которых является четным числом.
Помогите пожалуйста, после таблицы должно выводить, но почему-то не получается.
Код:

Pascal

function minimum(var min, t: integer): integer;
begin
  if (t mod 2 = 0) then 
  begin
    if min = 0 then min := t;
    if t < min then min := t;
    minimum := t;
  end;
end;
 
var
  i, n, t, min: integer;
  x, y, step: real;
 
begin
  min := 0;
  write('количество строк n = ');
  readln(n);
  write('значение аргумента x = ');
  readln(x);
  write('шаг = ');
  readln(step);
  for i := 1 to n do
  begin
    y := (sqr(x) * x) + 5 * sqr(x) + x - 10 * sin(5 * x) - 1;
    write('x=', x);
    writeln('  y=', y:0:4);
    x := x + step;   
    t := trunc(y);
    writeln('min= ', minimum(min, t));
  end;
end.

Вернуться к обсуждению:
Минимальное значение среди значений функции, целая часть которых является четным числом PascalABC.NET

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

05.03.2018, 18:57

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

Написать программу, которая высчитывает количество четных чисел, не превышающих заданного значения, сумма цифр которых также является четным числом.
Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода...

Определить является ли сумма элементов массива, значение которых меньше 8, четным числом
Здравствуйте. Как правильно оформить задание? Вот условия "Дан массив из 10 целых чисел заполненный...

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

Найти количество элементов, сумма которых является четным числом
Дана целая квадратная матрица порядка n. Найти количество элементов, сумма которых является четным...

	05.03.2018, 18:57

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

05.03.2018, 18:57

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

Максимальное значение среди значений функции, имеющих дробную часть, большую 0.4
Максимальное значение среди значений функции, имеющих дробную часть, большую 0.4....

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

Определить количество элементов массива, в которых сумма первой и последней цифр является четным числом
дан массив a(n). определить количество элементов массива , в которых сумма первой и последней цифр...

Определять номера, образующие вторую пару, для которых одно из чисел является четным числом, а второе нечетным
Несколько школьников выстроились в шеренгу. Для каждого школьника известен его день рождения....

Наверх