Практическая работа

Практическая работа  11.11.2012

В кафе продают лимонад по x руб. и мороженое по y руб. Составьте программу в системе Pascal ABC, которая сообщает "возьмите сдачу", "доплатите еще" или "спасибо за покупку" при оплате покупателем за m лимонадов и n мороженых денег в размере S руб.

Решение:

program pp;

var

x, y,m, n,s, k:integer;

begin

writeln('Введите x, y,m, n,s');

read(x, y,m, n,s);

z:=x*m+y*n;

if s=z then writeln('Спасибо за покупку')

else if S>Z then begin k:=s-z;

writeln('Возьмите сдачу ',k) end

else  begin k:=z-s;

writeln('Доплатите ещё ',k) end

end.

2. Вычислить значение S:

program ll;

var

x, s:integer;

begin

writeln('Введите x');

read(x);

if x<0 then S:=1

else if S<=5 then S:=0 else S:=x+1;

writeln('S=',S);

end.

Даны 2 целых числа а и b. Найти сумму этих чисел, если а - четное, и произведение в противном случае.

program pkp;

var

a, b,s, p:integer;

begin

writeln('Введите a, b');

read(a, b);

if a mod 2=0 then begin s:=a+b;

writeln('a - четное, поэтому S=a+b=',s) end

else  begin p:=a*b;

writeln('a - нечетное, поэтому P=a*b=',p) end

end.

Ввести три числа. Вывести их в порядке  возрастания.

program vvv;

var a, b,c, min, max, sr:integer;

begin

writeln('Введите три числа');

read(a, b,c);

if a<b then  begin

  if b<c then begin min:=a; sr:=b; max:=c; end

  else begin

  if a<c then begin min:=a; sr:=c; max:=b; end

  else  begin min:=c; sr:=a; max:=b; end;  end;  end

else begin

  if c<b  then begin min:=c; sr:=b; max:=a; end

  else  begin

  if a<c then begin min:=b; sr:=a; max:=c; end

  else  begin min:=b; sr:=c; max:=a; end; end; end;

  writeln(min,'  ',sr,'  ',max);

end.

Домашнее задание:

Даны 3 числа а, b, c. Вывести среднее арифметическое этих чисел (), если а кратно трем, и среднее геометрическое ()  в противном случае.