Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Stiget
0 / 0 / 0
Регистрация: 29.01.2016
Сообщений: 1
1

Модифицировать число по заданному условию

29.01.2016, 14:01. Просмотров 896. Ответов 1
Метки нет (Все метки)

Разветвляющиеся вычислительные процессы

Ввести целые числа X и Y и действительное число Z . Модифицировать число Z по формуле Z /k , если X не делится на Y и Z *k в противном случае. ( k - остаток от деления X на Y )

Пожалуйста срочно помогите. Если будет не тяжело с блок-схемой.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.01.2016, 14:01
Ответы с готовыми решениями:

Вывод массива по заданному условию
нужно ввести массив одномерный, а потом сделать так чтобы на экране отобразился сам массив а под...

Расчет переменной по заданному условию
Вводится любое кол-во вариантов наборов H (0<=H<26000). Рассчитать Т. T=216.6+0.0065*H (если...

Изменить матрицу по заданному условию
Дана действительная матрица C(n*m) если последняя строка данной матрицы содержит нулевые элементы,...

Сформировать текстовый файл по заданному условию
Написать программу , формирующую текстовый файл t из 9 строк, в первой из которых один символ '1',...

Найти члены последовательности по заданному условию
Дано число D (> 0). Последовательность чисел AN определяется следующим образом: A1 = 2, AN = 2 +...

1
YakobsEA
268 / 96 / 75
Регистрация: 04.12.2015
Сообщений: 369
Записей в блоге: 1
29.01.2016, 15:28 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program lab6;
var X, Y: integer;
var Z: real;
begin
 
// Инициализация
writeln('Ввелите Х');
read(X);
writeln('Ввелите Y');
read(Y);
writeln('Ввелите Z');
read(Z);
 
// Пересчёт Z
if(X mod Y <> 0 ) then Z := Z/(X mod Y)
else Z := 0;  // Т.к. остаток от деления 0, то Z := Z * 0 всегда даст 0
 
// Вывод результатов
writeln('Z = ', Z);
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2016, 15:28

Произвести заданные действия с матрицами по заданному условию
Процедуры и функции(матрицы) Прошу помочь. Написала код до подсчета произведения элементов...

действия с членами заданной последовательности по заданному условию
Помогите исправить ....как можно проще . (Пусть даны натуральное число n, целые числа...

Вывести на экран значения функции по заданному условию
составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru