Pascal, две задачи

ole4ka · 13.06.2011, 00:32

Помогите....
1.В продавца N ящиков, в каждом из которых по В кг бананов. Определить, какой штраф он оплатит комитета по защите прав потребителей, если он продает бананы по С гривен за килограмм и при этом обвешивает покупателей на G г при взвешивании каждого килограмма, а сумма штрафа равняется пятикратному размеру прибыли, полученной за счет обвес покупателей. Составьте программу для определения результата задачи.
2.Відомі годовые оценки ученика из всех учебных предметов. Составить программу для определения, является ли этот ученик "хорошистом" ("хорошист" - это тот ученик, у которого все оценки не ниже "7" и не выше "9").
Задача 1.
Заполнить матрицу размерности 20х20 элементов случайными числами. Строка, номер которого соответствует Вашему варианту отсортировать одним из методов по неспаданням. Результат вывести на экран.

Задача 2.
Заполнить матрицу размерности 20х20 элементов случайными числами. Элементы главной диагонали отсортировать по незростанням.

Vladimir_S · 13.06.2011, 10:07

Цитата:

Сообщение от ole4ka

Pascal, две задачи

Странно. А я насчитал четыре... Причем самая интересная - третья, под названием "Задача 1". Тут нам предоставляется возможность, используя экстрасенсорные способности, угадать номер варианта... А "неспадане" - это возрастание по-русски?

Vladimir_S · 13.06.2011, 11:36

Цитата:

Сообщение от ole4ka

1.В продавца N ящиков, в каждом из которых по В кг бананов. Определить, какой штраф он оплатит комитета по защите прав потребителей, если он продает бананы по С гривен за килограмм и при этом обвешивает покупателей на G г при взвешивании каждого килограмма, а сумма штрафа равняется пятикратному размеру прибыли, полученной за счет обвес покупателей. Составьте программу для определения результата задачи.

Код:

VAR
 N,B,C,G:Real;

BEGIN
 Write('Number of boxes = ');
 Readln(N);
 Write('Weight of bananas in each box (kg) = ');
 Readln(B);
 Write('Nominal banana price (UAH/kg) = ');
 Readln(C);
 Write('Seller"s cheat (g/kg) = ');
 Readln(G);
 Writeln('Fine = ',Round(N*B*G/1000*C*5),' UAH');
 Readln
END.

13.06.2011, 00:32	#1 (permalink)
ole4ka Новичок Регистрация: 10.05.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal, две задачи Помогите.... 1.В продавца N ящиков, в каждом из которых по В кг бананов. Определить, какой штраф он оплатит комитета по защите прав потребителей, если он продает бананы по С гривен за килограмм и при этом обвешивает покупателей на G г при взвешивании каждого килограмма, а сумма штрафа равняется пятикратному размеру прибыли, полученной за счет обвес покупателей. Составьте программу для определения результата задачи. 2.Відомі годовые оценки ученика из всех учебных предметов. Составить программу для определения, является ли этот ученик "хорошистом" ("хорошист" - это тот ученик, у которого все оценки не ниже "7" и не выше "9"). Задача 1. Заполнить матрицу размерности 20х20 элементов случайными числами. Строка, номер которого соответствует Вашему варианту отсортировать одним из методов по неспаданням. Результат вывести на экран. Задача 2. Заполнить матрицу размерности 20х20 элементов случайными числами. Элементы главной диагонали отсортировать по незростанням.

13.06.2011, 00:32
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Не обделяйте вниманием данные ссылки Задачи по Pascal Помогите, пожалуйста, решить три задачи по Pascal Помогите решить задачи в Turbo Pascal 2 задачи по Qbasic

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070