Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2012, 03:03   #1
_SoTo_
Новичок
Джуниор
 
Регистрация: 25.11.2012
Сообщений: 2
По умолчанию перевести программу с языка C# на язык Pascal

Код:
            double a = 2;
            double check = a/3;
            double skaititajs = 0;
            double skaitlis = 0;
            double summa = 0;
            bool ope = false;

            skaitlis = Math.Pow(2, skaititajs);
            summa = (1 / skaitlis); 
            skaititajs = skaititajs + 1; 

            while (true) 
            {
                skaitlis = Math.Pow(2, skaititajs); 

                if (ope == false) 
                {
                    summa = summa - (1 / skaitlis);
                    skaititajs = skaititajs + 1; 
                    ope = true; 
                }

                else if (ope == true) 
                {
                    summa = summa + (1 / skaitlis);
                    skaititajs = skaititajs + 1;
                    ope = false;
                }

                if (summa == check) 
                {
                    break; 
                }

            }

            Console.WriteLine(skaititajs - 1);


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 25.11.2012 в 03:26.
_SoTo_ вне форума Ответить с цитированием
Старый 25.11.2012, 03:29   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

во-первых, приказывать здесь не надо!

во-вторых, Pascal - Pascal'ю - рознь! У Вас какой?

в-третьих, всё переносится один в один, только операция Math.Pow() нужна. Если это Delphi - берите функцию Power, иначе - реализовывайте возведение в степень своими силами!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.11.2012, 03:38   #3
_SoTo_
Новичок
Джуниор
 
Регистрация: 25.11.2012
Сообщений: 2
По умолчанию

у меня borland turbo pascal
_SoTo_ вне форума Ответить с цитированием
Старый 25.11.2012, 03:53   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

тогда берите функцию отсюда - http://bpascal.ru/download/desc/436.php
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перевести программу рисования графиков с Pascal на Delphi DooD Помощь студентам 5 19.05.2011 23:15
Разработать учебную программу для проверки знаний студентами алфавита языка Pascal dimok5 Паскаль, Turbo Pascal, PascalABC.NET 1 06.04.2011 11:38
переведите программу с языка с++ на язык делфи... cdznsdg Помощь студентам 0 17.03.2011 01:14
нужно перевести программу из Turbo Pascal в Delphi Insensible Doll Помощь студентам 3 27.05.2010 13:41
Перевести программу с языка Паскаль в язык С# Gigatrest Помощь студентам 13 07.03.2009 13:41