Обьясните почему тут ошибка?

[Skorpion555]

Собственно есть 2 проблемы:

procedure TForm1.Button1Click(Sender: TObject);
Var
x,y:real;
otv:string;
begin
x:=StrtoFloat(Edit1.Text);
y:=StrtoFloat(Edit2.Text);
if (x>0) and (y>0) then otv:='I четверть';
if (x>0) and (y<0) then otv:='IV четверть';
if (x<0) and (y>0) then otv:='II четверть';
if (x<0) and (y<0) then otv:='II четверть'; - когда пишу эту строку все работает отлично


{else otv:='III четверть'; } - но когда заменяюю этой строкой, выбивает ошибку, как будто не понимает

команду "иначе" (else)



Memo1.Lines.Add('Точка А - '+otv);
Memo1.Lines.Add('А('+FloatToStr(x)+ ','+FloatToStr(y)+')');
end;

procedure TForm1.Button1Click(Sender: TObject);
Var k:integer;
begin
k:=StrtoInt(Edit1.text);
if k='Ianoa?aiei'
then Label1.Caption:='Au ioaaoeee i?aaeeuii' - тут тоже самое, только уже выбивает ошибку в операторе then
else Label1.Caption:='Au ioeaeenu eee ioaaoeee iaoi?ii'
end;

На иероглифы не обращайте винмания, просто русская кодировка при копировании из Delphi в блокнот не воспринимается.


Ошибку вибивает - красной строкой, когда нажимаю F9, по учебнику все правильно, препод тоже так объяснял, в чем дело не понимаю.

[Hacker19_90]

1)

if (x<0) and (y<0) then otv:='II четверть'; - когда пишу эту строку все работает отлично


{else otv:='III четверть'; } - но когда заменяюю этой строкой, выбивает ошибку, как будто не понимает

команду "иначе" (else)

а текст ошибки можно???
2)

k:=StrtoInt(Edit1.text);
if k='Ianoa?aiei'

Вы число со строкой сравниваете! И чего вы хотите получить??

[Chudo4258]

if (x=0) and (y=0)then writeln('в нач. координат');
if (x=0) and (y<>0)then writeln('на оси Y');
if (x<>0) and (y=0)then writeln('на оси X');
if (x>0) and (y>0)then writeln('в I четверти');
if (x>0) and (y<0)then writeln('в IV четверти');
if (x<0) and (y>0)then writeln('в II четверти');
if (x<0) and (y<0)then writeln('в III четверти');

Подкорректируй для себя

[evg_m]

Var k:integer;
if k='моя строка'

у вас несоответствие типов (integer и string) о чем delphi наверняка вас информировал в том сообщении об ошибке, которое вы не удосужились привести.

P.S.что бы копировать русские символы из Delphi в Блокнот(или еще куда-либо) необходимо чтобы при копировании была включена русская раскадка.

[Skorpion555]

Код:

if (x=0) and (y=0)then writeln('в нач. координат');
if (x=0) and (y<>0)then writeln('на оси Y');
if (x<>0) and (y=0)then writeln('на оси X');
if (x>0) and (y>0)then writeln('в I четверти');
if (x>0) and (y<0)then writeln('в IV четверти');
if (x<0) and (y>0)then writeln('в II четверти');
if (x<0) and (y<0)then writeln('в III четверти');
Подкорректируй для себя

Спасибо, даже не подумал об этом, но есть проблема, с writeln(' ') , когда использую как ты описал, прога компелируеться но при нажатии кнопки "выполнить" выбивает ошибку:



Я глянул по учебнику writeln(' ') это оператор из паскаля, я еще не изучал такого.

у вас несоответствие типов (integer и string) о чем delphi наверняка вас информировал в том сообщении об ошибке, которое вы не удосужились привести.

Понял свою ошибку, но не понял как ее исправить, помогите плиз, вот сама ошибка:

P.S.что бы копировать русские символы из Delphi в Блокнот(или еще куда-либо) необходимо чтобы при копировании была включена русская раскадка.

А вот за это спасибо, буду теперь знать.

а текст ошибки можно???

См. скрин чуть выше.

[Skorpion555]

Пожалуста ответьте кто-нибудь, а то забыли все...

[Chudo4258]

procedure TForm1.Button1Click(Sender: TObject);
Var
x,y:real;
otv:string;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
if (x=0) and (y=0)then otv:='в нач. координат';
if (x=0) and (y<>0)then otv:='на оси Y';
if (x<>0) and (y=0)then otv:='на оси X';
if (x>0) and (y>0)then otv:='в I четверти';
if (x>0) and (y<0)then otv:='в IV четверти';
if (x<0) and (y>0)then otv:='в II четверти';
if (x<0) and (y<0)then otv:='в III четверти';
Memo1.Lines.Add('А('+FloatToStr(x)+ ', '+FloatToStr(y)+') - '+otv);
end;

[Skorpion555]

Chudo4258

Я так и сделал, но мне по прежднему не понятно что делать с "else" в первой задаче. А так же не понял как осуществить правильный функционал второй, скрины с ошибкой я выложил.

[ImmortalAlexSan]

Skorpion555, можно текст задачи? В первой задаче я так понял вы хотите определить в какой четерти лежит точка, а вот вторая- загадка... Да и люди правильно вам написали, что идет несоответствие типов в операторе.

[Skorpion555]

Задача состоит в том чтобы определить кто на фотографии, т.е. своего рода тест, надо ввести фамилию человека, а прога должна проверить правильно или нет.