Программирование с использованием процедур и функций - Помощь студентам

vampir3001 · 14.12.2011, 00:24

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

Arigato · 14.12.2011, 00:49

А вот и решение:

pascal_code2.PNG

vampir3001 · 14.12.2011, 01:05

program lab7;
uses crt;
var a,b,c,d,max:integer;
procedure search(a,b,c,d:integer; var max:integer);
var max1,max2:integer;
begin
if a>b then max1:=a else max1:=b;
if c>d then max2:=c else max2:=d;
if max1>max2 then max:=max1 else max:=max2;
end;
begin
clrscr;
writeln('Введите A,B,C,D');
readln(a,b,c,d);
search(a,b,c,d,max);
writeln('наибольшее=',max);
end.

вот так-то лучше

14.12.2011, 00:24	#1
vampir3001 Пользователь Регистрация: 24.10.2011 Сообщений: 23	Программирование с использованием процедур и функций Программирование с использованием процедур и функций Определить максимальное число из четырех введенных, путем сравнения их сначала попарно, а затем результат между собой.

14.12.2011, 00:49	#2
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,596	А вот и решение: pascal_code2.PNG E-Mail: arigato.freelance@gmail.com

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
переделать задачу с использованием процедур или функций	mashat99	Помощь студентам	3	08.04.2011 18:24
Программирование с использованием процедур и функций...на Паскале	Лизонька	Помощь студентам	1	25.02.2010 23:29
Программирование с использованием процедур и функций	Лизонька	Помощь студентам	2	25.02.2010 22:50
Помогите пожалуйста составить программку с использованием функций и процедур	ЛесенОК	Помощь студентам	1	17.02.2009 18:27

14.12.2011, 01:05	#3
vampir3001 Пользователь Регистрация: 24.10.2011 Сообщений: 23	program lab7; uses crt; var a,b,c,d,max:integer; procedure search(a,b,c,d:integer; var max:integer); var max1,max2:integer; begin if a>b then max1:=a else max1:=b; if c>d then max2:=c else max2:=d; if max1>max2 then max:=max1 else max:=max2; end; begin clrscr; writeln('Введите A,B,C,D'); readln(a,b,c,d); search(a,b,c,d,max); writeln('наибольшее=',max); end. вот так-то лучше