Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Ошибка типа Подскажите, пожалуйста, где здесь ошибка несоответствия типов: if Length(copy(s, pos(' ', s), Length(s)) = 16 then WriteLn(f2, s); ? https://www.cyberforum.ru/ turbo-pascal/ thread425466.html Turbo Pascal Определить среднедневное количество осадков за каждый месяц
Известно количество осадков, выпавших за каждый день января и марта. Определить среднедневное количество осадков за каждый месяц
Turbo Pascal Даны целое число k (1<=k<=150) и последовательность цифр 101102103..149150, в которой выписаны подряд все трехзначные числа от 101 до 150. https://www.cyberforum.ru/ turbo-pascal/ thread425399.html
Даны целое число k (1<=k<=150) и последовательность цифр 101102103..149150, в которой выписаны подряд все трехзначные числа от 101 до 150. Определить k-ю цифру, если известно, что k одно из чисел 1, 4, 7… Не могу понять условие и как следствие не могу решить. Помоги пожалуйста или просто идею подкиньте.Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на...
Turbo Pascal Программа на string https://www.cyberforum.ru/ turbo-pascal/ thread425327.html
Задана послідовність, яка містить від 2 до 50 слів, в кожному з яких від 1 до 8 латинських літер, між сусідніми словами проставлені пробіли, за останнім - крапка. Скласти програму, яка друкуватиме ті слова, які відрізняються від останнього слова та на які розповсюджуються правила: а) літери слова упорядковані за алфавітом; б) слово починається з a,abc,ab.
Задача на метод горнера Turbo Pascal
С помощью метода хорд найдите корень уравнения f(x)=0, многочлен вводится с клавиатуры, степени и и коэффициенты, ввод должен быть через метод Горнера, метод хорд у меня написан, нужен только ввод, Спасибо заранее
Turbo Pascal Структура MARSH Доброй ночи всем, помогите написать программу. Не понимаю я в структурах ничерта... Описать структуру с именем MARSH, содержащую следующие поля: • название начального пункта маршрута; • название конечного пункта маршрута; • номер маршрута. Написать программу, выполняющую следующие действия: • ввод с клавиатуры данных в массив, состоящий из восьми элементов типа MARSH, записи должны быть... https://www.cyberforum.ru/ turbo-pascal/ thread425294.html
Turbo Pascal Программа для подсчета наибольшего количества повторения подряд числа! Смысл задания: Пользователь задает число,например 8. Затем задает подряд 8 чисел(ну либо другое количество, в зависимости от предыдущего), например 4 2 2 1 4 4 4 6. В ответе он должен выдать число 3. Так как 4ка повторяется 3 раза,а это наибольшее кол-во повторений. Эта программа работает правильно,только вот нужна программа,в которой не будет ограничений на кол-во вводимых чисел. Иными... https://www.cyberforum.ru/ turbo-pascal/ thread425290.html Turbo Pascal Найти минимальный элементов каждый строки матрицы, исключая главную диагональ
дана матрица A размером 4х4 . но есть загвоздка....надо найти минимум каждой строки исключаю главную диагональ , но например смотрин на 1 строку там у нас минимум находится в 3 столбце 219 мы его запоминаем, но при этом зачеркиваем 3 столбец и мы переходим сразу на 3 строчку....там у нам минимум в 4 столбце 112 мы его тоже запоминаем и опять зачеркиваем столбец и переходим на 4 строчку там у нас...
Turbo Pascal Поиск номеров всех элементов массива, больших чем предыдущие https://www.cyberforum.ru/ turbo-pascal/ thread425269.html
1.Дано массив A составить программу поиска номеров всех его элементов, больших чем предыдущие. 2.Дано массив A составить программу поиска всех его элементов меньших суммы диагональных элементов. Буду очень рад, если поможете решить программки :):):):):)Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
Turbo Pascal Паскаль-программа, которая продуцирует цепочки в трёхсимвольном алфавите с записью их в файл... Создать Паскаль-программу, которая будет продуцировать цепочки в трёхсимвольном алфавите с записью их в файл, причем длина L цепочек ограничена: 4 <= L <= 8. Содержит одно сочетание «аb», заканчивается на «b» и символы «b» и «с» не стоят рядом Общее количество цепочек в файле должна быть не больше 20. Вот что получилось сделал чтобы было ограничивалась от 4 до 8 и сделал чтобы было не больше... https://www.cyberforum.ru/ turbo-pascal/ thread425252.html
Turbo Pascal Найти количество квадратов четных чисел
надо найти количество квадратов четных чисел. я нашел ток количесво четных. объясните мне про квадрат... вот прога PROGRAM PR37; VAR F:FILE OF INTEGER; A,X,N,K:INTEGER; BEGIN ASSIGN(F,'D:\FA.DAT'); REWRITE(F);
Turbo Pascal Строки https://www.cyberforum.ru/ turbo-pascal/ thread425219.html
Дана строка символов S. Получить первое натуральное і, для которого каждый из символов Si и Si+1 совпадает с буквой 'a'. Если такой пары символов нет, то ответом должно быть число 0. Помогите пожалуйста решить программку ;););)
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 7
0

Найти в массиве(одномерном), среднее арифметическое которых наиболее близко к заданному Х - Turbo Pascal - Ответ 2372125

10.01.2012, 13:10. Показов 600. Ответов 3
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Найти в массиве(одномерном), среднее арифметическое которых наиболее близко к заданному Х.

есть пример задачи на QBasic.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
Randomize
input "x="; x
input "n="; n
  Dim a(n)
  for i = 1 to n
  a(i) = int(200*|!REG3XP3!>rnd(-time)) - 100
  print a(i);
  next i
  M = ABS((a(1) + a(1)) / 2 -x)
 a=1
 d=1
  for i = 1 to n 
   for j= i to n
   if M < ABS((a(j) + a(i)) / 2 -x) then M = ABS((a(j) + a(i)) / 2 -x): a = j: d=i
   next j
  next i
 Print ("a= "); a
 Print ("d= "); d
Помогите кто чем может)))) заранее спасибо.

Добавлено через 21 минуту
пропустил два слова... ))

Найти в массиве(одномерном) два члена, среднее арифметическое которых наиболее близко к заданному Х.

Вернуться к обсуждению:
Найти в массиве(одномерном), среднее арифметическое которых наиболее близко к заданному Х Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2012, 13:10
Готовые ответы и решения:

Найти в массиве элемент значение которого наиболее близко к заданному
Помогите перевести прогу с Pascal на C++; Категорически не знаю Pascal Var Begin ...

В массиве Y1, ... , Yn найти два элемента, среднее арифметическое которых равно заданному числу X
Даны натуральное число n, действительное число x и массив действительных чисел y1, ... , yn. В...

В массиве Y1, ... , Yn найти два элемента, среднее арифметическое которых равно заданному числу X
Даны натуральное число n, действительное число x и массив действительных чисел y1, ... , yn. В...

В массиве найти два элемента среднее арифметическое которых ближе всего к заданному значению
Дано действительное число х и массив A . В массиве найти два элемента, среднее арифметическое...

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

В одномерном массиве найти максимум/минимум, среднее арифметическое
Вообще ничего не понимаю, помогите пожалуйста:( Числовой массив B целочисленный, содержит k...

Найти порядковый номер числа которое наиболее близко к числу заданному пользователем
Дана последовательность до 100 вещественных чисел. Найти порядковый номер того из них которое...

Найти порядковый номер числа из последовательности, которое наиболее близко к заданному числу
Дана последовательность длиной до 80 чисел. Найти порядковый номер того из них, которое наиболее...

В одномерном массиве найти среднее арифметическое всех четных чисел!!!
в одномерном массиве надо найти среднее арифметическое всех четных чисел!!!

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