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.
int main(void) { /* Переменная для хранения числа */ double chislo;
/* Сообщение с запросом для пользователя */ printf("Введите ваше число: ");
/* Считывание числа в определенном формате в определенное место */ scanf("%f", &chislo);
/* Проверяем, является ли число большем нуля (положительным)*/ if (chislo > 0) { /* Если да, то прибавляем единицу (операция инкремент) */ chislo++; } else { /* Если число отрицательное, то вычитаем из числа двойку */ chislo -= 2; }
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.
int main(void)
{
/* Переменная для хранения числа */
double chislo;
/* Сообщение с запросом для пользователя */
printf("Введите ваше число: ");
/* Считывание числа в определенном формате в определенное место */
scanf("%f", &chislo);
/* Проверяем, является ли число большем нуля (положительным)*/
if (chislo > 0) {
/* Если да, то прибавляем единицу (операция инкремент) */
chislo++;
}
else {
/* Если число отрицательное, то вычитаем из числа двойку */
chislo -= 2;
}
/* Выводим результата */
printf("Результата: %f", chislo);
return NULL;
}