Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Преобразовать массив методом "пузырьков" Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине — элементы, стоявшие в нечетных позициях. Упорядочить каждую часть массива по возрастанию, используя алгоритм сортировки методом прямого обмена. изначальный массив - (-1 4 7 6 0 9) мой результат после выполнения программы - (-1 -1 0 6) ДОЛЖНО БЫТЬ - (4 6 9... https://www.cyberforum.ru/ pascal/ thread1855598.html	Метод Лагранжа Pascal Не совсем правильно работает код, в чем может быть проблема? Пробовал добавлять к знаменателям 1 - все равно. Заранее спасибо за помощь. var i, M, N: integer; h, A, B: real; Xn, Yn: array of real; function F(x:real): real; begin F:=x*ln(x)-1.2; end; function Lagr(X:real):real;
Pascal Найти сумму цифр числа, записанного прописью https://www.cyberforum.ru/ pascal/ thread1855529.html Всем доброго времени суток! Помогите, пожалуйста, с задачей. Дана строка, в которой записано целое число, например: триста двадцать один. Найти сумму цифр этого числа. В приведенном примере это 6. Проблема в том, что вроде понимаю как делать, но написать код ума не хватает. Заранее спасибо за помощь.	Pascal Найти внешние диаметры колец, площадь которых больше площади заданного прямоугольника, и число таких колец Дана матрица из 2 столбцов и 10 строк. Первый элемент каждой из них представляет диаметр внутренней, а второй-диаметр внешней окружности кольца. Отсчитать внешние диаметры тех колец, площадь которых больше площади прямоугольника с заданными сторонами и число таких колец. https://www.cyberforum.ru/ pascal/ thread1855460.html
Типизированный файл и сортировка Pascal Помогите, пожалуйста, написать программу для контрольной. Условие: Ввести неупорядоченную последовательность из 20 элементов. Сохранить последовательность в файле. Написать процедуры упорядочивания последовательности методом шейкер-сортировки, вставки К новых элементов на правильное место в упорядоченную последовательность. Вывести результаты всех обработок последовательности. Примечание:...	Pascal Вывести на экран значения функции z(x) из промежутка [a,b] помогите решить 33. Вывести на экран значения функции z(x) из промежутка (протабулировать функцию). Z(x)=ln(x3-3x) https://www.cyberforum.ru/ pascal/ thread1855340.html
Pascal Найти минимум и максимум функции help me pls 32. Найти минимум и максимум функции Y = ln(x – x2 +8), х принимает целые значения на интервале https://www.cyberforum.ru/ pascal/ thread1855336.html	Pascal Найти минимум и максимум функции помогите решить 31. Найти минимум и максимум функции Y = X3 – 7X +8, х принимает целые значения на интервале
Pascal Найти разность между наибольшим и наименьшим из чисел https://www.cyberforum.ru/ pascal/ thread1855331.html Помогите пожалуйста решить 30. С клавиатуры вводится 10 различных произвольных чисел. Найти разность между наибольшим и наименьшим из них.	Pascal Произведение элементов массива, расположенных между первыми и вторым нулевыми элементами В одномерном массиве, состоящем из N вещественных элементов, вычислить произведение элементов массива, расположенных между первыми и вторым нулевыми элементами. Помогите, пожалуйста:) https://www.cyberforum.ru/ pascal/ thread1855214.html
Написать программу, которая по заданному натуральному числу N определяет значение функции Pascal Функция f(n) определена следующим образом: f(0)=0, f(1)=1, f(2n)=f(n), f(2n+1)=f(n)+f(n+1). Требуется написать программу, которая по заданному натуральному числу N определяет значение функции f(N). Помогите пожалуйста , не могу разобраться!	Pascal Поместить в массив элементы исходного массива в заданном порядке https://www.cyberforum.ru/ pascal/ thread1855097.html Дан массив А и k элементов (k <= 60). Получить массив С, содержащий элементы массива А в следующем порядке: ak,a1,a2,...ak-1

JokeR.BY

CAPITAL OF ROCK!

1281 / 708 / 982

Регистрация: 03.03.2010

Сообщений: 2,286

21.11.2016, 16:24

Переписать в отдельный текстовый файл строки, содержащие заданный символ не более одного раза - Pascal - Ответ 9797029

21.11.2016, 16:24. Показов 906. Ответов 1

Метки (Все метки)

Ответ

небольшая оптимизация

Pascal

var
    f, g: Text;
    s: String;
    c: Char;
    i, count: Byte;
begin
    Assign(f, 'f.txt'); Reset(f);
    Assign(g, 'g.txt'); Rewrite(g);
    Write('Введите контрольный символ: '); ReadLn(c);
    while (Not EoF(f)) do
    begin
        ReadLn(f, s);
        count := 0;
        i := 1;
        while ((i <= Length(s)) And (count < 2)) do
        begin
            Inc(count, Ord(s[i] = c));
            Inc(i);
        end;
        if (count < 2)
        then
            WriteLn(g, s);
    end;
    Close(f); Close(g);
end.

Вернуться к обсуждению:
Переписать в отдельный текстовый файл строки, содержащие заданный символ не более одного раза Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.11.2016, 16:24

Готовые ответы и решения:

Выделение строк, содержащий заданный символ, не более одного раза
2)Выделение строк, содержащий заданный символ, не более одного раза.

В двухмерном массиве найти строки, не содержащие нулей и максимальное число, встречающееся более одного раза
Нужно сделать задание 1.Консольный ввод/вывод целочисленного массива размером 5*5 2.Определение...

Скопировать в другой файл все строки, содержащие заданный символ
Скопировать в другой файл все строки, содержащие заданный символ. Program space; var q,new:text;...

Записать в файл все строки исходного файла содержащие заданный символ
Задание: Написать программу, которая создает в текстовом режиме файл в текущем каталоге с именем,...

	21.11.2016, 16:24

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.11.2016, 16:24

Помогаю со студенческими работами здесь

Дан текстовый файл F. Переписать в другой файл G все строки, содержащие цифры.
народ помогите сессия началась, задачи не могу сделать на С+ в билдере в консоле, не научился пока...

Что не так? Дан текстовый файл F. Переписать в другой файл G все строки, содержащие цифры.
#include <iostream> #include <math.h> using std::cin; using std::cout; using std::endl; ...

Переписать в другой файл строки, оканчивающиеся на заданный символ
Задание: Переписать в другой файл строки, оканчивающиеся на заданный символ. Моя программа: var...

Имеется текстовый файл. Напечатать все строки, содержащие в качестве фрагмента заданный текст
...

Из текстового файла f переписать в файл g все строки, содержащие более 30 символов
Дан текстовый файл f. Переписать в файл g все строки файла f, содержащие более 30 символов. Файл...

Переписать в новый файл строки, в которых содержится заданный символ
Переписать в новый файл строки, в которых содержится заданный символ. Сижу туплю уже несколько...

Наверх