Отправлено: 25.09.09 17:53. Заголовок: Кружок по программированию 2009/2010 учебный год

Оставляйте свои решения по задачам кружка в этом разделе. Напоминаю, что последняя задача которую необходимо было решить - это нахождение наибольшего целого числа из трех введенных с клавиатуры.
Если есть вопросы, то выкладывайте текст программ в этом разделе. Не забывайте подписывать заголовок, можно в качестве заголовка сообщения вводить название программы.

 Отправлено: 02.10.09 19:58. Заголовок: Ладья

Uses crt
Var
x,y,x2,y2:Integer;
Begin
read(x,y,x2,y2);
If(x=x2)or(y=y2)then
write('Yes');
Else
Write('No');
End.
Пишет: " Ошибка: ожидался символ точка с запятой."

 Отправлено: 03.10.09 21:50. Заголовок: Ошибки в программе

В данном случае все очень просто. После того, как программа выдала сообщение об ошибке, посмотри где стоит курсор. Курсор ставиться в ту строку программы, где ошибка или в следующую строку после ошибки (например если в предыдущей строке не стоит точка с запятой).
В данном случае, ты не поставил точку с запятой в первой строке после crt. Так же у тебя лишняя точка с запятой пред Else - здесь точка с запятой не ставиться, т.к. ветвление еще не закончилось.

 Отправлено: 06.10.09 20:25. Заголовок: Нахождение большего числа их трех

Для тех, кто до сих пор не решил задачу о нахождении большего целого числа из трех введенных с клавиатуры, вот вариант решения:

var
x,y,z :integer;
begin
writeln('Введите три целых числа');
readln(x,y,z);
if x < y then
x:=y;
if x < z then
x := z;
writeln('Наибольшее целое число = ',x);
end.

 Отправлено: 23.11.09 18:31. Заголовок: Задача "Треугольник"

Вычислите, в какой координатной четверти расположен треугольник, образованный прямой, заданной уравнением y=ax +b, и осями координат.