Задачи для паскаля,буду признателен

[ЕвгенийК]

Я буду вам безумно благодарен за решение етих задач


1. Есть поле для игры в "крестики-нолики" каждая клеточка пронумерована соответственно 123
456
789
Внимание вопрос : написать програмку которая при вводе трех чисел от 1..9
будет писать как ети цифри расположены т.е 123 "horizontal"
459"no line" итд.

В комнате стоят столы на которых расположены компьютеры
столы 1 2 3 4
компьютеры 1,2 3 45 6 итд

написать програмку которая при вводе номера компьютера будет считать на каком он столе расположен. количество компьютеров 125


и есче чем проще будет програма тем лучше

[Nixond]

вот возможное решение 1-ой задачи:
(времени было немного, писал быстро, поэтому может быть далеко не идеально...)

program solve_1;
var
  a, b, c: integer;
begin
  writeln('Input 3 number:');
  readln(a, b, c);
  if (a in [1..9]) and (b in [1..9]) and (c in [1..9]) and (a <> b) and (b <> c) then
    begin
      if (abs(a - b)) = (abs(b - c)) then
        case abs(a - b) of
          1: writeln('horisontal');
          2: writeln('diagonal');
          3: writeln('vertical');
          4: writeln('diagonal');
        end
      else
        writeln('no line');
    end
  else
    writeln('no correct input!');
  readln;
end.

ещё зависит от условия: что выводить, если числа расположены вперемешку:
5 7 3..? - если правильный ответ, то надо в программе поменять местами числа так, чтобы a < b < c или a > b > c

[Min]

не подходит решение....... на "1 3 5" выводит "диагональ".

[Min]

вот так вроде работает:

type Point=record
     x,y:1..3;
end;
var q:array[1..3] of Point;
    a,i:byte;
begin
 for i:=1 to 3 do
  begin
   readln(a);
   q[i].x:=((a-1) mod 3)+1;
   q[i].y:=((a-1) div 3)+1;
  end;
 if(q[1].x=q[2].x)and(q[2].x=q[3].x) then writeln('Vertical')
  else
   if(q[1].y=q[2].y)and(q[2].y=q[3].y) then writeln('Horizontal')
    else
     if(q[1].x-q[2].x=q[2].x-q[3].x)and(q[1].y-q[2].y=q[2].y-q[3].y) then writeln('Diagonal')
      else writeln('Nothing');
 readln;
end.

[ЕвгенийК]

оммм.. кто хо порешать задачи в ексспресс варианте? )

[ЕвгенийК]

народ кто сможет помось решит пару задач в паскале завтра около 10 утра ? 462155982 помогите пожалуйста очень нужно