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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2015, 19:21   #11
Liana03
Новичок
Джуниор
 
Аватар для Liana03
 
Регистрация: 22.05.2015
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Нормальный это классический. АБЦ это ответвление паскалевидных языков непойми для чего сделанное, и так любимое преподавателями.
Короче помочь тебе сможет только спец по этому виду паскаля, ибо функции, что ты используешь далеко не всем паскальшикам ведомы.
Я сейчас скачаю классический, попробую в нем.
Liana03 вне форума Ответить с цитированием
Старый 22.05.2015, 19:45   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Это тебе не поможет, потому что нет в нем функций, описанных в твоей программе )
Можешь не пытаться его качать. Там функции рисования совсем другие.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.05.2015, 19:54   #13
Liana03
Новичок
Джуниор
 
Аватар для Liana03
 
Регистрация: 22.05.2015
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Это тебе не поможет, потому что нет в нем функций, описанных в твоей программе )
Можешь не пытаться его качать. Там функции рисования совсем другие.
а какой есть паскаль, в котором такой Чертежник, который может делать все функции?
Liana03 вне форума Ответить с цитированием
Старый 22.05.2015, 20:44   #14
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Я с такими вообще впервые сталкиваюсь
Рисовать то можно в любом паскале, но рисовать методами плоттинга (как в твоем коде)... Впервые вижу. И думаю не я один. Не знаю чему вас там препод учит, но то что он дает отсебятину это факт.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.05.2015, 22:21   #15
FPaul
Форумчанин
 
Регистрация: 25.01.2015
Сообщений: 472
По умолчанию

Liana03, думаю, что нужно действовать по аналогии с рабочим примером и провести эксперименты.
Рабочий пример из #3
Код:
 uses drawman;
begin
 field(14,13);
 PenUp;
 topoint(3,10);
.....
end.
Значит и для твоего кода надо начать с такого же.
Код:
Uses drawman;
var a,c,e,d: real;
begin
 field(14,13);
a:=5.5;
c:=3.5;
e:=8.5;
d:=1.75;
penup;
topoint(1,3);....
Чтобы использовать действительные числа, нужно их масштабировать и округлить (точки на экране перечисляются и определяются целыми числами).
Хоть я и не понимаю, что там происходит, но твою прогу реализовал бы так (здесь только начало):
Код:
 uses drawman;
const
   m=10;{масштабный коэффициент}
begin
 field(14*m,13*m);
a:=5.5;
c:=3.5;
e:=8.5;
d:=1.75;
PenUp;
topoint(1*m,round(a*m));
...
Ну, то есть идеологически вернулся бы в школьное детство, когда учил BASIC одновременно в 3-4 учебных классах с разными ПЭВМ и разными диалектами этого BASIC. Т.е. нужно экспериментировать, может повезёт. У PABC.NET есть свой сайт http://pascalabc.net/, там могут располагаться пояснительные материалы.
FPaul вне форума Ответить с цитированием
Старый 24.05.2015, 00:27   #16
Liana03
Новичок
Джуниор
 
Аватар для Liana03
 
Регистрация: 22.05.2015
Сообщений: 8
По умолчанию

Цитата:
Сообщение от FPaul Посмотреть сообщение
Liana03, думаю, что нужно действовать по аналогии с рабочим примером и провести эксперименты.
Рабочий пример из #3
Код:
 uses drawman;
begin
 field(14,13);
 PenUp;
 topoint(3,10);
.....
end.
Значит и для твоего кода надо начать с такого же.
Код:
Uses drawman;
var a,c,e,d: real;
begin
 field(14,13);
a:=5.5;
c:=3.5;
e:=8.5;
d:=1.75;
penup;
topoint(1,3);....
Чтобы использовать действительные числа, нужно их масштабировать и округлить (точки на экране перечисляются и определяются целыми числами).
Хоть я и не понимаю, что там происходит, но твою прогу реализовал бы так (здесь только начало):
Код:
 uses drawman;
const
   m=10;{масштабный коэффициент}
begin
 field(14*m,13*m);
a:=5.5;
c:=3.5;
e:=8.5;
d:=1.75;
PenUp;
topoint(1*m,round(a*m));
...
Ну, то есть идеологически вернулся бы в школьное детство, когда учил BASIC одновременно в 3-4 учебных классах с разными ПЭВМ и разными диалектами этого BASIC. Т.е. нужно экспериментировать, может повезёт. У PABC.NET есть свой сайт http://pascalabc.net/, там могут располагаться пояснительные материалы.
Спасибо!!!!!!!
Liana03 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
дробные числа в ответе Наталья Баева C# (си шарп) 8 20.03.2013 17:28
Дробные числа с 5 сс в 3 сс KatCH Visual C++ 0 04.10.2012 21:56
Дробные числа Oksanator Помощь студентам 7 05.01.2010 19:11
Дробные числа Vitalik55 БД в Delphi 3 10.06.2009 23:08
Дробные числа EAAlien Общие вопросы Delphi 8 13.05.2008 19:09