17.05.2011, 19:40 | #1 (permalink) |
Новичок
Регистрация: 17.05.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помощь в Pascal.
•Составить программу, которая в диалоговом режиме предложила Вам вычислить заданную математическую функцию: у = а2 + b2 + с + 3d при а=6; b=1.5; с=0.85; d=0.75; •В одном доме D квартир, а в другом - в N раз меньше. Составить программу для определения количества квартир в двух домах вместе. •После того, как автобус выполнил семь рейсов по своему маршруту туда и обратно, у него в бензобаке осталось М литров бензина. Определить, сколько бензина было в бензобаке перед началом первого рейса, если длина маршрута от одной конечной остановки до другой R км, а расход бензина составляет U дм3 на каждые 10 км. Составьте программу для решения этой задачи. •Составить программу, которая бы выводила на экран день недели по указанному Вами его порядковым номером. •Составить программу, которая бы предлагала Вам ввести число и затем выводила на экран количество компьютеров (введенное число + слово "компьютер"в соответствующем падеже). •Известный номер автомобиля (целое пьятицифрове число). Составьте программу для определения, начинается этот номер из тройки или девятки. •С раз выполнить следующие действия: значение переменной Е добавить к значению переменной С и результат присвоить переменной С. •Дано натуральные числа а, b, с. Необходимо вывести таблицу соответствия: •отдалении в милях i километрах для значений миль от а до b с шагом с миль, зная что 1 миля = 1,6 км; •Составить и вывести на экран таблицу значений функции для заданных значений аргумента от а до b с шагом с. Результат вывести в виде таблицы: y = (x – 1) / x |
17.05.2011, 19:40 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Информация которая содержится в этих обсуждениях должна вам помочь Требуется помощь в написании программы на языке Turbo Pascal Pascal, две задачки, нужна помощь Помощь по Pascal Pascal Pascal Pascal |
17.05.2011, 22:19 | #3 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну и еще несколько:
Цитата:
Код:
VAR D,N:Word; BEGIN Write('D= '); ReadLn(D); Write('N= '); ReadLn(N); WriteLn('Sum= ',D+(D div N)); ReadLn END. Цитата:
Код:
VAR M,U,R:Real; BEGIN Write('M= '); ReadLn(M); Write('R= '); ReadLn(R); Write('U= '); ReadLn(U); WriteLn(R*2*7*(0.1*U)+M:10:2,' L'); ReadLn END. Цитата:
Код:
VAR Day_Number:Byte; BEGIN Repeat Write('Enter the number of day (1..7) '); ReadLn(Day_Number); If (Day_Number<1) or (Day_Number>7) then WriteLn('The number is wrong!'); Until (Day_Number>0) and (Day_Number<8); Case Day_Number of 1: WriteLn('Monday'); 2: WriteLn('Tuesday'); 3: WriteLn('Wednesday'); 4: WriteLn('Thursday'); 5: WriteLn('Friday'); 6: WriteLn('Saturday'); 7: WriteLn('Sunday'); End; ReadLn END. |
|||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|