|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.04.2009, 14:53 | #1 |
Пользователь
Регистрация: 28.04.2009
Сообщений: 11
|
процедурки и функции для сложения простых дробей
Вот пиши процедурки и функции для сложения простых дробей,но блин чё-то не получается...емли кто мот то блин покажи текст программки,буду признателен...
|
29.04.2009, 14:58 | #2 |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
Выкладывай код, рассмотрим... И впредь: темы лучше называть по-правилам.
Кто бы ты ни был - не думай о себе слишком (с)
|
30.04.2009, 09:11 | #3 |
Пользователь
Регистрация: 28.04.2009
Сообщений: 11
|
я вот никак не могу написать прогу для нока,если кто мот то киньте...а то проблемы с ноком))))
|
30.04.2009, 09:33 | #4 |
Пользователь
Регистрация: 28.04.2009
Сообщений: 11
|
program kursovaja;
var a,b,c,d,e,g,q,t,z,w:longint; NOK,k,p,m,r:real; begin writeln('vvediye_celuy_4ast_pervogo _4isla'); read(a); writeln('vvediye_4islitel_pervogo_4 isla'); read(b); writeln('vvediye_znamenatel_pervogo _4isla'); read(c); writeln('polu4aem_pervoe_4islo'); if a=0 then writeln(b,'/',c) else writeln(a,'_',b,'/',c); writeln('vvediye_celuy_4ast_vtorogo _4isla'); read(d); writeln('vvediye_4islitel_vtorogo_4 isla'); read(e); writeln('vvediye_znamenatel_vtorogo _4isla'); read(g); writeln('polu4aem_vtoroe_4islo'); if d=0 then writeln(e,'/',g) else writeln(d,'_',e,'/',g); begin If c>g then begin r:=c; q:=g; end else begin r:=g; q:=c; end; begin If r mod q=0 then NOK:=r else begin while q>0 do t:=r mod q; r:=q; q:=t; end; NOK:=(c*g)/r ; end; begin z:=NOK div c; w:=NOK div g; k:=a+d; p:=b*z+e*w; end; begin if p>=NOK then m:=p div NOK; k:=k+m; p:=p-m*NOK; end; if p=0 then writeln(k) else writeln(k,'_',p,'/',NOK); end; end. |
30.04.2009, 11:20 | #5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 30.04.2009 в 11:24. |
01.05.2009, 00:53 | #6 | |
Пользователь
Регистрация: 28.04.2009
Сообщений: 11
|
Цитата:
|
|
01.05.2009, 15:41 | #7 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
У меня все работает. Пример где не работает выкладывай
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
01.05.2009, 18:33 | #8 |
Пользователь
Регистрация: 17.02.2009
Сообщений: 78
|
Пример входных значений:
-1 1/25 -2 24/25 Ответ будет -4. Программа выдаёт -5875/625. А это уже -9.4
Пишу глупости.
|
01.05.2009, 19:50 | #9 | |
Пользователь
Регистрация: 28.04.2009
Сообщений: 11
|
Цитата:
Вот к примеру я пишу 1/3 и 1/6,должно вывести 1/2 а выводит 3 1/2,откуда береться эта 3. Плиз ответь,или кинь свою аську...Просто от этой программы завсисит в какой-то степени моя оценка на экзамене... |
|
01.05.2009, 20:21 | #10 |
Пользователь
Регистрация: 17.02.2009
Сообщений: 78
|
Мой вариант программы. Старался некоторые моменты комментировать.
Естественно, не делал никаких проверок на правильность ввода. (Т.е. знаменатель не ноль. Если есть целая часть, то у дроби нет знака и.т.п) Код:
Пишу глупости.
Последний раз редактировалось Gongled; 01.05.2009 в 20:32. Причина: Дописал условие. (чтобы ноль не вылезал) |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ВЫчисление дробей по модулю целого числа | Камикадзе | Помощь студентам | 0 | 18.04.2009 09:29 |
Как написать код для укорачивание дробей? | Dinamovec | Помощь студентам | 9 | 16.03.2009 15:34 |
17 Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричн | OTLi4HO | Общие вопросы C/C++ | 1 | 16.01.2009 13:59 |
текст программы для решения нелинейного уравнения методом простых итераций | Dyst | Помощь студентам | 2 | 14.05.2008 22:00 |