прошу помочь с блок-схемой - Помощь студентам

spankyham · 14.05.2009, 17:08

program rgr;
uses crt;
var x,y,z:real;
function max(q,w:real):real;
begin if q>w then max:=q else max:=w;end;
function min(q,w:real):real;
begin if q<w then min:=q else min:=w;end;
begin
clrscr;
textcolor(10);
textbackground(19);
writeln('Vvedite 4isla x,y,z:');
readln(x,y,z);
writeln('S=',min(z,max(x,y)):5:2);
readln;
end.

pavel42 · 14.05.2009, 18:34

вот смари...только прога хз чет рисует зачеркнуто...прога если что fceditor, можешь сам скачать в нете и сделать

spankyham · 14.05.2009, 18:47

спс, в курсе за эту прогу, только по-моему как-то неправильно, коряво она делает....а я ваще не разбираюсь в блок-схемах =//

pavel42 · 14.05.2009, 21:29

я делал, сдавал...все прокатывало.

14.05.2009, 17:08	#1
spankyham Пользователь Регистрация: 31.03.2009 Сообщений: 57	прошу помочь с блок-схемой program rgr; uses crt; var x,y,z:real; function max(q,w:real):real; begin if q>w then max:=q else max:=w;end; function min(q,w:real):real; begin if q<w then min:=q else min:=w;end; begin clrscr; textcolor(10); textbackground(19); writeln('Vvedite 4isla x,y,z:'); readln(x,y,z); writeln('S=',min(z,max(x,y)):5:2); readln; end.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите с блок-схемой	GaJIbI4	Помощь студентам	3	05.05.2009 09:10
Помогите с блок-схемой	11twin11	Помощь студентам	2	24.02.2009 12:10
Помогите срочно с блок-схемой.....	kasta	Помощь студентам	2	24.11.2008 23:11
Помогите с блок схемой	Juhn	Паскаль, Turbo Pascal, PascalABC.NET	4	25.01.2008 15:50

14.05.2009, 18:47	#3
spankyham Пользователь Регистрация: 31.03.2009 Сообщений: 57	спс, в курсе за эту прогу, только по-моему как-то неправильно, коряво она делает....а я ваще не разбираюсь в блок-схемах =//

14.05.2009, 21:29	#4
pavel42 Пользователь Регистрация: 06.04.2009 Сообщений: 95	я делал, сдавал...все прокатывало.