Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal X. Y. Z https://www.cyberforum.ru/ pascal/ thread1323439.html
Здравствуйте:) Есть следующая задача: У нас есть x, y и z. Обчислить max(a-b, b2, c+b) + min2(a/b, b, c+b), если
Pascal Программа, которая дописывает в файл 5 введенных целых чисел, а затем подсчитывает сумму всех чисел в файле
Написать программу, которая дописывает в файл 5 введенных пользователем целых чисел, а затем подсчитывает сумму всех чисел в файле. В файле каждый элемент данных должен находиться в отдельной строке....
Зачет Pascal
2 текстовых файла содержат координаты 2 параллельных контуров(создать в текстовом редакторе). Прочитать и записать их в 1 линейный список. На базе списка вычислить объем между этими двумя сечениями. ...
Pascal Присвоить значение динамическим переменным, вывести на экран, при выходе переменные удалить паскаль присвоить значение динамическим переменным вывести на экран при выходе переменные удалить. данные: p=string; T=char; St=integer; PR=-char; https://www.cyberforum.ru/ pascal/ thread1323300.html
Pascal Задание по теме "строки" https://www.cyberforum.ru/ pascal/ thread1323284.html
С клавиатуры ввести символы. Посчитать кол-во символов >k; <k; =k. Результат выдать на экране. const k=6; var St:string; Begin Readln(St); If Length(St)<k then Writeln(' символов меньше...
Pascal В правильном треугольнике проведена средняя линия. Найти площадь образовавшейся трапеции
В общем само задание: Задание 1. Составить программу для решения задачи с применением функции и процедуры пользователя. В правильном треугольнике проведена средняя линия. Найти площадь...
Pascal Список и вывод информации
Имеем текстовый документ с определенным количеством студентов и 4 оценки по разным предметам. На выходе должны быть указаны отличники по всем предметам. В конце сделать подсчет полных отличников. ...
Pascal Графика, буквы 2D И 3D За данным примером реализовать букву 'Л' в 2D и 3D. Пример с буквой 'Ш': uses graphabc; procedure p2d; begin setbrushcolor(clperu); fillrect(120,300,500,350);//shpala ... https://www.cyberforum.ru/ pascal/ thread1322999.html
Pascal Изменить текст входящего текстового файла так, чтобы в исходящем файле не оставалось пустых строк https://www.cyberforum.ru/ pascal/ thread1322948.html
написать программу которая превращает текст входящего текстового файла так, чтобы в исходящем файле не оставалось пустых строк.
Pascal Устранить из последовательности символов все группы трех смежных букв "АВС" Устранить из последовательности S1. . . Sn все группы трех смежных букв АВС . Добавлено через 30 минут я нашёл решение, как тему удалить? https://www.cyberforum.ru/ pascal/ thread1322946.html
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
08.12.2014, 19:05 0

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"

08.12.2014, 19:05. Показов 1859. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Snord как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
    s : String;
    i, count : Byte;
begin
    Write('s='); ReadLn(s);
    if (s[1] = 'O') then
        Insert(' ', s, 2);
    i := 1; count := 0;
    while (i < Length(s)) do
    begin
        Inc(i);
        if (s[i] = 'O') then
            Insert(' ', s, i + 1);
        if (Copy(s, i - 1, 3) = 'KAL') then
            Inc(count);
    end;
    if (s[Length(s)] = 'O') then // толку не особо, но для чистоты выполнения задания
        Insert(' ', s, Length(s) + 1);
    WriteLn(s);
    WriteLn('count=', count);
end.


Вернуться к обсуждению:
После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2014, 19:05
Готовые ответы и решения:

Строки. После каждого символа "О" вставлять символ "А"
Строки. После каждого символа &quot;О&quot; вставлять символ &quot;А&quot;.

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний &quot;жи&quot;, &quot;ши&quot;, &quot;ча&quot;, &quot;ща&quot;,...

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".
Немогу написать программу. В заданной последовательности литер, состоящей из букв латинского...

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