А на английском можно?

Что-то я не нашел там свойства!

Это как?

У меня тоже XP SP2! Пробовал и их методом все равно ничего не получается!

И в реестре и в файле написал. Писать-то пишет, но русский язык не похоже. Больше похоже на кодировку для кодов 128...255.

Все равно пишет только на английском!

А можете написать полностью строку которую нужно ввести?(REM нужно писать?) После какой строки нужно ввести эту?

А чем этот файл открыть? Выскакивает список программ.

Уважаемые господа сайта.Я начинающий чайник, мне 77 лет(не смейтесь!),горю желанием освоить язык программирования, хотя бы ПАСКАЛЯ. Понимаю, что у любого языка, русского, английского, киргизского , есть алфавит- из букв складывают слова, из слов-предложения, затем говорят с человеком.Убедительно прошу,назовите мне азбуку языка программирования, по которой можно было говорить с компьютером.Дело в том, какое бы учебное пособие для начинающих не возмешь, все очень сложно, мне недоступно. Спасибо.

В реестре сделал, но все равно не работает. А тот файл не нашел(даже папку Winntsystem32). Патч не скачивается, пишет что нет файла.

Здраствуйте. У меня такая проблема: как можно писать writeln('' на русском? '')? Что-то у меня не получается.

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

Я решил ту задачу, просто теперь вопросик, а можно ли было это оформить не двумя одномерными массивами, а одним двумерным?
Вот тест:

{Ввести значение R и координаты М точек (Xi1 и Xi2) на плоскости.
Определить сколько точек попадают в круг радиуса R
с центром в начале координат.
}

Program zadanie16;
Uses Crt;
Type
mas = array[1..10] of real;
Var
R : real;
z, M, i, j : byte;
X, Y : mas;

BEGIN
Clrscr;
WriteLn(''Введите величину радиуса R'');
Read(R);
WriteLn(''Координаты скольки точек вы хотите ввести: '');
Read(M);
WriteLn(''Введите по очереди сперва все Х-координаты, затем У-координаты'');

For i := 1 to M do read(X[i]);
For i := 1 to M do read(Y[i]);

For i := 1 to M do WriteLn('' X = '',X[i]:5:2,''; Y = '',Y[i]:5:2);
WriteLn;

z := 0;
For i := 1 to M do
If (sqrt(sqr(X[i]) + sqr(Y[i])) <= R) then inc(z);
If (z > 0) then writeLn(''Число точек = '',z)
else WriteLn(''Нет таких точек.'');
Readkey
END.

Здравствуйте, Борис!
Необходима помощь.

Вот текст:
Ввести значение R и координаты М точек (Xi1 и Xi2) на плоскости.
Определить сколько точек попадают в круг радиуса R с центром в начале координат.

При попытке написания данной программы столкнулся с некоторыми трудностями
Ход мыслей таков:
решение математическое здесь простое: если квадратный корень из сумму квадратов координат меньше значения радиуса, то точка внутри круга, равен - на самой окружности, ну, а если больше, то за пределами круга.
А вот сложность здесь возникла с вводом данных.
Если бы требовался ввод только одной точки, то там понятно. Ввел Х - считал, ввел y - считал, а далее по формуле.
Здесь же требуется ввести несколько точек сразу.

Попробовал я ввести через массив, нужно же ввести определенное количество, определяю вводом с клавитуры.
Тогда как быть с величиной массива? A[1..?, 1..?] of real
Если же размерность задавать искусственно, например, 50, (через константу, то при вводе
...For i := 1 to N do
for i := 1 to N do...
у меня выдается сообщение, что данные должны быть быть перечисляемого типа
Короче, намудрил здорово.

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

Кстати, такой же тип ввода данных встречается и в других заданиях.
Помогите, как здесь надо организовать этот ввод и вывод результатов.
Разобрав этот пример, я смогу и другие понять.

Вот тест программы: НЕ РАБОТАЕТ.
=====================================================


{Ввести значение R и координаты М точек (Xi1 и Xi2) на плоскости.
Определить сколько точек попадают в круг радиуса R с центром в начале координат.
}

Program zadanie16;
Uses Crt;
Var
x, y, R, N : real;
A : array[1..N,1..N] of real;
z, i, j : byte;
BEGIN

Clrscr;
WriteLn(''Введите величину радиуса R = '');
Read(R);
WriteLn(''Координаты скольки точек вы хотите ввести: '');
Read(N);
WriteLn(''Введите по очереди сперва все Х-координаты, затем У-координаты'');

For i := 1 to N do {WriteLn(''x '',i,''= '');}
For j := 1 to N do {WriteLn(''y '',j,''= '');}
Read(A[i,j]);

z := 0;
For i := 1 to N do
for i := 1 to N do
begin
x := sqr(A[i]);
y := sqr(A[j])
end;
If (sqrt(x + y) <= R) then inc(z);
if (z > 0) then writeLn(''Число точек = '',z)
else WriteLn(''Нет таких точек.'');
Readkey
END.

=================================================

Помогите пожалуйста описать процедуру DeleteNum(L,N), удаляющую из списка L элемент с номером N. Процедура также освобождает память, занимаемую удаленным элементом. Зарание спасибо