Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Использование двоичного вида числа https://www.cyberforum.ru/ turbo-pascal/ thread65129.html Подскажите как в Turbo Pascal записать число в двоичном виде? В шестнадцатеричном через знак $. Например $A1, а вот в двоичном как?	Перевод блок схем на язык Turbo Pascal Turbo Pascal Всем привет ! Люди помогите перевести блок схему на язык Turbo Pascal
Turbo Pascal Вычислить для натурального n https://www.cyberforum.ru/ turbo-pascal/ thread65103.html Вычислить для натурального n и вещественного x http://www.valar.ru/gallery/1109/1258457696_.jpg	Turbo Pascal Не работает GRAPH в TP 7.1 Уже 7 турбо-паскалей перепробывал не выполняет программы с модулем граф. Тупо черный экран вместо графики. Программы рабочие многие взяты отсюда, у др все работает у меня нет. Остальные модули работают без ошибок. Виндовс ХП-Спак 2. Пробовал в режимах совместимости менять настройки разные - тоже не работает. https://www.cyberforum.ru/ turbo-pascal/ thread65072.html
Turbo Pascal while Дан числовой ряд и малая величина e=10^-3. C точностью е найти сумму ряда, общий член которого задан формулой: An=1/2^n+1/3^n. Добавлено через 46 минут Дан числовой ряд и малая величина E=10^-3. C точностью E найти сумму ряда, общий член которого задан формулой: An=1/2^n+1/3^n. помогите решить плиз!!! Добавлено через 5 минут е-эпсилон	Turbo Pascal В одномерном массиве из 10 элементов определить местоположение минимального элемента Решить задачу одномерным и двумерным массивом. 1) В одномерном массиве из 10 элементов определить местоположение минимального элемента .Обнулить элементы стоящие до него , но не сам этот элемент (Обнулить значит записать 0 на место т.е элемента A=0). 2) В двумерном массиве из 10 элементов определить местоположение минимального элемента .Обнулить элементы стоящие до него , но не... https://www.cyberforum.ru/ turbo-pascal/ thread64992.html
Turbo Pascal Перед каждым словом «дом» добавить слово «большой» https://www.cyberforum.ru/ turbo-pascal/ thread64907.html помогите решить пожалуйста .Составить программы, с помощью которых: - сформировать текстовый файл из строк, которые должны быть введены с клавиатуры; - перед каждым словом «дом» добавить слово «большой».	Turbo Pascal массив помогите решить №1 пожалуйста
Turbo Pascal Код #27 https://www.cyberforum.ru/ turbo-pascal/ thread64885.html пожайлуста, напишите, что такое и как расшифровывается #27.	Turbo Pascal Даны два массива чисел. Найти в них минимальные элементы https://www.cyberforum.ru/ turbo-pascal/ thread64845.html Даны два массива чисел. Найти в них минимальные элементы. Если они равны, то исключить их из массивов. Процедуру повторять до тех пор, пока минимальные элементы массивов не окажутся разными.
Turbo Pascal Ошибка. if p=0 then write('net') else begin for i:=1 to p do write(b); end; readln; end. Пишет ошибку 85 ";" Я уже все, что могла перебрала... К сожалению я всего лишь тупой человек(((	Turbo Pascal Определить, есть ли в десятичной записи пятизначных чисел одинаковые цифры https://www.cyberforum.ru/ turbo-pascal/ thread64771.html 2. Даны два пятизначных числа. Определить, есть ли в их десятичной записи одинаковые цифры. 3. Дан двумерный массив чисел. Расположить в нем строки в порядке возрастания значений их первых элементов.

new_in_net

283 / 262 / 32

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

Сообщений: 605

19.11.2009, 06:04

Все числа последовательности, начиная с первого положительного, уменьшить на 0,5 - Turbo Pascal - Ответ 363873

19.11.2009, 06:04. Показов 2000. Ответов 1

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

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

Решение

Delphi

type MyArray = array[1..37] of double;
 
procedure DecArray(A: MyArray);
var
  I: integer;
  HaveMetPositiveNumber: boolean;
begin
  HaveMetPositiveNumber := False;
  for I:=1 to 37 do begin
    if not HaveMetPositiveNumber then
      HaveMetPositiveNumber := (A[I] > 0);
    if HaveMetPositiveNumber then
      A[I] := A[I] - 0.5;
  end;
end;

Вернуться к обсуждению:
Все числа последовательности, начиная с первого положительного, уменьшить на 0,5 Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

19.11.2009, 06:04

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

Все члены массива, начиная с первого положительного, уменьшить на 0,5
Дан массив чисел A(N). все члены этого массива, начиная с первого положительного, уменьшить на 0,5.

Уменьшить все числа заданной последовательности, начиная с первого положительного, на указанное число
Даны действительные числа a1,…, a37. Все числа этой последовательности, начиная с первого...

Даны действительные числа a1, ., a15. Все члены данной последовательности, начиная с первого положительного, уменьшить на 1
Даны действительные числа a1, ..., a15. Все члены данной последовательности, начиная с первого ...

Все члены массива, начиная с первого положительного, уменьшить на 0,5
Проверьте пожалуйста есть ошибка import random a = flag = False i = 1 for i in...

	19.11.2009, 06:04

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

19.11.2009, 06:04

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

Сумма каждого третьего положительного элемента последовательности, начиная с первого положительного
Дана целочисленная последовательность. Признаком завершения последовательности является ноль,...

Все элементы, начиная с первого положительного, увеличить на 0,5
помогите с программой))матрица 3*3,надо все элементы, начиная с первого положительного увеличить на...

Борланд Си++ (Увеличить все элементы массива, начиная с первого положительного)
1) Задан массив целых чисел. Увеличить все элементы этого массива начиная с первого положительного...

Все члены последовательности начиная с 10-го уменьшить на 0.5
Не могу решить эту задачу Даны действительные числа а1,..., а37. Все члены последовательности...

Все элементы заданного линейного массива, начиная с первого, уменьшить на единицу
Все элементы заданного линейного массива, начиная с первого, уменьшить на единицу.

Наверх