Записать в новый файл все слова, начинающиеся с определенной буквы - Turbo Pascal

  1. Дан текстовый файл с текстом не менее 15 строк. Записать в новый файл все слова, начинающиеся с определенной буквы. Буква вводится по запросу пользователя.


textual

Код к задаче: «Записать в новый файл все слова, начинающиеся с определенной буквы - Turbo Pascal»

Var f,g:text;
    s,st:string;
    k:byte;
    ch:char;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    write('Буква: ');readln(ch);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';k:=0;
      While Pos(' ',s)>0 do
      Begin
        st:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        if st<>'' then
         if st[1]=ch then 
         Begin
           write(g,st+' ');
           inc(k);
         End;
      End;
      if k>0 then writeln(g);
    End;
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.857 из 5



Похожие ответы
  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:

  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Составить программу для вычисления значения функции: y=sh(x) с помощью разложения функции в степенной ряд Помогите пожалуйста решить, пожалуйста!!

  1. Подскажите, наведите на путь, я реально не могу сообразить как она должна работать!! Танк в компьютерной игре может двигаться в одном из четырех направлений, обозначим их числами: 1 — север, 2 — восток, 3 — юг, 4 — запад. Направление движения изменяется тремя командами: 1 — поворот направо, 2 — поворот налево, 3 — поворот кругом. Пользователь вводит начальное направление движения, а затем ряд команд. Программа должна определять и печатать всякий раз новое направление. Выход из цикла — команда 0.

  1. Помогите пожалуйста!!! Срочно, умоляю молю Составить программу для вычисления значения функции :y=sin(x) с помощью разложения функции в степенной ряд

  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Круг вписан в квадрат со стороной А. Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран.