Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Процедуры и функции

Автор: MAED 20.04.2008 15:46

Помогите пожалуйста решить три задачи:

1)Написать программу в которой используется функция, сравнивает два целых числа и при этом выводит результат:

A>B
A<B
A=B

2)Написать функцию, которая выполняет доход по вкладу, исходными данными для функции являются величина вклада, процентная ставка (годовая) и срок вклада зависит от кол-ва дней.

3)Составить процедуру, которая вычисляет площадь и объем поверхности параллелепипеда.

Автор: Странник 20.04.2008 21:00

Цитата(MAED @ 20.04.2008 15:16)

Помогите пожалуйста решить три задачи:
1)Написать программу в которой используется функция, сравнивает два целых числа и при этом выводит результат:
A>B
A<B
A=B

Код

uses
crt;
var
a,b:integer;
function minORmax(x,y:integer):integer;
begin
if x>y then minormax:=1;
if x<y then minormax:=2;
if x=y then minormax:=0;
end;
begin
   clrscr;
   writeln('Ввести А и В');
    readln(a,b);
   case minORmax(a,b) of

     1:  writeln(a,' больше ',b);

     2:  writeln(a,' меньше ',b);

     3:  writeln(a,' равно ',b);
end;
readln;
end.

я сделал так...хотя можно и по другому...

Автор: volvo 20.04.2008 22:36

Цитата

можно и по другому...

Чтобы не делать "масло масляное" (в смысле, сначала вернуть признак, а потом по признаку выбрать и напечатать результат) - можно вот так:

function compare(x, y: integer): string;
begin
  if x>y then compare := ' больше '
  else 
    if x<y then compare := ' меньше '
    else compare := ' равно ';
end;

var
  a, b: integer;
begin
  writeln('Ввести А и В');
  readln(a,b);
  writeln(a, compare(a, b), b);
  readln;
end.