Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

pascal / 2 лаба / Program1

.pas
Скачиваний:
23
Добавлен:
13.02.2015
Размер:
275 б
Скачать
program 1;
uses Crt;
var x,y,z: Real;
function sign(z:Real): Integer;
begin
clrscr;
If z<0 Then Sign:=-1;
If z=0 Then Sign:=0;
If z>0 Then Sign:=1;
end;
BEGIN
Writeln('Vvedite x и y: ');
Readln(x,y);
z:=Sign(Sign(x)+Sign(y));
Writeln('Ответ= ',z);
Readln
END.
Соседние файлы в папке 2 лаба