Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Операция 'and' не применима к типу KeyValuePair<real,integer> Показывает ошибку "Операция 'and' не применима к типу KeyValuePair<real,integer>" VAR X, X1, Y1, Y : REAL; begin WRITELN ( ‘ВВЕДИ X:’); READLN (X); Y:= EXP ((-X+1)LN (3) ) SIN (X); WRITELN (‘ При Х=’, X: 8:3, ‘Y=’, Y: 8:4); WRITELN (‘ Y11=’, TRUNC (Y): 4, ‘Y22=’, ROUND (Y): 4); WRITELN (‘ВВЕДИ КООРДИНАТЫ: Х1, Y1’); https://www.cyberforum.ru/ pascalabc/ thread1744082.html	Найти максимальные элементы в каждом столбце матрицы и записать их в последнюю строку матрицы Pascal ABC C клавиатуры вводится матрица n*m 1.найти максимальные элементы в каждом столбце матрицы и записать их в последнюю строку матрицы . 2.найти сумму чисел кратным трем в каждой строке матрицы и записать эту сумму в последний столбец . 3.с клавиатуры вводится номер столбца упорядочить по убыванию элементы в этом столбце.
Pascal ABC Получить гистограмму длин строк файла Заданный текстовый файл. Получить гистограмму длин строк этого файла. вот что мне удалось написать. program fajly; var f:text; a:array of string; len:array of integer; max,i,n,m,j:integer; begin assign(f,'f.txt'); rewrite(f); readln(n); close(f); reset(f); https://www.cyberforum.ru/ pascalabc/ thread1744012.html	Pascal ABC Найти сумму элементов главной диагонали матрицы Дан двумерный массив n*m. Найти сумму элементов главной диагонали при n=m. https://www.cyberforum.ru/ pascalabc/ thread1743870.html
Написать программу, которая находит максимальное значение и умножает его на минимальное значение Pascal ABC Дан двумерный массив, размером n*m. Написать программу, которая находит максимальное значение и умножает его на минимальное значение.	Pascal ABC Составить программу, которая находит сумму четных элементов массива Дан двумерный массив от 1 до n. Составить программу ,которая находит сумму четных элементов массива. https://www.cyberforum.ru/ pascalabc/ thread1743868.html
Pascal ABC Найти количество согласных букв предложения В входном файле записано предложение. Вывести в выходной файл построчно следующие результаты количество согласных букв, самое длинное слово, сумму нечетных цифр, сумму чисел, все слова палиндромы, напечатать все символы встречающиеся в тексте только один раз https://www.cyberforum.ru/ pascalabc/ thread1743830.html	Возведение числа в квадрат, передача параметра по значению и по ссылке Pascal ABC Написать две функции возведения числа в квадрат. Использовать в первой функции передачу параметра по значению, во второй – по ссылке.
Pascal ABC Составить двусвязный список из слов некоторого предложения https://www.cyberforum.ru/ pascalabc/ thread1743701.html 2. Составить двусвязный список из слов некоторого предложения. Вставить новое слово перед каким-либо из элементов списка. Что останется от повторенного несколько раз удаления каждого второго элемента (какое последнее слово).	Pascal ABC Все четные числа заменить нулем 1.Дан односвязный список типа кольцо, элементами которого являются целые числа. Все четные числа заменить нулем. https://www.cyberforum.ru/ pascalabc/ thread1743700.html
Pascal ABC Определить прирост суммы вклада в банке (циклы с пред- и пост-условием) Гражданин 1 июля открыл счет в банке, вложив S руб. Через каждый месяц размер вклада увеличивается на N% от имеющейся суммы. Определить прирост суммы вклада за 1,2,...,10 месяц.	Pascal ABC Анимация: взлет ракеты \помогите пожалуйста нарисовать ракету с анимацией взлета https://www.cyberforum.ru/ pascalabc/ thread1743624.html

Amigo31

0 / 0 / 0

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

Сообщений: 5

Заменить в файле все элементы, равные lit, на пробел - Pascal ABC - Ответ 9182806

24.05.2016, 15:28. Показов 854. Ответов 1

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

Студворк — интернет-сервис помощи студентам

Люди добрые помогите пожалуйста)

Задан текстовой файл и некоторая литера lit. Написать программу, которая заменяет в файле все элементы, равные lit, на пробел.

есть кое-какие наработки,

Pascal

Program lab08;
Var f:file of char;
    s:char;
    i:integer;
    m:string;
Begin
    Assign(f,'1.txt');Reset(f);
    While not Eof(f) do
     Begin
     readln(m);
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i]=m then s[i]:=' ';
      write(f,s);
     End;
    Close(f);
End.

Заранее, спасибо!

Вернуться к обсуждению:
Заменить в файле все элементы, равные lit, на пробел Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.05.2016, 15:28

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

Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями
Здравствуйте) Пожалуйста, помогите решить две задачки!) 1)Одномерный массив из 7 элементов ...

В одномерном массиве найти максимальные элементы и все элементы равные максимальному заменить на 0.
в одномерном массиве А состоящем из N элементов найти максимальные элементы и все элементы равные...

в одномерном массиве А состоящем из N элементов найти максимальные элементы и все элементы равные максимальному заменить на 0.
в одномерном массиве А состоящем из N элементов найти максимальные элементы и все элементы равные...

Заменить в файле все подряд идущие пробелы на один пробел
Создать текстовый файл. Заменить в нем все подряд идущие пробелы на один пробел. Помогите...

	24.05.2016, 15:28

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.05.2016, 15:28

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

В текстовом файле заменить все группы пробелов на один пробел
В текстовом файле заменить все группы пропусков , больше 1 на 1 пробел. Помогите решить задачу....

В двумерном массиве D (5; 5) все элементы равные M заменить на N
Привет всем. Помогите решить несколько простых задач,пожалуйся.Просто я с Basic'ом не дружу. ...

Заменить все элементы массива равные 7 единицами
Помогите пожалуйста, очень срочно. Нужен ответ с решением. Заранее, огромное спасибо. Ответ...

Заменить все элементы матрицы, равные С, нулями
Дан двумерный массив размерностью 5*5. Заменить все элементы массива = С нулями. В случае если...

Наверх