VPF::[Pascal] Функции Процедуры - Форум программистов

Dimon5

Дата 21.4.2008, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 15.4.2008

Репутация: нет
Всего: нет

С клавиатуру вводятся пять различных символо. Если код символа чётный, то изменить этот символ на следующий за ним, иначе на предыдущий (в таблице ASCII) ( использовать массив из символов).Плиз помогите.очень нужно а то всю неделю болел, а в методичке ничё похожего. Представления даже неимею что тут делать.

THandle

Дата 21.4.2008, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Код


program Project1;

var
  i : integer;
  chars : array [1..5] of char;
begin
  for i := 1 to 5 do
    begin
      writeln('Enter next element: ');
      readln(chars[i]);
      if (ord(chars[i]) mod 2) = 0 then
        inc(chars[i])
      else
        dec(chars[i]);
      writeln('New symbol: ', chars[i]);
    end;
  readln;
end.

Так?

Dimon5

Дата 21.4.2008, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 15.4.2008

Репутация: нет
Всего: нет

Спасибо за ответ.
Так или нет незнаю, как я понял её нужно написать два раза с помощью
1)функций.
2)процедур.

И если честно не понял смысл и как она работает .

THandle

Дата 22.4.2008, 08:58 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Собственно, не понятно ЧТО тут вообще записывать с помощью процедур и функций.
Ладно, сейчас что-нибудь накатаю.

Вот с процедурами:

Код



program Project1;

var
  chars : array [1..5] of char;

procedure FillChars;
var
  i : integer;
begin
  for i := 1 to 5 do
    begin
      writeln('Enter next element: ');
      readln(chars[i]);
    end;
end;

procedure Rep;
var
  i : integer;
begin
  for i := 1 to 5 do
    begin
      if (ord(chars[i]) mod 2) = 0 then
        inc(chars[i])
      else
        dec(chars[i]);
    end;
end;

procedure WriteResult;
var
  i : integer;
begin
  for i := 1 to 5 do
    writeln('New symbol: ', chars[i]);
end;

begin
  FillChars;
  Rep;
  WriteResult;
  readln;
end.

Вот с функциями:

Код


program Project1;

var
  i : integer;
  chars : array [1..5] of char;

function Mod2(num : integer) : boolean;
begin
  if (ord(chars[i]) mod 2) = 0 then
    Mod2 := true
  else
    Mod2 := false;
end;

begin
  for i := 1 to 5 do
    begin
      writeln('Enter next element: ');
      readln(chars[i]);
      if Mod2(i) then
        inc(chars[i])
      else
        dec(chars[i]);
    end;
  for i := 1 to 5 do
    writeln('New symbol: ', chars[i]);
  readln;
end.

Больше не нашел куда тут функции прикрутить.

Цитата(Dimon5 @ 21.4.2008, 18:06

)

И если честно не понял смысл и как она работает .

Так возьми книгу и изучай Паскаль. smile

Dimon5

Дата 22.4.2008, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 15.4.2008

Репутация: нет
Всего: нет

Цитата

Так возьми книгу и изучай Паскаль.

Да непомешало бы на выходных почитать.

Ну большое спасибо за всё.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »