Предмет: Информатика,
автор: sergeiN1
даны 2 вещественных числа. сколько на отрезке между ними целых чисел паскаль
Аноним:
необходимо на паскале abc, free, turbo, или что-нибудь другое???
оно вроде должно получиться примерно одинаково. меньшее округлить вверх, большее просто trunc и пройтись между ними циклом
Ответы
Автор ответа:
0
var
a,b:real;
i,min,max,count:integer;
begin
readln(a,b);
if a<b then
begin
min:=trunc(a)+1;
max:=trunc(b)
end
else
begin
min:=trunc(b)+1;
max:=trunc(a)
end;
for i:=min to max do
count:=count+1;
write(count)
end.
ввод 4.0 7.5 и все поломается
хотя это зависит от того как понять условие)
можно и переделать
var
a,b:real;
i,min,max,count:integer;
begin
readln(a,b);
if (a 0) then
begin
min:=trunc(a)+1;
max:=trunc(b)
end
else if (b 0) then
begin
min:=trunc(b)+1;
max:=trunc(a)
end
else if (abegin
max:=trunc(b);
min:=trunc(a)
end
else if (bbegin
max:=trunc(a);
min:=trunc(b)
end;
for i:=min to max do
count:=count+1;
write(count)
end.
a,b:real;
i,min,max,count:integer;
begin
readln(a,b);
if (a 0) then
begin
min:=trunc(a)+1;
max:=trunc(b)
end
else if (b 0) then
begin
min:=trunc(b)+1;
max:=trunc(a)
end
else if (abegin
max:=trunc(b);
min:=trunc(a)
end
else if (bbegin
max:=trunc(a);
min:=trunc(b)
end;
for i:=min to max do
count:=count+1;
write(count)
end.
код в ширину не влазит
В общем, нужно еще в условии дописать, чтобы дробная часть была больше нуля и если все эти условия не проходит, то просто отсекать дробную часть
Похожие вопросы
Предмет: Математика,
автор: Olga999925
Предмет: Английский язык,
автор: svetlovaevgenia67
Предмет: Английский язык,
автор: frogfrog200912
Предмет: Математика,
автор: Регинчик230904