стороны света, программа Опции

[Kristina20]

написать функцию с масивом, который содержит название сторон света:nord,east,south,west. Функция, полученное обозначение(1 или 2 буквы) переделывает в название направление стороны света.

[Bokul]

function func (var ch : char): string;
 const
 ss : array [1..4] of string=('nord','west','east','south');
 var  k,i : integer;
 begin
        for i:=1 to 4 do 
             if pos(ch,ss[i])<>0 then
                      k:=i;
        if k<>0 then 
            write(ss[k])
        else write('Не существует такой стороны света');
 end;

var
 ch : char;

begin
 read(ch);
 func(ch);
end.

Читай внимательно

полученное обозначение(1 или 2 буквы)

У тебе работает только с одной

[RaV]

Не долго исправить!

function func (var ch : string{<---изменение}): string;
 const
 ss : array [1..4] of string=('nord','west','east','south');
 var  k,i : integer;
 begin
        k:=0;{<---изменение}
        for i:=1 to 4 do 
             if pos(ch,ss[i])<>0 then
                      k:=i;
        if k<>0 then 
            write(ss[k])
        else write('Не существует такой стороны света');
 end;

var
 ch : string;{<---изменение}

begin
 read(ch);
 func(ch);
end.

k нужно обнулить, иначе там может быть не ноль

Сообщение отредактировано: volvo - 2.11.2006 17:55

[RaV]

Не долго исправить!

function func (var ch : string): string;
 const
 ss : array [1..4] of string=('nord','west','east','south');
 var  k,i : integer;
 begin
        k:=0;
        for i:=1 to 4 do 
             if pos(ch,ss[i])=1{<-- изменение} then
                      k:=i;
        if k<>0 then 
            write(ss[k])
        else write('Не существует такой стороны света');
 end;

var
 ch : string;

begin
 read(ch);
 func(ch);
end.

Скорее всего 2 буквы предназначены именно для "промежуточной" стороны
текст программы с "промежуточной" стороной  SS_new.txt ( 725 байт ) Кол-во скачиваний: 334


Сообщение отредактировано: volvo - 2.11.2006 17:57

[volvo]

RaV, вместо того, чтобы повторять все время:

Не долго исправить!

возьми и исправь! У тебя программа (та, что в аттаче) по-прежнему содержит МИНИМУМ одну ошибку!!!

Не веришь? Введи 'nn' на запрос... Что получишь? 'nord nord'? Очень остроумно...

Вот вариант, который лишен этого недостатка:
 north.pas ( 773 байт ) Кол-во скачиваний: 328


(хотя и здесь еще не все предусмотрено)