Помощь в Pascal.

[Brakeboy]

Помощь в Pascal.

Здраствуйте,уважаемые програмисты.Помогите новичку решить задачки по 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

 

[Vladimir_S]

Посмотрите для начала эту тему:
http://www.tehnari.ru/f43/t51480/
Там есть несколько похожих задачек.

 

[Vladimir_S]

Ну и еще несколько:

•В одном доме D квартир, а в другом - в N раз меньше. Составить программу для определения количества квартир в двух домах вместе.

VAR
 D,N:Word;
BEGIN
 Write('D= ');
 ReadLn(D);
 Write('N= ');
 ReadLn(N);
 WriteLn('Sum= ',D+(D div N));
 ReadLn
END.

•После того, как автобус выполнил семь рейсов по своему маршруту туда и обратно, у него в бензобаке осталось М литров бензина. Определить, сколько бензина было в бензобаке перед началом первого рейса, если длина маршрута от одной конечной остановки до другой R км, а расход бензина составляет U дм3 на каждые 10 км. Составьте программу для решения этой задачи.

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.