Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Одномерный массив(ЦИКЛ-ПОКА или ЦИКЛ-ДО) https://www.cyberforum.ru/ pascalabc/ thread1070653.html
Несколько школьников выстроились в шеренгу. Для каждого школьника известен день его рождения. Требуется определить, является ли последовательность, упорядоченной по возрастанию.
Одномерный массив (ЦИКЛ-ДЛЯ) Pascal ABC
Известны итоги забега спортсменов на 100 метров. Требуется: определить спортсмена, показавшего второй результат.
Pascal ABC Подсчитать общее число делителей
Определить победителя. Два школьника записывают по одному натуральному числу подсчитать общее число делителей, победит тот школьник, у которого это число окажется наибольшим.
Pascal ABC круговая диаграмма в pascal abc помогите сделать пожалуйста некий шаблон для построения круговой диаграммы и вывод ответа в процентах. заранее спасибо https://www.cyberforum.ru/ pascalabc/ thread1070632.html
Pascal ABC Составьте программу, которая выполняет чертёж одной из деталей и высчитывает ещё площадь https://www.cyberforum.ru/ pascalabc/ thread1070596.html
Составьте программу, которая выполняет чертёж одной из деталей и высчитывает ещё площадь. Масштаб: 1 клетка - 20 пикселей.
Переделать в рекурсивную функцию Pascal ABC
помогите переделать с помощью рекурсии program zad93; uses crt; var i,j,x,n:integer; f,x1:real; begin clrscr; writeln('Vvedite n'); readln(n); writeln('Vvedite X');
Метод Симпсона. Численное интегрирование Pascal ABC
f(x)=9tg(1-x)^2 интервал (a,b)=(-0.5...0.5) количество промежутков n=8 метод Cимпсона 1) найти значение интеграла 2)найти погрешность метода
Pascal ABC Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от xнач до хкон с шагом dx с точность e. Таблицу снабдить заголовком и шапкой. Каждая... https://www.cyberforum.ru/ pascalabc/ thread1070427.html
Pascal ABC Найти значение функции у, заданной для целого числа х из диапазона https://www.cyberforum.ru/ pascalabc/ thread1070424.html
Найти значение функции у, заданной для целого числа х из диапазона . Функция задана четырьмя различными формулами для различных чисел с данного диапазона: 1) х-четное число из интервала . ...
Pascal ABC В которое двузначное число и какую цифру надо вставить посередине записи, чтобы полученное число было в 6 раз больше чем исходное? В которое двузначное число и какую цифру надо вставить посередине записи, чтобы полученное число было в 6 раз больше чем исходное? https://www.cyberforum.ru/ pascalabc/ thread1070411.html
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 3
0

Ошибка в коде (очень устал искать)

13.01.2014, 22:46. Просмотров 255. Ответов 1
Метки (Все метки)

Уже несколько раз проходил отладкой, не пойму, в чём ошибка. Часа 2-3 бьюсь.
Задание:
Выделить цветом и подсчитать число слов, удовлетворяющих следующим условиям.
1.Слово содержит четное число гласных и нечетное число согласных букв.
2.Слово принадлежит нечетной строке.

Файл в той же папке валяется. Можно создать любой текстовый для теста.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses crt;
var
f: text;
s, slovo: string;
i, j, n, schet, ch_slov, kol_gl, kol_sl, robit, k: integer;
begin
schet:=0;
assign(f,'input.txt');
Reset(f);
while not eof(f) do
  begin
  inc(schet);
  Readln(f,s);
  //Работа со строкой
     begin
     If (schet mod 2)=1 then                                //Первое условие - нечётность строки
                   begin
                   textcolor(1);
                   for i:=1 to length(s) do
                   If (s[i]=' ')or(s[i]='')or(s[i]='.')or(s[i]='!')or(s[i]='?') then inc(ch_slov);
                   end
                        else
                   begin                                    //Второе условие - чётность нечётность
                   for i:=1 to length(s) do
                       begin
                       k:=ord(s[i]);
                       If (k>191)and(k<=255)then slovo:=slovo+s[i]
                   else
                       begin
                       for j:=1 to length(slovo) do
                           If (slovo[j]='А')or(slovo[j]='а')or(slovo[j]='Е')or(slovo[j]='е')or(slovo[j]='Ё')or(slovo[j]='ё')
                           or(slovo[j]='И')or(slovo[j]='и')or(slovo[j]='О')or(slovo[j]='о')or(slovo[j]='У')or(slovo[j]='у')
                           or(slovo[j]='Ы')or(slovo[j]='ы')or(slovo[j]='Э')or(slovo[j]='э')or(slovo[j]='Ю')or(slovo[j]='ю')
                           or(slovo[j]='Я')or(slovo[j]='я')
                           then inc(kol_gl) else inc(kol_sl);
                       If ((kol_gl mod 2)=0)and((kol_sl mod 2)=1) then robit:=1;
                       end;
                       end;
                   end;
                   
     If robit=1 then
                     begin
                     textcolor(1);
                     for i:=1 to length(s) do
                     If (s[i]=' ')or(s[i]='')or(s[i]='.')or(s[i]='!')or(s[i]='?') then inc(ch_slov);
                     end;
     end;
  writeln(s);
  textcolor(black); robit:=0;
  end;
writeln('Число слов в выделенных участках - ',ch_slov);
close(f);
end.


Вернуться к обсуждению:
Ошибка в коде (очень устал искать)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2014, 22:46
Готовые ответы и решения:

Устал искать баг
Проблемма проста - нужно удалить из вещественной матрицы строку и столбец, верней ряд строк и...

MS Access - УСТАЛ УЖЕ ИСКАТЬ ПРИЧИНУ СВОЕЙ ОШИБКИ
как сделать поля с выбором варианта?.. например пол- выбрать &quot;м&quot; или &quot;ж&quot; тип данных ставлю...

Очень нужно осознать, в чем ошибка в коде на Prolog?
Задача состоит в следующем: 1. Описать на Прологе базу знаний «Правители России», содержащую...

где в вордпрессе искать стиль? очень надо!
срочно помогите !!! где в вордпрессе искать стиль http://www.maluch.ru(строка&quot; 14) . ворпресс знаю...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.