Помогите найти ошибки

[temnot]

В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.

Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.

В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.

Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.

 var a,x,y,z,s:integer;
 begin
 readln(x,y);
 z:=x/10;
 s:=0;
 a:=0;
 while s<x do
 begin
 x:=x+z;
 a:=a+1;
 end;
writeln(a);
readln;
end.

vasya.pas(6,6) Error: Incompatible types: got "Extended" expected "SmallInt"
vasya.pas(14,4) Fatal: There were 1 errors compiling module, stopping
vasya.pas(0) Fatal: Compilation aborted

[temnot]

так, с переменными накосячил это я нашел, а вот чем ему деление не нравится я не могу понять

[type_Oleg]

Сообщение от temnot

...а вот чем ему деление не нравится я не могу понять

Потому что в Паскале операция деления "/" всегда возвращает с плавающей запятой ( действительное число ). Даже если 2/1, все равно.

Так что делайте ... z:Double;
И потом x+z; тоже будет действительное. И т. д.

Если надо, используйте функции округления.

[temnot]

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

[ViktorR]

Не все так просто.
1. И почему принято решение о таком типе данных?
Очевидно, что километры могут быть с метрами. Более того, при начислении процентов опят полезут дроби (вещественные числа)
Так что измените тип на real, например.

Предложенный код совсем никуда.
Что значит этот цикл?

while s<x do
begin
x:=x+z;
a:=a+1;
end;

Поскольку s = 0, а x > 0, цикл не работает.
Да и что он должен считать?

Так понимаю, что это задача на проценты: взял кредит под процент и надо вычислить ...
В нашем случае алгоритм вычисления может быть следующим:
Поскольку: y = x*(1+k)^n,
где y - пробежал в некоторый день; x - пробежал в первый день; k - процент n - номер дня,
то можем записать:
y/x= (1+k)^n, и логарифмируя имеем: n = ln(y/x)/ln(1+k);
Так что решение не требует циклов:
1. Получаем, на входе, значения для x и y
2. Вычисляем, по формуле, номер дня:

n := round(ln(y/x)/ln(1+k));

Как-то так, ...