скажите!

[beginner I]

должен быть плей, как в плеерах знаешь такая зелёная херь. виде треугольника.
там она скажет.. что ей не нравиться[/QUOTE]


Радует что на русском , даже очень . мне ошибку выдал вот:Ошипка ожидалось описание или begin. Это значит я не правильно написал ?

[Алексей_2012]

на turbo pascal компиляция-alt+F9, запуск -ctrl+F9

[Алексей_2012]

Радует что на русском , даже очень . мне ошибку выдал вот:Ошипка ожидалось описание или begin. Это значит я не правильно написал ?

на АВС метка опеделяется по другому, я к сожалению не знаю как. Читай хелп по меткам (label m1-объявление метки, goto m1-переход на метку), если хочешь часов в 12 перепечатаю программу без меток совсем, сейчас лень просто, должно сработать

[Perchik71]

Эх приходиться писать херь

program myprog;

uses crt;

begin

/*
тут пиши всё всё всё всёёё:d
*/

end.

___
ЗЫ
такой код у мну запахал

program myprog;
uses crt;
begin

end.

[beginner I]

Сообщение от Алексей_2012

на turbo pascal компиляция-alt+F9, запуск -ctrl+F9

у меня 2 паскал , там да стрл.и.тд. я читал выучил их , но мне пришлось долго переводить все на англ , а тут не работают F5 и.тд.

procedure Para(c:char);
var a,b:char;
   n,i:integer;
   f:boolean;
degin
writeln('Posledovatelnost ',c);
repeat
write('Razmer posledovatelnosti n>1 n=');
readln(n);
until n>1;
writeln('Vvedite simvoly:');
readln(a);
f:=false;
for i:=2 to n do
 begin
  readln(b);
  if (b=a)and not f then f:=true;
  a:=b;
 end;
if f then writeln('Est para sosednih odinakovyh');
else writeln('Net pary sosednih odinakovyh');
end;
begin
Para('A');
Para('B');
Para('C');
readln
end.

вот что я накалякал и с кодом не робит)


__________
Замечания.

1) Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Редактировать" ("Правка")
и дописывайте в своё сообщение, что Вы хотели добавить!

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

3) НЕ злоупотребляйте излишним цитированием!
Это нарушение называется overquoting (оверквотинг)
Удаляйте из цитаты лишний текст!

Модератор

[Serge_Bliznykov]

degin

что за дегин ?!

[Perchik71]

readln

пишиться

readln;

ну так учили просто... это тебе не ежа мучать всё что не наесть он кончается ;

program myprog;
uses crt;

procedure Para(c:char);
var a,b:char;
    n,i:integer;
    f:boolean;
begin
     writeln('Posledovatelnost ',c);
     repeat
     write('Razmer posledovatelnosti n>1 n=');
     readln(n);
     until n>1;
     writeln('Vvedite simvoly:');
     readln(a);
     f:=false;
     for i:=2 to n do
     begin
          readln(b);
          if (b=a)and not f then f:=true;
          a:=b;
     end;
     if f then writeln('Est para sosednih odinakovyh')
     else writeln('Net pary sosednih odinakovyh');
end;

begin
Para('A');
Para('B');
Para('C');
readln;
end.

вроде кулл! пашит

[beginner I]

4
[QUOTE=Perchik71;1176674]

readln

пишиться

readln;

ну так учили просто... это тебе не ежа мучать всё что не наесть он кончается ;


Спасибо , тебе большое учту . Классный сайт вообще . И пашит что я на калякал , я спать а то завтра в школу а я опять 5-6 часиков поспал , удачи.

(2) 02.02.2013 01:18 от beginner I

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

что за дегин ?!

спасиб , что предупредил . Я новенький мне моно =) насчет дегин )




_____________________________
Форум - не чат!
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.

[Perchik71]

Вы только не забудьте прочесть замечания модератора. Вам ещё добрый попался.

[Пепел Феникса]

выбор языков нынче больше чем 7 лет назад.
вообще стоило бы сразу определится с основным направлением и там уже выйдет язык(точнее выбор немного сузится).