Apple iPod Touch форум посвященный плееру

Текущее время: Пн янв 18, 2021 17:15

Часовой пояс: UTC + 3 часа




Форум закрыт Эта тема закрыта, Вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 19 ]  На страницу 1, 2  След.
Автор Сообщение
Не в сети
 Заголовок сообщения: Ололо,проверьте мою прогу)
СообщениеДобавлено: Чт мар 17, 2011 18:56 
Аватар пользователя

Зарегистрирован: Вс дек 27, 2009 14:19
Сообщений: 883
Репутация: 12 [ ? ]
Группа: Старожилы
Гаджет: iPad
Версия прошивки: 4.3.5
Итак,первый день работы в паскале,оцените чтоль :D Прога для вычисления корней квадратного уравнения.
Интересно,запустится она у вас вообще?)
Алгоритм действия:
1)вводим коэффиценты уравнения(a,b,c).Через enter.
2)получаем ответы.
Примечания:
1)Программа закравается,если дискриминант отрицательный->корней нет.Просто не разобрался еще с if,then,else модулем :(
2)При значении дискриминанта=0,уравнение имеет один корень,но в программе пишется 2 одинаковых.Как исправить это,пока еще не придумал,да и надо ли? :)
Программа для меня была бы актуальна классе в 8,потом пришлось научиться самому быстро считать :)
Может пригодится кому,программа до боли простая.Выложил просто потому,что когда-то сам искал программу такую и не нашел.
Итак,ОРЕХ 1.0:
http://narod.ru/disk/8482230001/OPEX.EXE.html


Последний раз редактировалось koorill Сб мар 26, 2011 20:17, всего редактировалось 1 раз.

Вернуться наверх
 Профиль Отправить личное сообщение  
 

Ололо,проверьте мою прогу)

Реклама
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Чт мар 17, 2011 19:50 
Аватар пользователя

Зарегистрирован: Ср ноя 26, 2008 1:13
Сообщений: 1268
Откуда: Nowhere
Репутация: 60 [ ? ]
Группа: Разработчики
Гаджет: iPod Touch 1G
Версия прошивки: 4.0
Щас кто-то ещё пишет консольные приложения?)
И кстати как это относится к форуму "Программы для iPod Touch"?

_________________
Просьба не задавать мне вопросы в личку, т.к. больше не занимаюсь iPhone/iPod Touch (причём давно)

www.appdb.ru Зеркало AppTrackr.org [crossbrowser, поиск видео]
apt.appdb.ru Мой Cydia репозиторий
faq.appdb.ru Настройка iTunnel, установка ipa/deb, интернет через USB
dev.appdb.ru QInit App и QInit Upload - Cофт для быстрой установки .ipa и .deb


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Чт мар 17, 2011 19:54 
Аватар пользователя

Зарегистрирован: Сб янв 08, 2011 9:53
Сообщений: 8909
Откуда: Москва
Репутация: 160 [ ? ]
Группа: Модераторы
Гаджет: iPod Touch 4G
Версия прошивки: 5.0.1
Я пишу
Иногда
Тут программы для винды :)


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Чт мар 17, 2011 20:02 
Аватар пользователя

Зарегистрирован: Ср ноя 26, 2008 1:13
Сообщений: 1268
Откуда: Nowhere
Репутация: 60 [ ? ]
Группа: Разработчики
Гаджет: iPod Touch 1G
Версия прошивки: 4.0
Для ipt для винды)

_________________
Просьба не задавать мне вопросы в личку, т.к. больше не занимаюсь iPhone/iPod Touch (причём давно)

www.appdb.ru Зеркало AppTrackr.org [crossbrowser, поиск видео]
apt.appdb.ru Мой Cydia репозиторий
faq.appdb.ru Настройка iTunnel, установка ipa/deb, интернет через USB
dev.appdb.ru QInit App и QInit Upload - Cофт для быстрой установки .ipa и .deb


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Чт мар 17, 2011 20:09 

Зарегистрирован: Ср июл 14, 2010 1:44
Сообщений: 195
Репутация: 1 [ ? ]
Группа: Меценаты
Гаджет: iPod Touch 2G
Версия прошивки: 3.1.3
при 0 дискриминанте и должно получаться 2 одинаковых корня, просто в школе всегда 1 записывают


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Сб мар 26, 2011 19:33 
Аватар пользователя

Зарегистрирован: Пн дек 06, 2010 21:40
Сообщений: 191
Откуда: Dnipropetrovsk, Ukraine
Репутация: 5 [ ? ]
Группа: Зарегистрированные пользователи
Гаджет: iPod Touch 4G
Версия прошивки: 4.1
Да, сделай проверку на нулевой дискриминант, тогда там другая формула.

ну и завязывай с паскалем - С учи, он лучше как по мне.


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Сб мар 26, 2011 19:56 
Аватар пользователя

Зарегистрирован: Вс дек 27, 2009 14:19
Сообщений: 883
Репутация: 12 [ ? ]
Группа: Старожилы
Гаджет: iPad
Версия прошивки: 4.3.5
Denfox писал(а):
Да, сделай проверку на нулевой дискриминант, тогда там другая формула.

ну и завязывай с паскалем - С учи, он лучше как по мне.

Да нах бы мне паскаль не нужен был бы,если бы не школа)


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Сб мар 26, 2011 19:59 
Аватар пользователя

Зарегистрирован: Пн фев 07, 2011 17:38
Сообщений: 494
Репутация: 12 [ ? ]
Группа: Старожилы
Гаджет: iPod Touch 5G
Версия прошивки: 6.1.3
Game Center: core2two
А пробую рисовалку на визуал бэйзик собрать:D только там 4 цвета)

_________________
Изображение Изображение


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Сб мар 26, 2011 20:16 
Аватар пользователя

Зарегистрирован: Вс дек 27, 2009 14:19
Сообщений: 883
Репутация: 12 [ ? ]
Группа: Старожилы
Гаджет: iPad
Версия прошивки: 4.3.5
Подновил,теперь если дискриминант отрицательный,он пишет корней нет.
http://narod.ru/disk/8482230001/OPEX.EXE.html


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Сб мар 26, 2011 21:26 
Аватар пользователя

Зарегистрирован: Пн дек 06, 2010 21:40
Сообщений: 191
Откуда: Dnipropetrovsk, Ukraine
Репутация: 5 [ ? ]
Группа: Зарегистрированные пользователи
Гаджет: iPod Touch 4G
Версия прошивки: 4.1
И Visual Basic не нужен. Сейчас на пике - С/C++ - на них базируется чуть ли не каждый другой обьектно-ориентированный язык... PHP, например - то же C, немного с измененной лексикой.
В том же списке Objective C, который используется для написания прог под iOS.

Существует ведь Visual C - советую, если хочешь заниматься программировнием, его начать изучать.


Если вдруг интересно - я тоже писал прогу такую когда-то в школе.
вот код. скопируй, скомпилируй. ( на кодировку не обращай внимания - в DOS оболочке она превратится в русский язык, это OEM 866

p.s. а вообще в этом коде есть недочеты - например программы надо стараться писать без goto - так меньше нагрузка на проц ( а на старых компах это было заметно) да и в коде потом удобнее разобраться как-то... это считается "хорошим тоном программировния".
Код:
Program sqr_ur;
label 1,io;
var
   y1: char;
   a,b,c: integer;
   d: real;
   x,y: real;
begin


   writeln('_______  _____  _     _       _____   ______  _____   ______');
   writeln('|______ |     |  \___/       |_____] |_____/ |     | |  ____');
   writeln('|       |_____| _/   \_      |       |    \_ |_____| |_____|');
   writeln('„®Ўа® Ї®¦ «®ў вм ў Їа®Ја ¬¬г аҐиҐ­Ёп Єў ¤а в­ле га®ў­Ґ­Ё©!');

   writeln('„«п Їа®¤®«¦Ґ­Ёп ­ ¦¬ЁвҐ «оЎго Є­®ЇЄг.');
   readln;
      while  y1<>'y' do
begin
  1:writeln('‚ўҐ¤ЁвҐ  , b Ё б зҐаҐ§ Їа®ЎҐ« Ё ­ ¦¬ЁвҐ Є­®ЇЄг Enter.');
   read(a,b,c);
   d:= (b*b)-(4*a*c);
   if (d=0) then
      begin
      Writeln('„ЁбЄаЁ¬Ё­ ­в а ўҐ­ ­г«о   §­ зЁв ўлзЁб«Ґ­Ёп Ї®©¤гв Ї® ¤агЈ®© д®а¬г«Ґ.');
      x:=((-1)*(b/2*a));

      Writeln('X=', X:6:2);

      goto io;
 
    end;
   if (d<0) then
      begin
      writeln('„ЁбЄаЁ¬Ё­ ­в ¬Ґ­миҐ ­г«п. “а®ў­Ґ­ЁҐ ­Ґ Ё¬ҐҐв аҐиҐ­Ё©. Ќ ¦¬ЁвҐ «оЎго Є­®ЇЄг, зв®Ўл ­ з вм б­ з « .');
      readln;
      readln;
      goto 1;
    end;
   Writeln('„ЁбЄаЁ¬Ё­ ­в а ўҐа', d:6:2,'Ќ ¦¬ЁвҐ Єг¤ -­Ёвм, зв®Ўл Їа®¤®«¦Ёвм.');
   readln;
   x:= (b*(-1)+sqrt(d))/(a*2);
   y:= (b*(-1)-sqrt(d))/(a*2);
   Writeln('X1=', x:6:2);
   writeln('X2=', y:6:2);
   io:writeln('“а ў­Ґ­ЁҐ аҐиҐ­®! ‚л室? (Y/N)');  read (y1);

   end;
end.


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Сб мар 26, 2011 21:49 
Аватар пользователя

Зарегистрирован: Вс дек 27, 2009 14:19
Сообщений: 883
Репутация: 12 [ ? ]
Группа: Старожилы
Гаджет: iPad
Версия прошивки: 4.3.5
Denfox писал(а):
И Visual Basic не нужен. Сейчас на пике - С/C++ - на них базируется чуть ли не каждый другой обьектно-ориентированный язык... PHP, например - то же C, немного с измененной лексикой.
В том же списке Objective C, который используется для написания прог под iOS.

Существует ведь Visual C - советую, если хочешь заниматься программировнием, его начать изучать.


Если вдруг интересно - я тоже писал прогу такую когда-то в школе.
вот код. скопируй, скомпилируй. ( на кодировку не обращай внимания - в DOS оболочке она превратится в русский язык, это OEM 866

p.s. а вообще в этом коде есть недочеты - например программы надо стараться писать без goto - так меньше нагрузка на проц ( а на старых компах это было заметно) да и в коде потом удобнее разобраться как-то... это считается "хорошим тоном программировния".
Код:
Program sqr_ur;
label 1,io;
var
   y1: char;
   a,b,c: integer;
   d: real;
   x,y: real;
begin


   writeln('_______  _____  _     _       _____   ______  _____   ______');
   writeln('|______ |     |  \___/       |_____] |_____/ |     | |  ____');
   writeln('|       |_____| _/   \_      |       |    \_ |_____| |_____|');
   writeln('„®Ўа® Ї®¦ «®ў вм ў Їа®Ја ¬¬г аҐиҐ­Ёп Єў ¤а в­ле га®ў­Ґ­Ё©!');

   writeln('„«п Їа®¤®«¦Ґ­Ёп ­ ¦¬ЁвҐ «оЎго Є­®ЇЄг.');
   readln;
      while  y1<>'y' do
begin
  1:writeln('‚ўҐ¤ЁвҐ  , b Ё б зҐаҐ§ Їа®ЎҐ« Ё ­ ¦¬ЁвҐ Є­®ЇЄг Enter.');
   read(a,b,c);
   d:= (b*b)-(4*a*c);
   if (d=0) then
      begin
      Writeln('„ЁбЄаЁ¬Ё­ ­в а ўҐ­ ­г«о   §­ зЁв ўлзЁб«Ґ­Ёп Ї®©¤гв Ї® ¤агЈ®© д®а¬г«Ґ.');
      x:=((-1)*(b/2*a));

      Writeln('X=', X:6:2);

      goto io;
 
    end;
   if (d<0) then
      begin
      writeln('„ЁбЄаЁ¬Ё­ ­в ¬Ґ­миҐ ­г«п. “а®ў­Ґ­ЁҐ ­Ґ Ё¬ҐҐв аҐиҐ­Ё©. Ќ ¦¬ЁвҐ «оЎго Є­®ЇЄг, зв®Ўл ­ з вм б­ з « .');
      readln;
      readln;
      goto 1;
    end;
   Writeln('„ЁбЄаЁ¬Ё­ ­в а ўҐа', d:6:2,'Ќ ¦¬ЁвҐ Єг¤ -­Ёвм, зв®Ўл Їа®¤®«¦Ёвм.');
   readln;
   x:= (b*(-1)+sqrt(d))/(a*2);
   y:= (b*(-1)-sqrt(d))/(a*2);
   Writeln('X1=', x:6:2);
   writeln('X2=', y:6:2);
   io:writeln('“а ў­Ґ­ЁҐ аҐиҐ­®! ‚л室? (Y/N)');  read (y1);

   end;
end.

Да я хз,как в пас вставлять:(
Но по ходу то же самое,только с какими-то рисуночками)


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Сб мар 26, 2011 22:11 
Аватар пользователя

Зарегистрирован: Ср ноя 26, 2008 1:13
Сообщений: 1268
Откуда: Nowhere
Репутация: 60 [ ? ]
Группа: Разработчики
Гаджет: iPod Touch 1G
Версия прошивки: 4.0
Denfox писал(а):
И Visual Basic не нужен. Сейчас на пике - С/C++ - на них базируется чуть ли не каждый другой обьектно-ориентированный язык... PHP, например - то же C, немного с измененной лексикой.
В том же списке Objective C, который используется для написания прог под iOS.

Существует ведь Visual C - советую, если хочешь заниматься программировнием, его начать изучать.

Можно писать на .NET, тогда без разницы, хоть на бейсике, хоть на С#.
А паскаль более удобен в изучении, т.к. выражения на нём более длинные и понятные.
Сам писал на разных языках, сложность освоения имхо в таком порядке: C#, Obj Pascal, C++, ObjC. PHP кстати ещё проще, там уже все функции за тебя написаны, только параметры подставляй))

И что бы кто не говорил про приемущества C/C++, я всё равно буду писать на Obj Pascal (Delphi), т.к. на нём можно писать не хуже, чем на С, за 10 лет я это точно понял :)

_________________
Просьба не задавать мне вопросы в личку, т.к. больше не занимаюсь iPhone/iPod Touch (причём давно)

www.appdb.ru Зеркало AppTrackr.org [crossbrowser, поиск видео]
apt.appdb.ru Мой Cydia репозиторий
faq.appdb.ru Настройка iTunnel, установка ipa/deb, интернет через USB
dev.appdb.ru QInit App и QInit Upload - Cофт для быстрой установки .ipa и .deb


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Сб апр 09, 2011 22:18 

Зарегистрирован: Чт май 06, 2010 18:31
Сообщений: 157
Откуда: Москва
Репутация: 2 [ ? ]
Группа: Зарегистрированные пользователи
Гаджет: iPod Touch 4G
Версия прошивки: 6.0 beta
в каком вы классе? :D

_________________
apple! think different!


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Вс апр 10, 2011 6:01 
Аватар пользователя

Зарегистрирован: Вс дек 27, 2009 14:19
Сообщений: 883
Репутация: 12 [ ? ]
Группа: Старожилы
Гаджет: iPad
Версия прошивки: 4.3.5
Dankin96 писал(а):
в каком вы классе? :D

В 11...
А что?


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Не в сети
 Заголовок сообщения: Re: Ололо,проверьте мою прогу)
СообщениеДобавлено: Вс апр 10, 2011 21:46 

Зарегистрирован: Чт май 06, 2010 18:31
Сообщений: 157
Откуда: Москва
Репутация: 2 [ ? ]
Группа: Зарегистрированные пользователи
Гаджет: iPod Touch 4G
Версия прошивки: 6.0 beta
да нет интересно в каком классе буду это изучать :D я в 9)

_________________
apple! think different!


Вернуться наверх
 Профиль Отправить личное сообщение  
 
Показать сообщения за:  Сортировать по:  
Форум закрыт Эта тема закрыта, Вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 19 ]  На страницу 1, 2  След.

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения

Найти:
Перейти:  
cron

Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB
[ Time : 0.084s | 20 Queries | GZIP : On ]