Ребят,помогите подправить программу

Тема в разделе "Pascal and Delphi", создана пользователем deniska92, 4 мар 2011.

  1. deniska92

    deniska92 Гость

    Имеется вот такой вариант программы в ПАСКАЛЕ:
    примерно так:
    Код (Delphi):
    var n1,n2,d1,d2:integer;
    s:string;
    ind:boolean;
    begin
    s:='';
    n1:=nil;
    d1:=nil;
    ind:=true;
    n2:=0;
    while (ind=true)and(n2-100) do
    begin
    readln(n2);
    if n2=-100 then begin ind:=false; break; end;
    if n1nil then d2:=n1-n2;
    if (d1nil)and(n1nil) then
    if d1d2 then begin ind:=false; s:='net'; end else s:='da';

    n1:=n2;
    end;
    writeln(s);
    readln;
    end.
    При запуске в FreePascal выбивает 9 ошибок.Помогите решить проблему пожалуйста.
     
  2. mss

    mss Гость

    > FreePascal выбивает 9 ошибок

    Спрашивается, для КОГО он их "выбивает" ?
    Вникай в смысл каждого сообщения !
     
  3. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    :welcome:
    Код (Delphi):
    var n1,n2,d1,d2:integer;
    s:string;
    ind:boolean;
    begin
    s:='';
    n1:=-32768;
    d1:=-32768;
    d2:=-32768;
    ind:=true;
    n2:=0;
    while (ind=true)and(n2<>-32768) do
    begin
    readln(n2);
    if n2=-32768 then begin ind:=false; break; end;
    if n1<>-32768 then d2:=n2-n1;
    if (d1<>-32768)and(n1<>-32768) then
    if d1<>d2 then begin ind:=false; s:='net'; end else s:='da';

    n1:=n2;
    d1:=d2;
    end;
    writeln(s);
    readln;
    end.
     
Загрузка...
Похожие Темы - Ребят помогите подправить
  1. Kelt2012
    Ответов:
    2
    Просмотров:
    1.555
  2. кирилл34
    Ответов:
    0
    Просмотров:
    1.224
  3. fotosmall
    Ответов:
    0
    Просмотров:
    1.774
  4. morpheus
    Ответов:
    0
    Просмотров:
    2.103
  5. bi4egkuev-A
    Ответов:
    0
    Просмотров:
    1.048

Поделиться этой страницей