Программирование на Pascal - satsat.info
     
-Российская Федерация: прошлое, настоящее, будущее. 2020 paren`ok
-Украина: прошлое, настоящее, будущее. 2022 paren`ok
-BISS ключи на FEED. 2024 yzek65
-ПОГОДА в данный момент 2024 yzek65
-Казахстан (новости и обсуждение) paren`ok
-Rock music - Видео исполнителей schachmat
-Еврокубки peresihne
-БАСКЕТБОЛ. peresihne
-Kомпьютерные игры и всё ,что с ними связано. peresihne
-ВСЕМ ЛЮБИТЕЛЯМ NBA peresihne
-Все о кино и что с этим связано peresihne
-БОКС peresihne
-Смешанные боевые искусства (Бои без правил) peresihne
-Биатлон peresihne
-Все о допинге в спорте peresihne
-Шахматы peresihne
-Космос 2024 peresihne
-Музыка и исполнители 80-ых. Nikolai2a
-Новости мобильного мира!!! peresihne
-КХЛ peresihne
-Рэп (Хип-хоп) - Видео исполнителей Nikolai2a
-Свободное общение 2024 Fedja L
-«Киевстар» (Оператор мобильной связи) peresihne
-Анонсы телеканала ТНТ peresihne
-Скорбим...2024 peresihne
-Yandex.Браузер peresihne
-Знаменательные события истории в этот день peresihne
-Новости цифровой техники peresihne
-Компьютерные новости peresihne
-Новость, касающаяся пользователей Интернета 2024 peresihne
-Спутниковые новости одной строкой peresihne
-ЭТО СТОИТ ПОСЛУШАТЬ! Делимся любимой музыкой! San-Sanich
-ТВ новости (Самые свежие) 2024 peresihne
-ТЕННИС peresihne
-НХЛ. peresihne
-IPTV каналы pietro
-Музыка и песни восточных и кавказских исполнителей. Nikolai2a
-Техника San-Sanich
-Techno music - Видео исполнителей San-Sanich
-Electronic music - Видео исполнителей San-Sanich
-это интересно. Olexijj
-Новости IPTV и интернет-телевидения kuki1
-4.8E Транспондерные новости 2019 kuki1
-Акции и Конкурсы от "Телекарта"--"Телекарта HD" kuki1
-26°E Транспондерные новости. kuki1
-Транспондерные новости Eutelsat 8 West A/D - 8.0°W kuki1
-Детское телевидение (только новости, без обсуждения) kuki1
-Новости о запуске спутников... kuki1
-Транспондерные новости Eutelsat 7 West A & Nilesat 102/201, 7°W kuki1
-Транспондерные новости Astra 28.2E/Eutelsat 28A (Eurobird 1) 28.5°E kuki1
-Транспондерные новости Intelsat 17, 66.0°E kuki1
-SRTV [Eutelsat W3C(16.0°E)] Biss yzek65
-Азербайджан : Вчера , Сегодня и Завтра Fantomas Barabas
-Український гумор yyyyyhhh
-Транспондерные новости Intelsat 12, 45 ° East & Galaxy 27, 45.1° East Olexijj
новые сообщения... остальные сообщения...




Разместите рекламу здесь! Напишите на телегу @VOPROS24


!!!



Вернуться   satsat.info > РАЗНОЕ > Компьютерный мир... > ПРОГРАММИРОВАНИЕ

ПРОГРАММИРОВАНИЕ ПРОГРАММИРОВАНИЕ (вопросы/ответы)

Ответ
 
LinkBack Опции темы Опции просмотра
Старый 28.05.2013, 21:33   #1
Fantom3 Меню пользователя Fantom3 показать/скрыть дополнительную инфу?
участник
12,013 50431 100555
online: 7мес0нед3д11ч17м
🇺🇦🇺🇦🇺🇦🇺🇦🇺🇦
По умолчанию Программирование на Pascal

Всем привет! На форуме создан новый раздел ПРОГРАММИРОВАНИЕ, для кто занимается программированием или хочет научится программировать.

И начнем мы, с программирования на языке Pascal. Почему именно с него? Просто для меня, думаю и для других, он самый легкий в изучении, если сравнивать его к примеру с С и С++.

читать дальше
В данной теме, постараюсь ответить ваши вопросы, постараюсь научить делать простенькие программы, так же попробуем сделать программы касающиеся спутникового телевидения.

Надеюсь, кому то будет интересно.

Последний раз редактировалось oltush; 31.05.2013 в 13:53.
вне форума  
Старый 28.05.2013, 22:21   #2 (permalink)
Nikolai. Меню пользователя Nikolai. показать/скрыть дополнительную инфу?
наш человек
1,612 3638 6789
online: 1мес2нед0д15ч20м
Россия Тюмень!
 
Аватар для Nikolai.
По умолчанию

Отличная тема +5
вне форума  
2 спасибо:
Старый 28.05.2013, 23:03   #3 (permalink)
Fantom3 Меню пользователя Fantom3 показать/скрыть дополнительную инфу?
участник
12,013 50431 100555
online: 7мес0нед3д11ч17м
🇺🇦🇺🇦🇺🇦🇺🇦🇺🇦
По умолчанию Первая программа.

Первая программа, с которой я попытаюсь вас познакомить, будет простенькая программа вывода текста, к примеру "Hello SatSat !!!".

Для вывода текста на экран в паскале используются команды write и writeln, команда writeln отличается тем что переводит курсор на новый рядок.

Такая программа состоит с 5 строчек кода:
Код:
program SatSat;
begin
  writeln('Hello SatSat !!!');
  readln;
end.
Без имени-1.jpgБез имени-2.jpg

Начнем с первой строчки:

program SatSat; - программа написанная на паскале начинается с служебного слова program . Далее идет название программы, оно может быть произвольным, может состоять из цифр с символами, только цифра не может занимать первое место, первой должна быть буква. И в конце рядка всегда ставим ; за исключением если после строчки стоит else, о котором тоже вскоре будет йти речь.

begin - далее мы видим служебное слово begin, что значит начало команды.

writeln('Hello SatSat !!!'); - собственно команда writeln о которой писалось выше, она выводить на экран Hello SatSat !!!

readln; - это команда ввода которая ждет ввода текста. Зачем она здесь? Если бы там не было команды readln то программа открывалась бы и сразу же закрывалась, почти незаметно, команда readln приостанавливает работу программы, до тех пор пока не будет нажат Enter.

end. - конец команды.

Надеюсь понятно, если есть вопросы спрашивайте.

Последний раз редактировалось Fantom3; 28.05.2013 в 23:05.
вне форума  
Старый 30.05.2013, 16:24   #4 (permalink)
Fantom3 Меню пользователя Fantom3 показать/скрыть дополнительную инфу?
участник
12,013 50431 100555
online: 7мес0нед3д11ч17м
🇺🇦🇺🇦🇺🇦🇺🇦🇺🇦
По умолчанию

Теперь попробуем сделать, простую программку которая уже выполняет некоторые логичные действия. Например, сделаем калькулятор с помощью которого можно добавлять, отнимать, делить, умножать.

Такой калькулятор я решил организовать таким способом:
Код:
program Calkulator;
uses 
  crt;
var
  a,b:real;
  c:char;
begin
  clrscr;
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);
  write('Введите знак действия: ');
  readln(c);
  case c of
    '+': writeln('Результат: ',a+b);
    '*': writeln('Результат: ',a*b);
    '/': writeln('Результат: ',a/b);
    '-': writeln('Результат: ',a-b);
  else 
    writeln('Вы ввели не верный знак действия!');
  end;
  readln;
end.
С помощью оператора выбора case.
Без имени-1.jpg

Давайте рассмотрим по частям эту программу:
Код:
uses 
  crt;
Подключение модуля crt, с помощью него можно много чего сделать, но я использовал его для очищения экрана.
________________________________________ ________________________________________ ______


Код:
var
  a,b:real;
  c:char;
var - раздел в котором описываются переменные, a - первое число, b - второе число, далее указывается тип переменных в данным случае конечно же указываем числовой тип real.
Переменная c отвечает за знак действия, и тип соответственно символьный - char.
________________________________________ ________________________________________ ______


Код:
 clrscr;
clrscr - очистка экрана.
________________________________________ ________________________________________ ______


Код:
write('Введите первое число: ');
  readln(a);
Команда write выводить на экран "Введите первое число:".
Команда readln(a) присваивает значение введенное с клавиатуры - переменной а.
Далее аналогично присваивается значение переменным b,c.
________________________________________ ________________________________________ ______


Код:
case c of
    '+': writeln('Результат: ',a+b);
    '*': writeln('Результат: ',a*b);
    '/': writeln('Результат: ',a/b);
    '-': writeln('Результат: ',a-b);
  else 
    writeln('Вы ввели не верный знак действия!');
  end;
Как я и говорил будет использоваться оператор case, на примере этой программы объясню как он работает.
Если переменной c, присвоить значение значение "+", то будет выполняться команда "a+b", если значение "-", то будет выполняться команда "a-b", если "*" - то "a*b", если "/" то "a/b".
Если переменной c присвоить любое другое значение, то на экран будет выведено Вы ввели не верный знак действия!.

Вот и вся программа.

Скачать исходники proga.zip.

В вложении ниже собрано очень много самой нужной информации о Паскале, которую сложно найти в интернете.
Вложения
Тип файла: zip pascal.zip (171.4 Кб, 21 просмотров)

Последний раз редактировалось Fantom3; 30.05.2013 в 16:27.
вне форума  
5 спасибо:
Старый 31.05.2013, 02:11   #5 (permalink)
oltush Меню пользователя oltush показать/скрыть дополнительную инфу?
модератор
7,296 26474 37408
online: 8мес2нед2д1ч27м
Беларусь Брест Малорита Олтуш
 
Аватар для oltush
По умолчанию

Fantom3, надо бы подправить первый пост и закрепить его, разместив там основную информацию и ссылки на дистрибутивы.

P.S. Turbo Pascal - им уже мало кто пользуется, в основном - Free Pascal.
Offtop
Добавлено через 3 минуты
да забыл, для тех кому лень скачивать программы - имеется web-среда PascalABC.Net, т.е. позволяет в самом браузере проделывать те же действия. Находится по адресу:
Скрытый текст (вы должны зарегистрироваться или войти под своим логином):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.

Последний раз редактировалось oltush; 31.05.2013 в 02:15. Причина: Добавлено сообщение
вне форума  
5 спасибо:
Старый 31.05.2013, 12:48   #6 (permalink)
Fantom3 Меню пользователя Fantom3 показать/скрыть дополнительную инфу?
участник
12,013 50431 100555
online: 7мес0нед3д11ч17м
🇺🇦🇺🇦🇺🇦🇺🇦🇺🇦
По умолчанию

Цитата:
Сообщение от oltushПосмотреть сообщение
надо бы подправить первый пост и закрепить его, разместив там основную информацию и ссылки на дистрибутивы.

Добавил, вся нужная информация есть в вложении в первом посте, правда на Украинском языке, с университета осталось еще.
вне форума  
2 спасибо:
Старый 01.06.2013, 19:14   #7 (permalink)
Fantom3 Меню пользователя Fantom3 показать/скрыть дополнительную инфу?
участник
12,013 50431 100555
online: 7мес0нед3д11ч17м
🇺🇦🇺🇦🇺🇦🇺🇦🇺🇦
По умолчанию

Расчет, азимута, угла места, угла поворота конвертера спутниковой антенны - делаем программу с таким функционалом.

Формулы я подготовил заранее, они идентичные формулам онлайн версии программы http://satsat.info/satcalc.php, просто переписаны на язык Паскаль.

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 15 сообщение(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.


Ничего нового там нет, просто линейные вычисления, но по-практиковаться для новичков в самый раз.

Скачать исходники SatCalc.zip

Думаю, вскоре выложу подобною программу, но уже с более большим функционалом и понятным интерфейсом, написанную на Delphi.
вне форума  
2 спасибо:
Старый 01.12.2013, 13:40   #8 (permalink)
online: 13час16мин
Киев
По умолчанию

Жаль только, что Pascal/Delphi теряет свои позиции в последнее время
вне форума  
Старый 11.02.2014, 20:49   #9 (permalink)
online: 5час59мин
По умолчанию

В ВУЗах паскаль все так же живее всех живых =)
вне форума  
1 спасибо:
Старый 11.02.2014, 23:16   #10 (permalink)
oltush Меню пользователя oltush показать/скрыть дополнительную инфу?
модератор
7,296 26474 37408
online: 8мес2нед2д1ч27м
Беларусь Брест Малорита Олтуш
 
Аватар для oltush
По умолчанию

Цитата:
Сообщение от key.dachПосмотреть сообщение
В ВУЗах паскаль все так же живее всех живых =)

Ну так основы или азы программирования надо же на чем-то преподавать. А с другой стороны посмотрите на преподавателей этих ВУЗов и получили утвердительный ответ по поводу смены языка программирования.
вне форума  
Ответ


Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


-Российская Федерация: прошлое, настоящее, будущее. 2020 paren`ok
-Украина: прошлое, настоящее, будущее. 2022 paren`ok
-BISS ключи на FEED. 2024 yzek65
-ПОГОДА в данный момент 2024 yzek65
-Казахстан (новости и обсуждение) paren`ok
-Rock music - Видео исполнителей schachmat
-Еврокубки peresihne
-БАСКЕТБОЛ. peresihne
-Kомпьютерные игры и всё ,что с ними связано. peresihne
-ВСЕМ ЛЮБИТЕЛЯМ NBA peresihne
-Все о кино и что с этим связано peresihne
-БОКС peresihne
-Смешанные боевые искусства (Бои без правил) peresihne
-Биатлон peresihne
-Все о допинге в спорте peresihne
-Шахматы peresihne
-Космос 2024 peresihne
-Музыка и исполнители 80-ых. Nikolai2a
-Новости мобильного мира!!! peresihne
-КХЛ peresihne
-Рэп (Хип-хоп) - Видео исполнителей Nikolai2a
-Свободное общение 2024 Fedja L
-«Киевстар» (Оператор мобильной связи) peresihne
-Анонсы телеканала ТНТ peresihne
-Скорбим...2024 peresihne
-Yandex.Браузер peresihne
-Знаменательные события истории в этот день peresihne
-Новости цифровой техники peresihne
-Компьютерные новости peresihne
-Новость, касающаяся пользователей Интернета 2024 peresihne
-Спутниковые новости одной строкой peresihne
-ЭТО СТОИТ ПОСЛУШАТЬ! Делимся любимой музыкой! San-Sanich
-ТВ новости (Самые свежие) 2024 peresihne
-ТЕННИС peresihne
-НХЛ. peresihne
-IPTV каналы pietro
-Музыка и песни восточных и кавказских исполнителей. Nikolai2a
-Техника San-Sanich
-Techno music - Видео исполнителей San-Sanich
-Electronic music - Видео исполнителей San-Sanich
-это интересно. Olexijj
-Новости IPTV и интернет-телевидения kuki1
-4.8E Транспондерные новости 2019 kuki1
-Акции и Конкурсы от "Телекарта"--"Телекарта HD" kuki1
-26°E Транспондерные новости. kuki1
-Транспондерные новости Eutelsat 8 West A/D - 8.0°W kuki1
-Детское телевидение (только новости, без обсуждения) kuki1
-Новости о запуске спутников... kuki1
-Транспондерные новости Eutelsat 7 West A & Nilesat 102/201, 7°W kuki1
-Транспондерные новости Astra 28.2E/Eutelsat 28A (Eurobird 1) 28.5°E kuki1
-Транспондерные новости Intelsat 17, 66.0°E kuki1
-SRTV [Eutelsat W3C(16.0°E)] Biss yzek65
-Азербайджан : Вчера , Сегодня и Завтра Fantomas Barabas
-Український гумор yyyyyhhh
-Транспондерные новости Intelsat 12, 45 ° East & Galaxy 27, 45.1° East Olexijj
-Террористы ХАМАС объявили войну Израилю San-Sanich
-Транспондерные новости ChinaSat 11 at 98.0°E San-Sanich
-Транспондерные новости AsiaSat 4. 122.2*E San-Sanich
-90°E Ямал 401, транспондерные новости. yuriy56
-Latest BISS keys yzek65
-Республика Беларусь сегодня paren`ok
-Музыка в формате 3D. Nikolai2a
-Telegrаm messenger peresihne
-Велоспорт peresihne
-Шорт-трек peresihne
-«LIFECELL Украина (LIFE)» (Оператор мобильной связи) peresihne
-UHDTV-Телевидение сверхвысокой чёткости. Новости (без обсуждения) simon65
-Новости HDTV simon65
-Google Chrome – новый браузер peresihne
-Windows 11 peresihne
-Кабельные операторы Киева peresihne
-Новости операторов спутникового телевидения peresihne
-ПО для спутниковых ресиверов Geant HD yzek65
-PREMIUM-HD yzek65
-13°E HotBird. Транспондерные новости. 2024 Olexijj
-Транспондерные новости Astra 3A/3В, Thor-2 - 23.5° East kuki1
-Инструментальная Музыка Olexijj
-Соединённые Штаты Америки вчера, сегодня, завтра San-Sanich
-Футбольное обозрение. 2023 schachmat
-Новости и новинки зарубежного кино. San-Sanich
-16.0°E Транспондерные новости. 2018 kuki1
-Фид каналы для любителей спорта. San-Sanich
-Новости провайдера Триколор ТВ и Триколор HD kuki1
-36°E, транспондерные новости. 2018 kuki1
-Транспондерные новости Astra 19.2°E kuki1
-Транспондерные новости Intelsat 10-02 - Thor 5/6 0.8 West kuki1
-Транспондерные новости TurkmenAlem (MonacoSat), 52°E kuki1
-9.0°E Транспондерные новости 2018 kuki1
-Транспондерные новости 2024 paren`ok
-68.5°E Транспондерные новости. 2018 paren`ok
-Прошивки для моделей Tiger yzek65
-MEDIASTAR yzek65
-Чемпионат УКРАИНЫ по хоккею с шайбой !!! peresihne
-OPENBOX SOFT (здесь только СОФТ/прошивки/обновления) yzek65
-Новинки игрового мира peresihne

–> Ваша реклама может быть здесь... пишите на телегу @VOPROS24


Часовой пояс GMT +3, время: 10:31.


Весь материал, представленный на сайте взят из доступных источников или прислан посетителями сайта.
Любая информация представленная здесь, может использоваться только в ознакомительных целях.
Входя на сайт вы автоматически соглашаетесь с данными условиями.
Ни администрация сайта, ни хостинг-провайдер, ни любые другие лица не могут нести отвественности за использование материалов.
Сайт не предоставляет электронные версии произведений и ПО.
Все права на публикуемые аудио, видео,
графические и текстовые материалы принадлежат их владельцам.
Если Вы являетесь автором материала или обладателем
авторских прав на него и против его использования
на сайте, пожалуйста свяжитесь с нами.

Перевод: zCarot
Powered by vBulletin®
Copyright ©, Jelsoft Enterprises Ltd.

Зарегистрирована на satsat.info Реклама может быть здесь...
satsat.info TV SAT спутник ключи тюнер код кодировка карты прошивки dreambox IPTV каналы
globo openbox biss via hotbird sirius amos
abs настройка тарелка программы
Page generated in 0.13497 seconds with 19 queries