Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal -> C++ (В данном тексте в словах четной длины, начинающихся с заданного символа, определить количество гласных) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Проблемы с кодом Необработанное исключение по адресу 0x00A85A9B http://www.cyberforum.ru/cpp-beginners/thread890076.html
Всем доброго времени суток! Значит есть задание сделать программу: К миниЭВМ подключено четыре терминала, с которых осуществляется решение задач. По команде с терминала выполняют операции...
C++ Работа с датой и временем Доброе время суток дорогие программисты, у меня возникла очень большая проблема, которую я не могу решить. Если вам не трудно не могли бы вы помочь. Я, понимаю что правилами нужно присылать код... http://www.cyberforum.ru/cpp-beginners/thread890072.html
C++ Рекурсией найти файл с самым длинным именем. В чём ошибка?
Здравствуйте, программа должна найти файл с самым длинным именем и вывести полностью путь к этому файлу. Ниже код, который после компиляции не выводит ничего, в чём ошибка? #include <cstdlib>...
Создать модуль для обработки одномерных массивов с помощью классов C++
Создать модуль для обработки одномерных массивов с помощью классов. Добавлено через 21 час 5 минут Есть у кого какие мысли? =(
C++ Определить операторы как функции члена класса http://www.cyberforum.ru/cpp-beginners/thread890044.html
Добрый вечер! Ребята, помогите решить вот такую задачку: Необходимо определить операторы +, =, +=, -=, *=, , как функции члена класса. И определить функцию печати!
C++ Найти ошибку в программе (считывание из текстового файла трех предложений и их вывод в обратном порядке) задание было "написать программу которая считывает из текстового файла три предложения и выводит их в обраном порядке " #include <fstream> #include <iostream> #include <cstring> #include... подробнее

Показать сообщение отдельно
_ROBERT_
0 / 0 / 0
Регистрация: 21.10.2012
Сообщений: 44

Pascal -> C++ (В данном тексте в словах четной длины, начинающихся с заданного символа, определить количество гласных) - C++

04.06.2013, 01:11. Просмотров 609. Ответов 4
Метки (Все метки)

помогите пожалуйста.
(задача В данном тексте в словах четной длины, начинающихся с заданного символа, определить количество гласных.)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Const st='.....';
Var s,s1:string;
    i,k:byte;
    ch:char;
Begin
    write('Введите строку: ');readln(s);
    write('Введите символ: ');readln(ch);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if odd(Length(s1))and(s1[1]=ch) then
      Begin
        k:=0;
        For i:=1 to Length(s1) do
         if Pos(s1[i],st)>0 then inc(k);
        writeln('В слове ',s1,' доля согласных = ',k);
      End;
    End;
    readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.