что за ошибку выдает в этой программе - Паскаль, Turbo Pascal, PascalABC.NET

maxim1592 · 27.05.2014, 22:55

Как ее исправить. Сама задача: Заданы два числа, введённые с клавиатуры. Необходимо большее число разделить на меньшее.

Код:

uses crt;
var a,b,s,p:integer;
x,y:real;
begin
p:=1;
s:=0;
writeln('vvedite 2 4isla');
readln(x,y);
p:=x/y;
if x<y then begin x:=s; y:=p; end;
if x>y then begin x:=p; y:=s; end;
writeln;
writeln(x,' ',y);
readkey;
end.

ZX Spectrum-128 · 27.05.2014, 23:04

p:=x/y;
p - integer, x,y - real;
Нельзя присваивать целой переменной вещественную.
Попробуйте заменить все целые на вещественные.

Mad_Cat · 27.05.2014, 23:07

вопрос только зачем такие извращения

Код:

if x>=y then p:=x/y else p:=y/x;
writeln(p);

maxim1592 · 27.05.2014, 23:59

как заменить целые на вещественные???

ZX Spectrum-128 · 28.05.2014, 00:00

Вместо
var a,b,s,p:integer;
Написать
var a,b,s,p:real;

maxim1592 · 28.05.2014, 14:38

спасибо большое

27.05.2014, 22:55	#1
maxim1592 Новичок Джуниор Регистрация: 27.05.2014 Сообщений: 60	что за ошибку выдает в этой программе Как ее исправить. Сама задача: Заданы два числа, введённые с клавиатуры. Необходимо большее число разделить на меньшее. Код: `uses crt; var a,b,s,p:integer; x,y:real; begin p:=1; s:=0; writeln('vvedite 2 4isla'); readln(x,y); p:=x/y; if x<y then begin x:=s; y:=p; end; if x>y then begin x:=p; y:=s; end; writeln; writeln(x,' ',y); readkey; end.` Последний раз редактировалось Stilet; 28.05.2014 в 08:08.

27.05.2014, 23:07	#3
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	вопрос только зачем такие извращения Код: `if x>=y then p:=x/y else p:=y/x; writeln(p);` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выдает ошибку в программе,что не правильно я прописал.	spectrum988	Помощь студентам	3	28.10.2013 10:00
объясните Что означает ANS в этой программе	Азамат1	Паскаль, Turbo Pascal, PascalABC.NET	3	21.05.2013 14:40
нужно помочь понять основные циклы в этой программе..что выполняется за чем?	anton6262906	Помощь студентам	2	22.12.2011 14:27
Что делает цик for в этой программе ?	gas777	Общие вопросы C/C++	6	23.06.2011 21:17
подскажите, что в этой программе не так??	мария2507	Microsoft Office Excel	3	22.12.2009 16:30

27.05.2014, 23:04	#2
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	p:=x/y; p - integer, x,y - real; Нельзя присваивать целой переменной вещественную. Попробуйте заменить все целые на вещественные.

27.05.2014, 23:59	#4
maxim1592 Новичок Джуниор Регистрация: 27.05.2014 Сообщений: 60	как заменить целые на вещественные???

28.05.2014, 00:00	#5
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Вместо var a,b,s,p:integer; Написать var a,b,s,p:real;

28.05.2014, 14:38	#6
maxim1592 Новичок Джуниор Регистрация: 27.05.2014 Сообщений: 60	спасибо большое