Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal метод QuickSort Отсортировать методом QuickSort односвязный список, содержащий целые числа, меняя указатели (без обмена самими значениями). https://www.cyberforum.ru/ turbo-pascal/ thread1730816.html Turbo Pascal Найти слова, состоящие из минимального и максимального количества символов
Составить программу ввода и обработки текста из нескольких предложений согласно заданию. При этом считать, что число предложений и число строк могут не совпадать, каждое слово находится целиком в одной строке, ввод строки завершается нажатием клавиши ENTER, точка – конец предложения. Из слов, входящих в предложение (предложения) максимальной длины найти слова, состоящие из минимального и...
Turbo Pascal Вывести на экран количество символов, обозначающих арифметические операции https://www.cyberforum.ru/ turbo-pascal/ thread1730781.html
Вводится строка. Программа выводит на экран количество символов, обозначающих арифметические операции: «+», «-», «*», «/». Опишите функцию CalcOp. var s: string; ...
Turbo Pascal Стек с защитой https://www.cyberforum.ru/ turbo-pascal/ thread1730765.html
Реализуйте структуру данных "стек". Напишите программу, содержащую описание стека и моделирующую работу стека, реализовав все указанные здесь методы. Программа считывает последовательность команд и в зависимости от команды выполняет ту или иную операцию. После выполнения каждой команды программа должна вывести одну строчку. Возможные команды для программы: push n Добавить в стек число n...
Реализуйте структуру данных "стек" Turbo Pascal
Реализуйте структуру данных "стек". Напишите программу, содержащую описание стека и моделирующую работу стека, реализовав все указанные здесь методы. Программа считывает последовательность команд и в зависимости от команды выполняет ту или иную операцию. После выполнения каждой команды программа должна вывести одну строчку. Возможные команды для программы: push n Добавить в стек число n...
Turbo Pascal Ввести информацию из файла и определить номер школы, ученики которой имеют максимальный средний балл Необходимо: Записать в файл информацию о школьниках: <фамилия>, <возраст>, <номер школы>, <класс>, <оценки по 3-м предметам>. Ввести информацию из файла и определить номер школы, ученики которой имеют максимальный средний балл. https://www.cyberforum.ru/ turbo-pascal/ thread1730708.html
Turbo Pascal Найти уравнение скорости движения тела и положение тела как функцию от времени задан закон изменения ускорения движения тела как функция от времени. Найти уравнение скорости движения тела и положение тела как функцию от времени. Входные данные: v(0)=2м/с; s(0)=0м. Определить положение. скорость и ускорение на отрезке времени t= с шагом 1 с. Построить графики s(t), v(t), a(t). Решить задачу для нескольких значений k. a(t)=k*cos(t) м/с^2 https://www.cyberforum.ru/ turbo-pascal/ thread1730690.html Паскаль Turbo Pascal
привет всем, у меня есть одна проблема. нужно выполнить задание, но я не смыслю в программирование, а сдать его нужно на днях. помогите, пожалуйста. вот задание: Исходный файл содержит числа в шестнадцатеричной системе счисления, отделенные друг от друга запятыми. Составить программу, которая для каждого такого числа из заданного диапазона после знака равенства указывает его значение в...
Turbo Pascal Могут ли быть точным квадратом числа вида Здравствуйте. Помогите написать код для такой задачи: Могут ли быть точным квадратом числа вида ХХYY или XXXYYY? Вот математическое решение: xxyy=xx*100+yy=11*x*100+11*y=11(100x+y)=точный квадрат Значит 100х+y делится на 11 Но 100х+y=99x+x+y Значит x+y делится на 11. https://www.cyberforum.ru/ turbo-pascal/ thread1730624.html Turbo Pascal Штриховка уголка в графическом режиме - Pascal https://www.cyberforum.ru/ turbo-pascal/ thread1730463.html
Всем доброго дня, необходима помощь. Не поможете ли кодом, нужно написать ПО на паскале, для штриховки угла в графическом режиме, перелопатил кучу инфы, но везде пишут про замкнутые фигуры, а нужен угол. Чем штриховать не сказанно, видимо можно будет линиями с небольшим шагом. Тему перенёс сюда из общего форума, просьба при обнаружении дублирования не материться..
Turbo Pascal Описать что происходит в данном коде программы
Надо описать что происходит в данном коде программы(что происходит\делается) по блокам. ПРИМЕР: ------Зчитуємо точки початку і кінця шляху {считываем точки начала и конца пути} writeln; textcolor(15);writeln('Введите координаты точки начала:'); textcolor(8);write('Строка > ');textcolor(0);read(XI); X1:=XI;
Turbo Pascal Многофайловые проекты https://www.cyberforum.ru/ turbo-pascal/ thread1730193.html
Реализовать в виде отдельных модулей набор подпрограмм для выполнения следующих опе-раций над комплек
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
10.05.2016, 12:33 0

В последовательности все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить нулями - Turbo Pascal - Ответ 9119724

10.05.2016, 12:33. Показов 3395. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
    ar: Array[Byte] Of Real;
    n, i: Word;
begin
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    Randomize();
    Write('Original array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random * 198 - 99;
        Write(ar[i]:7:2);
        if ((ar[i] >= 0) And ((ar[i] < 1) Or (ar[i] > 2)))
        then
            ar[i] := 0;
    end;
    WriteLn; Write('Modified array:');
    for i := 0 to n - 1 do
        Write(ar[i]:7:2);
end.


Вернуться к обсуждению:
В последовательности все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить нулями Turbo Pascal
Миниатюры
В последовательности все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить нулями  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2016, 12:33
Готовые ответы и решения:

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

В последовательности все отрицательные члены увеличить на 0,5, а все неотрицательные заменить на 0,1
Даны натуральные числа n,действительные числа А1,...Аn. В последовательности А1,....Аn все...

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

Все отрицательные члены последовательности увеличить на 0.5, а все неотрицательные заменить на 0.1
Дана натуральное число n, действительные числа а1....аn, в последовательности а1...аn все...

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

Заменить все элементы, меньшие двух, нулями и вычислить сумму членов, принадлежащих отрезку [3; 7]
Всем привет. Помогите пожалуйста написать код. Задача следующая: Даны натуральное число n и...

Заменить все отрицательные члены последовательности ее минимальным элементом, а все положительные - максимальным
Дано натуральное число n и последовательность действительных чисел a1,a2...an.Заменить все...

В последовательности все члены, следующие за наибольшим, заменить на 0.5
Даны действительные числа a1...an, b1...bm. В последовательности a1...an и в последовательности...

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

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