Учеба и наука

Решено

Паскаль - вопрос №54771

Помогите решить задачи уже не знаю, что делать и так и сяк верчу не правильно

1. Составить программу, которая рассчитывает куб наименьшего из двух чисел

2. Составить программу, для распознования из двух чисел отрицательного, если отрицательных к примеру нет, программа должна писать ОТРИЦАТЕЛЬНЫХ НЕТ .

3. Компьютер запрашивает стоимость покупки, внесённую покупателем. Если сдачи нет ,петает СПАСИБО, если денег внесено больше, печатает ВОЗЬМИТЕ ЗДАЧУ и указывает сумму здачи, если же недостаточно, то указывает недостоющую сумму .

Прошу хотя бы 2 любые задачи .

январь 25, 2011 г.

Сообщить о нарушении

Всего ответов: 2

Антон Евгеньевич Городов

16-й в

1 отзыв

-----------------Номер РАЗ

program one;
var
a,b:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if (a begin
writeln('Первое число меньше, его куб = ',a*a*a:0:5);
end
else
if (b begin
writeln('Второе число меньше, его куб = ',a*a*a:0:5);
end
else
writeln('Числа равны');

write('Нажмите ENTER для завершения');
readln

end.

-----------------Номер ДВА

program two;

var

a,b:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);

if (a<0) then writeln('Первое число отрицательное');
if (b<0) then writeln('Второе число отрицательное');
if (a>=0) and (b>=0) then writeln('Отрицательных нет');

write('Нажмите ENTER для завершения');
readln

end.

Всё проверил во FreePASCAL, при выводе использовал модификаторы :0:2 и :0:5 для вещественных чисел, которые означают количество выводимых цифр до запаятой и соответсвенно после запятой (0 значит всё что есть, а также влияет на ведущие или последующие нули, можете поиграться при желании)

январь 26, 2011 г.

Ответ понравился автору

Лучший ответ по мнению автора

Антон Евгеньевич Городов

16-й в

1 отзыв

----------------НОМЕР ТРИ

program three;
var
a,b:real;
begin
write('Введите стоимость покупки: ');
readln(a);
write('Введите полученные деньги: ');
readln(b);

if (a=b) then writeln('Спасибо') else
if (a writeln('Недостаточно средств: ',a-b:0:2);

write('Нажмите ENTER для завершения');
readln

end.