Программирование на Pascal - Страница 2

**Fantom3** · 28.05.2013, 20:33

Всем привет!

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

И начнем мы, с программирования на языке Pascal

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

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

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

key.dach · 12.02.2014, 06:11

Цитата:

Сообщение от oltush


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

Угу, лично для меня синтаксис паскаля так и остался лучшим. Куда понятней чем си/жава. Там одни тернарные операторы чего стоят =)

Код:

Proxy p = proxy == Proxy.NO_PROXY ? Proxy.NO_PROXY : sun.net.ApplicationProxy.create(proxy);

romanabram · 11.03.2016, 22:36

почему шарик назад не летит?всм где ошибка?

вот код:

Код:

uses
  GraphABC;

begin
  setwindowsize(600, 200);
  pen.Color:=clskyblue;
  brush.Color:=clskyblue;
  lockdrawing;
  for var c := 0 to 300 do
  begin
    window.clear(clwhite);
    circle(c + 100, 100, 25);
    redraw;
  end;
  unlockdrawing;
  
  lockdrawing;
  for var c := 300 to 0 do
  begin
    window.clear(clwhite);
    circle(c + 100, 100, 25);
    redraw;
  end;
end.

-----------------------------

последняя версия PascalABC_____(с оф. сайта качал)

-----------------------------
разобрался сам)))

вот что получилось(но это уже вся-вся работа):

Код:

uses
  GraphABC;

begin
  setwindowsize(600, 200);
  lockdrawing;
  for var c := 0 to 300 do
  begin
    window.clear(clwhite);
    pen.Color := clskyblue;
    brush.Color := clskyblue;
    circle(c + 100, 100, 25);
    pen.Color := clsilver;
    brush.Color := clsilver;
    rectangle(426, 25, 476, 175);
    sleep(15);
    redraw;
  end;
  unlockdrawing;  
  lockdrawing;
  for var c := 0 to 300 do
  begin
    window.clear(clwhite);
    pen.Color := clskyblue;
    brush.Color := clskyblue;
    circle(400 - c, 100, 25);
    pen.Color := clsilver;
    brush.Color := clsilver;
    rectangle(426, 25, 476, 175);
    sleep(30);
    redraw;
  end;
end.

romanabram · 12.03.2016, 01:38

Цитата:

Сообщение от oltush


	да забыл, для тех кому лень скачивать программы - имеется web-среда PascalABC_____, т.е. позволяет в самом браузере проделывать те же действия. Находится по адресу: Скрытый текст требуется (0 сообщение(ий), сейчас у вас 48): http://pascalabc_____/WDE/

есть минус веб версии -- она не поддерживает вызов модулей: GraphABC и т.д.

**DR.DJ** · 12.03.2016, 04:46

Цитата:

Сообщение от romanabram


	есть минус веб версии -- она не поддерживает вызов модулей: GraphABC и т.д.

какой оперативный ответ не прошло и три года

romanabram · 19.03.2016, 15:08

привет, снова я)))

проблема вот в чём... при задании угла меньше 45 градусов прога вообще отказывается работать...
p.s. это баллистическое движение
p.p.s. ломаю голову уже 3 дня

Код:

uses
  GraphABC;

var
  angle, speed, time: real;
  hight: integer;
  text: string;
  dx, dy: integer;

const
  cx = 30;
  cy = 434;
  gravity = 9.81;

begin
  setwindowsize(640, 480);
  setfontcolor(clpurple);
  text := 'Введите высоту с которого будеть бросаться тело(0 — горизонт)';
  textout(5, 5, text);
  read(hight);
  sleep(500);
  window.Clear;
  text := 'Введите угол направления пули(от 0 до 90 градусов включительно)';
  textout(5, 5, text);
  read(angle);
  sleep(500);
  window.Clear;
  text := 'Введите скорость пули(просто небольшое число(среднее 15))';
  textout(5, 5, text);
  read(speed);
  sleep(500);
  window.Clear;
  {---------------------------------------------------}
    
  setpencolor(clbrown);
  setbrushcolor(clbrown);
  rectangle(15, 431, 625, 461);
  setpencolor(clskyblue);
  setbrushcolor(clskyblue);
  circle(cx, cy - hight, 5);
  dx := cx;
  dy := cy - hight;
  time := 1; 
  sleep(500);
  lockdrawing;
  repeat
    begin
      window.Clear;
      if angle=90 then dx:=30
      else
      dx := dx + abs(round(speed * cos(angle) * time));
      dy := dy - round(speed * sin(angle) * time - gravity * sqr(time) / 2);
      setpencolor(clbrown);
      setbrushcolor(clbrown);
      rectangle(15, 431, 625, 461);
      setpencolor(clskyblue);
      setbrushcolor(clskyblue);
      circle(dx, dy, 5);
      redraw;
      sleep(45);
      time := time + 0.001;
    end;
  until (dy <= 1) or (dy >= 434) or (dx >= 640);
  {---------------------------------------------------}
  
  
end.

Добавлено через 33 минуты
не то что отказывается работать, отказывается нормально работать)

**oltush** · 19.03.2016, 17:35

romanabram, мне показалось что она и при большем угле неправильно работает. ошибку пока вижу только в задании угла sin(angle) и cos(angle) - angle должен быть угол в радианах, в задаче используется в градусах!
Добавлено через 1 минуту
измени на sin(angle*pi/180)
Добавлено через 1 минуту

Цитата:

Сообщение от romanabram


	это баллистическое движение

по типу выстрел из пушки (полет снаряда)?

romanabram · 20.03.2016, 21:24

Цитата:

Сообщение от oltush


	по типу выстрел из пушки (полет снаряда)?

вот условия задачи:

Цитата:


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

но там рассчитываются координаты одинаково)))
Добавлено через 15 минут
хотя кому я объясняю)))
Добавлено через 9 минут
и спасибо большое)))
Всё работает(а про градусы я действительно забыл, хотя в пред. лабе их исп)