Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 78.

Составить процедуру нахождения максимального из двух действительных чисел, вводимых с клавиатуры. Используйте процедуру для нахождения максимального значения для четырех чисел.

uses crt;
var a,b,s,c,d:real;
procedure maxim (x,y:real;var s:real);
begin
  if x < y then s:=y else s:=x;
end;

begin
  clrscr;
  writeln('a=b=');readln(a,b);
  writeln('c=d=');readln(c,d);
{В переменную S заносим большее из двух чисел А и В.}
  maxim(a,b,s);
{В переменную S заносим большее из двух чисел С и S.}
  maxim(c,s,s);
{В переменную S заносим большее из двух чисел D и S.}
  maxim(d,s,s);
  writeln('max=',s:3:1);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru