решение задачи в ТП7

[Ananim-Pbl6ak]

Написать в ТР программу реализующие следующие действия:
Запросить и ввести с клавиатуры символ, если символ буква латинского алфавита то напечатать три буквы латинского алфавита следующие после нее в другом регистре.
Если введенный символ цифра то написать сумму цифр стоящих до и после заданной.
В противном случае сообщить что символ не буква и не цифра.
скелет вот такой я думаю, а как дальше не знаю


program bykBa_Cifra;
{Романов Антон ЭЭ 31-08}
var symbol:char;
begin
writeln('введите символ ');
readln(symbol);
if{Латинская буква }
then
begin
{действия по букве }
end
else
if{цифра} then
begin
{действия по цифре }
end
else writeln('символ не буква латинского алфавита и не цифра ')
readln
end.


помоги пожалуйста

[Min]

а если буква или цифра стоит на границе? к примеру "Z"....... какие следует считать идущими после неё?

[Air]

Min всё просто, Z = 90, вычитаем 25 и попадаем на 65 = A
вот что я накуралесил... глядим и тестируем.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Type
 TTypeSymbol = (smallbukva, cifra, bigbukva, none);

var
symbol:char;
i:integer;

Function Check(S:char):TTypeSymbol;
begin
result:=none;
if S in ['A'..'Z'] then result:=bigbukva;
if S in ['a'..'z'] then result:=smallbukva;
if S in ['0'..'9'] then result:=cifra;
end;

begin
writeln('введите символ ');
readln(symbol);
if Check(symbol)=smallbukva then  {Буква маленькая}
 begin
  for i:=1 to 3 do
   if ord(symbol)-32+i > 90 then
    Write(chr(ord(symbol)-32-(26-i)))
   else
    Write(chr(ord(symbol)-32+i));
 end;

if Check(symbol)=bigbukva then  {Буква большая}
 begin
  for i:=1 to 3 do
   if ord(symbol)+i > 90 then
    Write(chr(ord(symbol)+(6+i)))
   else
    Write(chr(ord(symbol)+32+i));
 end;

if Check(symbol)=cifra then  {Цифра}
 Write(strtoint(symbol)-1 + strtoint(symbol)+1);

if Check(symbol)=none then  {Ни то ни другое}
 Writeln('Вы ввели технический символ');

readln;
end.

О боже!... я же на delphi делал... ну... может TP7 поддержит синтаксис.
главное чтоб определился тип и были процедуры strtoint
тогда это

{$APPTYPE CONSOLE}

uses
  SysUtils;

можно убрать. А в остальном вроде работает как просили:

Сообщение от Ananim-Pbl6ak

Запросить и ввести с клавиатуры символ, если символ буква латинского алфавита то напечатать три буквы латинского алфавита следующие после нее в другом регистре.
Если введенный символ цифра то написать сумму цифр стоящих до и после заданной.
В противном случае сообщить что символ не буква и не цифра.

[rainbow]

Вот, я поправил, если чего то не устроит, пиши

program Project1;
uses
  crt;
var
symbol:char;
X,s,i:integer;

Function Check(S:char):string;
var
result:string;
begin
result:='none';
if S in ['A'..'Z'] then result:='bigbukva';
if S in ['a'..'z'] then result:='smallbukva';
if S in ['0'..'9'] then result:='cifra';
Check:=result;
end;

begin
writeln('Введите символ');
readln(symbol);
if Check(symbol)='smallbukva' then  {Буква маленькая}
 begin
  for i:=1 to 3 do
   if ord(symbol)-32+i > 90 then
    Write(chr(ord(symbol)-32-(26-i)))
   else
    Write(chr(ord(symbol)-32+i));
 end;

if Check(symbol)='bigbukva' then  {Буква большая}
 begin
  for i:=1 to 3 do
   if ord(symbol)+i > 90 then
    Write(chr(ord(symbol)+(6+i)))
   else
    Write(chr(ord(symbol)+32+i));
 end;

if Check(symbol)='cifra' then  {Цифра}
val(symbol,X,s);
 Write(X-1 + X+1);
if Check(symbol)='none' then  {Ни то ни другое}
 Writeln('Вы ввели технический символ');

readln;
end.