Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 23.03.2019
Сообщений: 7
1

Заменить на нули числа, принадлежащие заданному отрезку, и на единицы - остальные

04.07.2019, 00:35. Показов 634. Ответов 1
Метки нет (Все метки)

Помогите, пожалуйста.
Даны три действительных числа x, y, z и отрезок [a, b]. Заменить на нули те из них, которые принадлежат отрезку и на единицы - остальные.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Даны три действительных числа х, у, z и отрезок [a, b]. Заменить на нули те из них, которые принадлежат отрезку и на единицы - остальные
Даны три действительных числа х, у, z и отрезок . Заменить на нули те из них, которые принадлежат...

Положительные числа матрицы не принадлежащие заданному отрезку заменить на ноль
Данная целочисленная матрица А (5, 4). В матрице А все положительные числа, которые не принадлежат...

Выберите числа, принадлежащие заданному отрезку (блок схема)
Даны три числа. Выберите те из них, которые принадлежат заданному отрезку .

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

1
2362 / 766 / 559
Регистрация: 15.01.2019
Сообщений: 2,383
05.07.2019, 12:31 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program Project1;
var
  x,y,z: real; // Переменные для хранения значения аргументов.
  a: real; // Переменная для хранения значения левой границы отрезка.
  b: real;  // Переменная для хранения значения правой границы отрезка.
begin
  Writeln('Введите значение аргумента X');
  Readln(x);
  Writeln('Введите значение аргумента Y');
  Readln(y);
  Writeln('Введите значение аргумента Z');
  Readln(z);
  Writeln('Введите значение левой границы отрезка A');
  Readln(a);
  Writeln('Введите значение правой границы отрезка B');
  Readln(b);
  if (x >= a) and (x <= b) then  // Проверка на принадлежность числа отрезку.
    x:= 0
  else
    x:= 1;
  if (y >= a) and (y <= b) then  // Проверка на принадлежность числа отрезку.
    y:= 0
  else
    y:= 1;
  if (z >= a) and (z <= b) then  // Проверка на принадлежность числа отрезку.
    z:= 0
  else
    z:= 1;
  writeln('X = ',x:0:1,', Y = ',y:0:1,', Z = ',z:0:1); // Вывод ответа на экран.
 
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2019, 12:31

Удалить все согласные буквы, принадлежащие отрезку латиницы, заданному границами
Вот програмка которая из текста удаляет все согласные буквы,принадллежащие отрезку...

Все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить на единицу
Даны натуральное число n, действительные числа а1,...,аn. В последовательности а1,..., аn все...

Все неотрицательные элементы массива, не принадлежащие отрезку, заменить на единицу
Сижу на практике,осталась 1 задача. Вообще внепонятия как ее решить. Хелп. Дан массив A из...

Все неотрицательные члены последовательности, не принадлежащие отрезку [1 .. 2], заменить на единицу
Даны натуральное число n , действительные числа a1,a2,....an. В последовательности a1,a2,....an все...

В последовательности все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить нулями
даны натуральное число n, действительные числа a1, a2 ...an. в последовательности a1, a2 ...an все...

Массив: В массиве все неотрицательные элементы, не принадлежащие отрезку (1:3) заменить на 1.
Дан массив из n действительных чисел. В последовательности все неотрицательные элементы, не...


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

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

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