| Автор | Помогите плиз!! |
|---|
Нужно решить программу на Паскале:
Привести дробь 1+(1/2)+(1/3)+...+(1/10) к несократимому виду
Помогите плиз,очень надо! |
| 3/15 |
2
Это несократимый? XD Сказано же, на паскале... |
для red-ant:
Я просто прибавил единички и 10+2+3 |
для Andriy_forever:
сразу видно что до 5 класса ещё не дорос |
для Andriy_forever:
К тому же явно,неправильно,ведь понятно что будет больше чем 1 |
Ну пишешь прожку а нижнюю часть как переменную к примеру x и потом
цикл создаешь t=t+1/x, t=0 а x=x+1. и ограничение на 10 |
для HolyKo6pa:
Ну вы молодцом,объяснили самую элементарную часть,которая и так ясна,а мне надо прогу которая приводит к несократимому виду |
для REWesker:
Дорос до 8-го, но не знаю как делать это |
для Тиллимиллидрямп:
с помощью алгоритма Евклида найди НОД числителя и знаменателя и сократи на него дробь. |
для kirill91:
Вот об этом я тоже думал,но ведь надо еще записать в виде дроби,потому что Паскаль выведет в виде десятичной... |
| щас напишу) |
| Если бы я помнила Паскаль, который с успехом забыла написала бы всю прожку =) |
полный вариант:
Var s,i:longint;
Begin
s:=0;
For i:=1 to 10 do
s:=s+(1/i);
write(s);
End.
Вот тебе прога |
для Тиллимиллидрямп:
m/n+p/q=(mq+np)/nq |
| ой забыл тип переменной s не longint а real |
На самом деле надо просто определить тип - дробь (рекордом проще всего, хотя красивее от TObject), сделать у него два свойства целых - числитель и знаменатель, ну и операцию сложения сделать в виде функцийки.
Сложение делается так: сначала a/b + c/d => (ad+bc)/bd, затем применяешь алгоритм Евклида
http://ru.wikipedia.org/wiki/%D0%90%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D0%BC_%D0%95%D0%B2%D0%B A%D0%BB%D0%B8%D0%B4%D0%B0
получаешь результат. |
для REWesker:
Ты хоть условия читал??
Ты просто посчитал чему равна эта сумма,а то что надо в виде несократимой тебя вобще не смущает?
для kirill91:
Я понял твою идею,можно попробывать |
14
Вы неправильно поняли условие. |
полный вариант:
Var s,i:longint;
Пятый класс, десятичные дроби и рациональные дроби - в чем сходство, в чем разница.... |
