Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Вычислить определённый интеграл методом трапеций 2. Вычислить на ПК значение интеграла на заданном отрезке .Число разбиений отрезка интегрирования и численный метод интегрирования задан в таблице 2. F(x)=x^2-4x+8-функция (6;8)-отрезок 150-число разбиений Методом трапеций Паскаль,пожалуйста помогите https://www.cyberforum.ru/ pascal/ thread2344302.html Pascal Протабулировать функцию
1. Вычислить значения функций F(x) на отрезке с шагом h=(b-a)/n, заданных в таблице 1. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующее значение функции. F(x)=x^2-sin⁡x значения:a,b,n=-п/4,п/4,15 соответственно На Паскале Плез
Pascal Работа с файлами. Даны результаты переписи населения https://www.cyberforum.ru/ pascal/ thread2343941.html
1) Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 г.(Сделать с использованием внешнего файла с названием dan.dat(В этом файле нужно записать Фамилии Имя и Года рождения, а после ввести данные из файла в программу)).
Pascal Составить блок-схему нахождения суммы https://www.cyberforum.ru/ pascal/ thread2343691.html
Помогите пожалуйста: "Составить блок-схему нахождения суммы (произведения) двух квадратных матриц размером 2х2"
Pascal Вычислить значение интеграла на заданном отрезке [a, b] методом левых прямоугольников
Вычислить значение интеграла на заданном отрезке методом левых прямоугольников. Формула:F(x)=(6x2-2x+5)ln(x-1) Отрезок: (0;2) Число разбиений: 100
Pascal Центрирование можете пожалуйста рассказать что такое центрирование , если у меня есть файл со строками перед которыми стоят побелы , центрировать это удалить пробелы и выстроить по нарастающей длине ? подскажите , буду благодарен ;) https://www.cyberforum.ru/ pascal/ thread2343640.html
Pascal Поменяйте местами выбрано два элемента массива https://www.cyberforum.ru/ pascal/ thread2343555.html
Поменяйте местами выбрано два элемента массива.
Pascal Составление программы, содержащей число на вершине треугольника
В строке написаны целые числа. Над каждой из двух соседних цифр пишется их сумма. Над каждой из двух новых цифр снова пишется их сумма. Оно продолжается до одного числа (см. пример). Составление программы, содержащей число на вершине треугольника. пример 19 7 12 3 4 8 ...
Pascal Составить блок-схему сортировки одномерного массива по возрастанию https://www.cyberforum.ru/ pascal/ thread2343533.html
Помогите: "Составить блок-схему сортировки одномерного массива по возрастанию".
Pascal Найти минимум сумм заданных элементов массива https://www.cyberforum.ru/ pascal/ thread2343115.html
Дан массив случайных чисел. Вывести и найти MIN(A1+A3, A5+A7) Задание по информатике, помогите с решением
Вывести четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева Pascal
Адрес электронной почты удален. Линейные алгоритмы. Задача 2.5 Дано натуральное трехзначное число N. Составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч). Формат входных данных Входной файл содержит целое трехзначное число 101≤N≤999. Гарантируется, что число не имеет концевых нулей....
Pascal Задание с блок-схемами https://www.cyberforum.ru/ pascal/ thread2342815.html
Здравствуйте. Стыдно, но прошу помощи. Нужно сделать блок-схему с такими условиями: 1) Найти произведение ряда S = 15*16*17*...*n 2) Определить максимальный элемент побочной диагонали массива A размерностью mхm и вывести индексы всех элементов массива, равных ему. Кто-нибудь может помочь?
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
02.11.2018, 17:17 0

Вычислить обратные значения тех чисел, значения которых не равны нулю, остальные оставить без изменения - Pascal - Ответ 13024948

02.11.2018, 17:17. Показов 1813. Ответов 7
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  x, y, z: real;
 
begin
  readln(x, y, z);
  if x <> 0 then
    x := 1 / x;
  if y <> 0 then
    y := 1 / y;
  if z <> 0 then
    z := 1 / z;
  writeln(x, y, z);
end.


Вернуться к обсуждению:
Вычислить обратные значения тех чисел, значения которых не равны нулю, остальные оставить без изменения Pascal
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2018, 17:17
Готовые ответы и решения:

Вычислить обратные значения тех из тех чисел, значения которых не равны нулю
Даны три числа x y z.Вычислить обратные значения тех из них, значения которых не равны нулю ,...

Подсчитать произведение чисел, значения которых не равны нулю, для последовательности из трех чисел, произвольно задаются.
Подсчитать произведение чисел, значения которых не равны нулю, для последовательности из трех...

Дано одномерный массив В, состоящий из 12 элементов. Вычислить произведение элементов массива, не равны нулю, значения которых наход. в пределах А и С
Помогите пожалуйста с задачкой Дано одномерный массив В, состоящий из 12 элементов. Вычислить...

Подсчитать количество элементов одномерного массива, значения которых равны нулю
Подсчитать количество элементов одномерного массива, значения которых равны нулю. Размерность...

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

Удалить те строки и столбцы матрицы, в которых значения главной диагонали равны нулю
Дана квадратная матрица порядка n. Как строки со столбцами удалять из матрицы?

Вычислить сумму квадратов тех чисел, модуль которых больше значения 2.5
Вычислить сумму квадратов тех чисел, модуль которых больше значения 2.5 Размер массива 10 Ввиде...

Во всех последовательностях чисел ограничить снизу значения тех элементов, значения которых меньше среднего
Для массива размерностью 100 элементов и диапазоном значений от 100 до -100 нужно во всех...

Элементы, у которых сумма номеров строки и столбца четные оставить без изменения, а остальные разделить на максимальный по модулю элемент строки
Дана матрица M x N. Элементы, у которых сумма номеров строки и столбца четные оставить без...

Если (x+y+z) > 10, то умножить на 10 наименьшее из x, y, z. Иначе значения x, y, z оставить без изменения
Помогите пожалуйста с кодом Даны три числа x, y, z. Если (x+y+z) &gt; 10, то умножить на 10...

Подсчитать произведение чисел, значения которых не равняются нулю
Я знаю вам не сложно, а мне очень очень нужно!!! Пожалуйста помогите!!! 1. Составить блок-схему...

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