Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Нужна программа для построения блок схем https://www.cyberforum.ru/ turbo-pascal/ thread1200071.html
кто может посоветовать программу для построения блок схем?
Turbo Pascal Переписать программу с использованием процедур и функций
Здравствуйте напишите из вот этот программы две программы одну через процедуру другую через функцию!! что бы вышло две программы одна с процедурами другая с функцией program lab4; var A:...
Вычислить значение произведения используя циклы while, for, repeat Turbo Pascal
Помогите решить. Через while, for, repeat. \prod_{k=0}^{b}3^k
Turbo Pascal Сформировать файл из вещественных чисел, которые должны быть введены с клавиатуры Условие задания написать две программы: - сформировать файл из вещественных чисел, которые должны быть введены с клавиатуры; - исключить из файла компоненты, которые меньше предшествующей... https://www.cyberforum.ru/ turbo-pascal/ thread1199950.html
Turbo Pascal Pascal модуль. "Ошибка записи на диск" https://www.cyberforum.ru/ turbo-pascal/ thread1199924.html
База данных о студентах. Ошибка "Ошибка записи на диск". Как исправить? Сам модуль: unit pr_3_; INTERFACE uses crt; type spisok=record group:string; fio:string; stip:integer;
Turbo Pascal Сформировать таблицу, записав в нее известную информацию о каждом сотруднике, о количестве пенсионеров
О сотрудниках некоторого предприятия известно следующее: • фамилия, инициалы; • год рождения; • должность; • пол. • Сформировать таблицу, записав в нее известную информацию о каждом...
Создайте массив записей, содержащий сведения об альбомах различных групп: Turbo Pascal
Создайте массив записей, содержащий сведения об альбомах различных групп: • название группы; • название альбома; • год выпуска; • стиль. Выведите на экран все альбомы в стиле pop и rock.
Turbo Pascal Вычислить значение выражения Помогите написать программу задач в Паскале!!! p=\frac{\sqrt{lg 15+4.5}+ctg^33.1}{cos 1.04-35} Ответ: 402.1339 k=\sqrt{\frac{e^{25-12.3}+121}{50\cdot 1.7}}-\frac{\left(458.78-48.97... https://www.cyberforum.ru/ turbo-pascal/ thread1199820.html
Turbo Pascal Минимальное натурально число https://www.cyberforum.ru/ turbo-pascal/ thread1199802.html
И еще есть такое задание: Дана последовательность целых чисел, каждое из которых по модулю не превышает 2*10^9 . Длина последовательности не более 10^4 . Найти минимальное натуральное число,...
Turbo Pascal Если сумма элементов массива отрицательная, изменить знак каждого элемента, если положительная, удвоить каждый Заполнить двумерный массив N x N случайными числами из интервала . Найти сумму элементов. И если она отрицательная, заменить все элементы массива на противоположные по знаку, если... https://www.cyberforum.ru/ turbo-pascal/ thread1199785.html
2 / 2 / 0
Регистрация: 18.04.2013
Сообщений: 199
05.06.2014, 16:41  [ТС] 0

Кто может написать программу нахождения багажа, средний вес одной вещи отличается не более, чем на Т

05.06.2014, 16:41. Просмотров 491. Ответов 7
Метки (Все метки)

Ответ

Цитата Сообщение от Пытливый Посмотреть сообщение
Const
*N = 10;
Var
*Bag: Array[1..N] of Real;
*i: Integer;
*T,Mid: Real;
begin
*Mid := 0;
*for i := 1 to N
*do begin
* * *Bag[i] := Random(10);
* * *Mid := Mid + Bag[i];
* * *end;
*Mid := Mid / N;
*T := Random(5);
*for i := 1 to N
*do if Bag[i] - Mid <= T
* * *then WriteLn(Bag[i]);
*ReadLn;
end.
она не работает

Вернуться к обсуждению:
Кто может написать программу нахождения багажа, средний вес одной вещи отличается не более, чем на Т
0
Миниатюры
Кто может написать программу нахождения багажа, средний вес одной вещи отличается не более, чем на Т  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2014, 16:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого...

Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего среднего веса одной
uses Crt; type bagaz=record kol:byte; ves:real; end; var bg:bagaz; ...

Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего
Доброе время суток, напишите пожалуйста код для решения задачи. Багаж пассажира характеризуется...

Найти всех пассажиров, у которых средний вес одной вещи отличается не более, чем на 0,5 кг от общего
составить программу по теме Записи Даны сведения о багаже пассажиров: фамилия пассажира,...

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