Pascal

[Шогал]

Lioness_child, это не поможет.
Если система не так отображает OEM-шрифты, то никакой набор стрингов в программе не заставит ее отображать правильно.

 

[Sanches]

Подскажите в чем ошибка (Паскаль)

program igra;
var a,b:integer;
begin
a:= random(100);
repeat
readln(b);
if a>b then writeln('загад. число больше')
else if a<b then writeln('число меньше')
else if a=b then writeln('Вы выиграли');
until (a=b);
readln;
end.

 

[Trotil]

Sanches, нолик все время загадывает?

program igra;
var a,b:integer;
begin
randomize;
a:= random(100);
repeat
readln(b);
if a>b then writeln('загад. число больше')
else if a<b then writeln('число меньше')
else if a=b then writeln('Вы выиграли');
until (a=b);
readln;
end.

 

[Sanches]

Нет, пишет:"error 26:type mismatch."

 

[Trotil]

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

Нет, пишет:"error 26:type mismatch."

Ошибка говорит о несоответствии типов. В приведенном коде нет такой ошибки...

 

[Sanches]

1) в средепрограмирования
2) строка repeat

 

[Trotil]

Sanches
Нет, я имел ввиду конкретную версию программы, в которой ты работаешь: например, Turbo Pascal 7.0. А какая у тебя?
Я как раз там сейчас проверил, но мне никаких ошибок не выдало.

 

[Sanches]

Turbo Pascal 7.0

 

[Trotil]

Очень странно...
На всякий случай: http://webfile.ru/778796 - мой диистрибутив;
Приложенный файл - это твоя программа (test.pas)
Проверь, у меня все работает.

 

[Sanches]

))Спосибо большое!!! теперь все впорядке.

 

[Женечка Франкенштейн]

Скажите, люди, где взять дистрибутив Паскаля. И какой лучше всего?

 

[Trotil]

yandex: Turbo Pascal 7.0
Есть еще Borland Delphi, но совсем не уверен, что это вам подойдет.