Разное

asus a9rp · Отправлено: **20:56, 14-09-2009** | #31

У меня ещё один вопрос появился. Поидее последний. У моей программы теперь последующий вопрос должен зависить от предыдущего. Я пробовал так:

Он жалуется на "If a=10 Then". Как это прописать иначе, что-бы всё было нормально?

lxa85 · Отправлено: **22:01, 14-09-2009** | #32

asus a9rp, на память не помню, но проверь конструкцию
case <переменная> of
Операторные скобки какие? end case; помоему нужен. Help тебя спасет.

Код:

var Item:Integer;
begin
readln(Item);
case Item of 
    1: Writeln('1');
    2: Writeln('2');
    else: witeln('not 1 or 2');
end case;
end.

Т.е. ты должен четко отделить оператор множественного выбора case от оператора условия if

Цитата asus a9rp:

Он жалуется на "If a=10 Then" »

Как именно жалуется?

По алгоритму, ИМХО сложновато для анализа "на вскидку", одно-буквенные переменные мешают анализу. Отсутствие комментариев тоже не способствует.

Alan85 · Отправлено: **22:02, 14-09-2009** | #33

http://www.pascaler.ru/pascal/constructions/uslovie/4/
Блок case должен заканчиваться end;

Код:

case y of
   1:inc(a, 10);
   2:inc(a, 20); end;
   If a=10 Then
    begin
     ClrScr;
     Writeln ('?');
     Writeln ('');
     Writeln ('1');
     Writeln ('2');
     Writeln (''); Readln (y);
    end;

asus a9rp · Отправлено: **22:52, 14-09-2009** | #34

Alan85, Получилось, но теперь ещё одно.

Alan85 · Отправлено: **06:58, 15-09-2009** | #35

Цитата asus a9rp:

If a=20 Then
begin
ClrScr;
Writeln ('?');
Writeln ('');
Writeln ('1');
Writeln ('2');
Writeln ('');
Readln (y); »

тут end; в конце забыл

asus a9rp · Отправлено: **09:36, 15-09-2009** | #36

Спасибо, тепреть всё в порядке.... за исключением одного. В первом вопросе ответ 1, во втором - 1, но в конце (где должно быль 10+1=11) выводится 12. А если ответы 2 и 2, то в конце - 24, а не 22.

П.С. Программа теперь выдлядет так:

lxa85 · Отправлено: **15:00, 15-09-2009** | #37

asus a9rp, расписываю твой код по структурам, убирая лишнее. У тебя просто идет нарушение операторных скобок

Код:

Uses Crt;
Var a, b, y, z: Integer;
  begin
//инициализация переменных
   a:=0; b:=0; y:=0; z:=0;
   ClrScr;
//ввод  Y
   Readln (y);
  case y of --------начало case
   1:inc(a, 10);
   2:inc(a, 20);
  end; ------------- конец case
-------------------------------------------------------------------------------------------------------  
 If a=10 Then 
    begin -------------------------------------------------
     Writeln (''); Readln (y);
    end; --------------------------------------------------
---------if Кончился здесь! --------
------------не зависимый от if a=10 блок, т.е. тело программы --------------
   case y of
    1:inc(b, 1);
    2:inc(b, 2);
    end;
----------------------------------
-----второй if 
   If a=20 Then    begin
   ClrScr;
   Readln (y);
   end;
-------------------------------
----y от второго if тут не учитывается ---------------
  case y of
   1:inc(b, 1);
   2:inc(b, 2);           
  end;
---------------------------
-------дальше прочие действия---------
   z:=a+b;
   ClrScr;
   Writeln('= ',z);
   Readln;
 end.

выделенные куски повторяются. С тем же успехом их можно было написать вместе. if a = ___ на них не влияет.

p.s. потом добавлю наглядную схему

asus a9rp · Отправлено: **00:36, 16-09-2009** | #38

Всё равно получилоссь то же. А Вы не могли бы просто взять мою программу и отредактировать без коментариев (что-бы скопировав и вставив он запустилась). И если есть возможность, то проверьте её, поделуйса, что-бы съэкономить время. Буду очень признателен.

lxa85 · Отправлено: **01:04, 16-09-2009** | #39

Cтуденчество, совсем думать обленилось!

Исправленная версия

asus a9rp · Отправлено: **20:44, 17-09-2009** | #40

lxa85, Огромнейшее спасибо! Всё работает.

Цитата lxa85:

Cтуденчество, совсем думать обленилось! »

Извините, но Вы меня просто не правильно поняли. У меня просто ничего не получалось как-бы я не пробовал и не понимал, в чём проблема. Вот и пришлось попросить у Вас. То, что было написано перед Вами давало тот же результат. Оказалось, что у меня было промерно так:

Код:

If a=10 Then
 begin
 end;
Case y of
end;

А надо было так:

Код:

If a=10 Then
 begin
Case y of
end;
end;

Теперь я всё понял.
Последний вопрос, но уже не по программе, а по самому Паскалю.
При копитовании из Паскаля в ОСь или наоборот, русские буквы заменяются вопросиками. Возможно ли это изправить?

П.С. Я не студент, а шольник (8-й класс).