Перевести код из Паскаля в Си  uses crt; const maxslov=10; slovar: array[1..maxslov] of string = ('Информатика','Математика','Алгебра','Имя','Паскаль','Папка','Сайт','Вегас','Телефон','Пара'); pr: set of char=[' ','.',',',';',...

Перевести код из Паскаля в Си  uses crt; const maxslov=10; slovar: array[1..maxslov] of string = ('Информатика','Математика','Алгебра','Имя','Паскаль','Папка','Сайт','Вегас','Телефон','Пара'); pr: set of char=[' ','.',',',';',':','-','!','?']; var s,sl: string; i,j,k: byte; begin while (true) do begin write ('s='); readln(s); s:=s+ ' '; sl:=''; for i:=1 to length(s) do if not (s[i] in pr) then sl:=sl+s[i] else if length(sl)>0 then begin k:=0; for j:=1 to maxslov do if slovar [j]=sl then inc(k); if k=0 then writeln ('Слово " ',sl,'" написано неправильно,или не найдено в словаре.') else writeln ('Слово ', sl, ' написано правильно.'); sl:=' '; end; end; end.
Гость
Ответ(ы) на вопрос:
Гость
#include #include int main() {   int maxslov = 10;   char *slovar[maxslov];   slovar[0] = "Информатика";   slovar[1] = "Математика";   slovar[2] = "Алгебра";   slovar[3] = "Имя";   slovar[4] = "Паскаль";   slovar[5] = "Папка";   slovar[6] = "Сайт";   slovar[7] = "Вегас";   slovar[8] = "Телефон";   slovar[9] = "Пара";   char *pr[8] = {" ", ".", ",", ";", ":", "-", "!", "?"};   char *s, *sl;   int i, j, k;   bool punct;   while (true) {     std::cout<<"s=";     std::cin>>s;     s = strcat(s, " ");     sl = "";     for ( i = 0; i <= strlen(s); i++ ) {       for ( j = 0; j <= 8; j++ ) {         if ( strcmp(pr[j], s[i]) ) {           punct = true;         }         else {           punct = false;         }       }       if ( !(punct) ) {         sl = strcat(sl, s[i]);       }       else {         if ( strlen(sl) > 0 ) {           k = 0;           for ( j = 0; j <= maxslov; j++ ) {             if (slovar[j] = sl) {               k++;             }           }           if (k = 0) {             std::cout<<"Слово \""<
Не нашли ответ?
Ответить на вопрос
Похожие вопросы