Вопрос по информатике:
Перевести код из Паскаля в Си
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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.06.2017 17:43
- Информатика
- remove_red_eye 17955
- thumb_up 16
Ответы и объяснения 1
#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<<"Слово \\"<
else {
std::cout<<"Слово \""<
- 20.06.2017 07:52
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.