Перевести код из паскаля в си 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.
273
275
Ответы на вопрос:
#include < string.h> #include < iostream> 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< < "слово \""< < sl< < "\" написано неправильно,или не найдено в словаре."< < endl; } else { std: : cout< < "слово \""< < sl< < "\" написано правильно."< < std: : endl; } sl = " "; } } } } return 0; }
Популярно: Информатика
-
bomixov19.05.2021 20:37
-
dzyskristina50307.01.2022 05:10
-
savinanika2007p06u7217.01.2021 03:29
-
vioren04.06.2022 03:06
-
tatksyushap06w3y06.08.2022 13:22
-
лютебя25.12.2020 10:33
-
Kornella12.10.2020 00:57
-
Victoriahamidul13.10.2021 10:53
-
gree0419.10.2021 20:37
-
Anastasiya2112629.12.2021 07:45