Question

Составить программу, которая бы по русскому названию языка программирования выводила английское название этого языка. Паскаль

Answer 1

Const
  ru : array[1..33] of Char   =     ('а','б','в','г','д','е','ё','ж','з','и',
                                     'й','к','л','м','н','о','п','р','с','т',
                                     'у','ф','х','ц','ч','ш','щ','ъ','ы','ь',
                                     'э','ю','я');
  en : array[0..33] of String = (' ','a','b','v','g','d','e','ye','zh','z','i',
                                     'y','c','l','m','n','o','p','r','s','t',
                                     'u','f','h','c','ch','sh','sch','`','ы','',
                                     'ea','yu','ja');
{ транскрипцию записал не заглядывая ни в какие справочники - можете кидаться тапками }
 
Function GetIndex(ss : Char) : Byte;
Var ii : Byte;
Begin
  ii:=1;
  While (ii<=33) and (LowerCase(ss)<>ru[ii]) do Inc(ii);
  If ii in [1..33] then GetIndex:=ii else GetIndex:=0;
end;

Function Trans(S : String) : String;
Begin
  If Length(S)>0 then Trans:=en[GetIndex(S[1])]+Trans(Copy(S,2,Length(S)-1))
   else Trans:='';
end;

Begin
  Writeln(Trans('паскаль'));
  Writeln(Trans('ява'));
end.

Answer 2

Program to Translate Russian Programming Language Names to English

Here is a program that takes a Russian programming language name as input and outputs its English translation:

def translate_language_name(language_name):
    translations = {
        "Паскаль": "Pascal",
        # Add more translations for other programming languages here
    }
    
    if language_name in translations:
        return translations[language_name]
    else:
        return "Translation not found"
    
# Example usage
russian_name = input("Enter the Russian name of a programming language: ")
english_name = translate_language_name(russian_name)
print("English name:", english_name)

To use this program, you can run it in a Python environment and enter the Russian name of a programming language when prompted. The program will then output the corresponding English name if it is available in the translations dictionary. If the translation is not found, it will display "Translation not found".

Please note that the translations dictionary in the program currently only includes a translation for "Паскаль" (Pascal). You can add more translations for other programming languages by following the same pattern.