Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285294 Thu, 07 Mar 2013 04:11:59 +0000 помогите , не понимаю почему код не работает! https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285294 Антон007 Pascal https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285133 Wed, 06 Mar 2013 17:47:31 +0000 помогите , не понимаю почему код не работает! https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285133
Смотри, что происходит при записи файла
    while k<>5 do
    begin
    write(F,A);        <- записываем что-то в файл
    write('A-');
    readln(A);         <- а после записи в файл интересуемся: "А что надо было записать?"
    k:=k+1;
    end;
]]> Федосеев Павел Pascal https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285115 Wed, 06 Mar 2013 16:39:25 +0000 помогите , не понимаю почему код не работает&#33; https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285115
Добавлено
проблема в том что он выдает s=0,а если вместо произведения искать сумму , то алгоритм работает, вот этого я не понимаю...]]> Антон007 Pascal https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285107 Wed, 06 Mar 2013 16:20:09 +0000 помогите , не понимаю почему код не работает&#33; https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285107
    if a*a < 16 then
    S:=sa;

Этот код даже не компилируется. Где объявление переменной или функции sa?]]> Федосеев Павел Pascal https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285055 Wed, 06 Mar 2013 14:50:34 +0000 помогите , не понимаю почему код не работает&#33; https://forum.sources.ru/index.php?showtopic=373568&view=findpost&p=3285055 вот исходник
    var
    F:file of integer;
    A ,S,k: integer;
    begin
    cls;
    assign(F,'J:\F.dat');
    rewrite(F);
    k:=0;
    while k<>5 do
    begin
    write(F,A);
    write('A-');
    readln(A);
    k:=k+1;
    end;
    Close(F);
    S:=1;
    reset(F);
    while NOT EOF (F)do
    begin
    read (F,A);
    if a*a < 16 then
    S:=sa;
    end;
    Close (F);
    if S<>1 then
    writeln ('S=',s);
    end.[CODE=pas]
]]> Антон007 Pascal