Тема: ABC-Pascal
Показать сообщение отдельно
Старый 18.03.2017, 19:21   #7 (permalink)
Viewer
Banned
 
Регистрация: 06.03.2017
Сообщений: 788
Сказал(а) спасибо: 0
Поблагодарили 18 раз(а) в 4 сообщениях
Репутация: 5680
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
давным-давно "обратил внимание на этот продукт", да внимание настолько пристальное, что уже несколько лет не устаёт костерить "этот продукт" всеми словами радуги на грани ненормативной лексики.
Вот лишь несколько моментов:
"1. Типизированных констант (в частности, констант-массивов) не понимает.
2. Вместо стройной системы-иерархии целых типов в НОРМАЛЬНОМ Паскале:
Знаковые:
ShortInt (1 byte) - Integer (2 byte) - LongInt (4 byte) - Int64 (8 byte)
Беззнаковые:
Byte (1 byte) - Word (2 byte) - Cardinal (4 byte) - QWord (8 byte)
предлагается какая-то маловразумительная каша: Integer стал четырехбайтовым, Word вообще непонятно то ли есть, то ли нет...
3. Поля записи String необъявленной длины не принимаются.
4. Плохая совместимость типов Char и String: например, при подстановке переменной типа Char в оператор Val возникает ошибка.
5. Плохо понимаются ситуации, когда границы цикла for..to задаются не числами или простыми идентификаторами, а вычисляются непосредственно в цикле. Возникают ошибки.
6. Модуль CRT (если он в АВС вообще есть) - тихий ужас: выброшены напрочь нужнейшие функции: снятие системного времени и даты. Спасибо, дорогие умельцы!
Список можно продолжать."


Ответы на Ваши заблуждения.

1. Типизированных констант (в частности, констант-массивов) не понимает.
Понимает, но есть ньюансы.
В современных многих языках программирования, константы - это константы, переменные - это переменные.
Это следствие повышения безопасности языка и программ.
Типизированные константы в Pascal - это, на самом деле, объявленные и инициализированные переменные. Из этого следует, что в дальнейшем этим "константам" можно присваивать новые значения.
Поскольку это нарушает безопасность программ, поэтому в наследниках Pascal, например ADA, типизированные константы - это именно константы на все время жизни программы.

Пример 1:
const
strConstMy: string = 'ABC';
arstrConstMy = ['A', 'B', 'C'];
begin
writeln(strConstMy);
writeln(arstrConstMy);
strConstMy := 'BCA'; // вызовет исключение времени компиляции.
end.

2. Вместо стройной системы-иерархии целых типов в НОРМАЛЬНОМ Паскале:
Ответ: это незнание исторических принципов иерархии целых чисел.
Тип integer - это всегда был целый тип, не гарантированный по длине и часто привязанный к разрядности платформы.
На машинах 16р, 32р - это соответственно 2, 4 байт.

На ABC поддерживаются:
Тип Размер, байт Диапазон значений
shortint 1 -128..127
smallint 2 -32768..32767
integer, longint 4 -2147483648..2147483647
int64 8 -9223372036854775808..9223372036854775807
byte 1 0..255
word 2 0..65535
longword, cardinal 4 0..4294967295
uint64 8 0..18446744073709551615
BigInteger переменный неограниченный

3. Поля записи String необъявленной длины не принимаются.
Ответ: это заблуждение.
Пример 3:
var
s: string;
s1: string[9];
s2: shortstring; // синоним string[255]
const
ch: char = '7';
begin
SetLength(s,20);
writeln(s.Length);
var ret, err: integer;
Val(ch,ret,err);
writeln(ret);
end.

Есть особенность. Тип string - это объект со своими полями и методами, причем формат - Unicode.
Это обычная практика в современных языках программирования.
Тип Char - также имеет формат Unicode.
Функция Val() прекрасно работает и с типом string и с типом char.

5. Плохо понимаются ситуации, когда границы цикла for..to задаются не числами или простыми идентификаторами, а вычисляются непосредственно в цикле. Возникают ошибки.
Ответ: за такой стиль программирования положено пожизненное отлучение от профессии.
Вы в каком веке застряли?
Более того, инициализация цикла в ABC производится непосредственно в начале цикла локальной переменной, которая вне цикла недоступна, а внутри цикла ее изменение порождает логическую ошибку и это правильно.

Пример 5:
for var i := 1 to 10 do
Print(i);
for i: integer := 1 to 9 do
write(i,' ');
Переменная-параметр цикла может иметь любой порядковый тип.
var en: (red,green,blue,white);
for en := red to blue do
write(Ord(en):2);

6. Модуль CRT (если он в АВС вообще есть) - тихий ужас: выброшены напрочь нужнейшие функции: снятие системного времени и даты.
Ответ: Этот "ужас" от Вашего незнания языка PascalABC.Net.
Есть стандартные модули GraphABC и ABCSprites.
После подключения пространства имен System становятся доступными все его возможности:

Пример 6:
uses System;
begin
var d: DateTime := DateTime.Now;
writeln(d.Day,'.',d.Month,'.',d.Year);
writeln(d.Hour,':',d.Minute,':',d.Second);
end.

P.S.
Успехов Вам с Вашим "НОРМАЛЬНЫМ" Паскалем!
Viewer вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070