Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Программа на перевод из десятичного числа в двоичное Добрый день! Срочно нужна ваша помошь. Я учусь в десятом классе и получила задание по информатике создать программу на перевод из десятичного числа в двоичное. Поможете пожалуйста? https://www.cyberforum.ru/ free-pascal/ thread1453788.html Выводится ошибка "exitcode 2" Free Pascal
выводится ошибка "exitcode 2", запускается нажимаю на кнопку меню и вылет где накосячил? работаю в FreePascal program salon; uses crt; type uslug=record surnameS:string; nameS:string;
Free Pascal Найти все числа последовательности, которые являются разностью двух других ее членов Помогите решить задачу..:gsad:Найти все числа последовательности, которые являются разностью двух других членов этой последовательности. https://www.cyberforum.ru/ free-pascal/ thread1453560.html Free Pascal Распечатать содержимое узлов дерева в порядке, обратном заполнению https://www.cyberforum.ru/ free-pascal/ thread1453555.html
Помогите, пожалуйста, построить произвольное двоичное дерево. Данные, необходимые для создания дерева, читаются из текстового файла. -Распечатать содержимое файла. -Заполнить дерево по уровням сверху вниз слева направо. -Распечатать содержимое узлов дерева в порядке, обратном заполнению.
Free Pascal Работа с текстовыми файлами - ошибка 103: файл не открыт
В главной программе открываю текст файл с помощью assign. Далее одна из 3 функций работает с ним . В главной программе по окончанию закрываю файл . При запуске пишет , что файл не открыт (103 ошибка ) . Почему так ? В учебнике пишет , что нужно закрывать .
Free Pascal Подсчитать количество последовательностей длины N, состоящих из 0 и 1 Требуется подсчитать количество последовательностей длины N , состоящих из 0 и 1, в которых никакие две единицы не стоят рядом. Входные данные На вход программы поступает целое число N (1<N<100 ). Выходные данные Выведите количество искомых последовательностей. Примеры входные данные https://www.cyberforum.ru/ free-pascal/ thread1452958.html
Free Pascal Найдите среди четырех очередей две одинаковые https://www.cyberforum.ru/ free-pascal/ thread1452459.html
Найдите среди четырех очередей две одинаковые.
Free Pascal Удалить третий слог 'МА' во введённом предложении
Написать программу удаляющую ТРЕТИЙ слог 'МА' в введённом предложении... Помогите плииииз!!!(((:cry: 3 часа уже сижу никак не получается((((( :help: В интернете везде вокруг да около(((( Спать уже хочу((( :sleep: А завтра сдавать(((((:cry:
Free Pascal Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца -1 7 12 8 -1 3 -4 4 3 2 -1 4 Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца. i,j,n,k,r:integer; min,max: real; fr, fw: text; begin assign (fr,'c:\student\14-ttp\lisina\dan5l.pas'); reset(fr); assign (fw,'c:\student\14-ttp\lisina\res5_lis.pas'); https://www.cyberforum.ru/ free-pascal/ thread1451416.html Free Pascal Принадлежит ли точка внутренней области треугольника привет всем, помогите исправить ошибку. program tre1; var a,b,x,y: real; begin writeln ('введите положительные числа а,b='); readln (a,b); writeln ('введите координаты точки x,y='); readln (x,y); if (x>=0) and (y>=0) and (y<(((-b*x)/a)+b) then write ('принадлежит') https://www.cyberforum.ru/ free-pascal/ thread1450890.html
Напечатать позиции всех входящих в строку символов в алфавитном порядке: проверка кода Free Pascal
Для введенной пользователем строки напечатать позиции всех входящих в неё символов (кроме пробелов) в алфавитном порядке. Для символов, которые встречаются несколько раз, напечатать их позиции в одной строке. Например, для слова «PASCAL»: A – 2 5 C – 4 L – 6 p – 1 S – 3
Free Pascal Найти число после манипуляций с его цифрами Привет всем, помогите написать программку. В трехзначном числе зачеркнули первую цифру слева, когда полученное двухзначное число умножили на 7, то получили данное число. Найти это число. https://www.cyberforum.ru/ free-pascal/ thread1450334.html
390 / 365 / 111
Регистрация: 03.02.2013
Сообщений: 1,120
24.05.2015, 01:07 0

В заданном тексте удвоить каждую гласную букву - Free Pascal - Ответ 7659670

24.05.2015, 01:07. Показов 1615. Ответов 9
Метки (Все метки)

Ответ

Cyborg Drone
а вот так...
вот беру вашу программу, вписываю чтобы читала из файла текст:
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
{$MODE FPC}
const vowels = 'АаУуОоЫыИиЭэЯяЮюЁёЕеAaEeIiOoUu';
var a: array of string;
    i, k: integer;
    fin :text;
begin
  k := -1;
  assign(fin,'input.txt');
  reset(fin);
  //writeln('Введите текст, пустая строка для окончания ввода:');
  while not eof(fin) do
  begin
    inc(k);
    setlength(a, k + 1);
    readln(fin, a[k]);
    for i := length(a[k]) downto 1 do if pos(a[k, i], vowels) > 0 then insert(a[k, i], a[k], i);
  end;
  close(fin);
 
  assign(fin,'out.txt');
  rewrite(fin);
  for i := 0 to k - 1 do writeln(fin,a[i]);
  close(fin);
 
end.
пихаю в файл текст из википедии:
Paul Tibbets (1915–2007) was a brigadier general in the United States Air Force, best known as the pilot of the Enola Gay, the first aircraft to drop an atomic bomb. Tibbets enlisted in the army in 1937 and qualified as a pilot the next year. After the Japanese attack on Pearl Harbor he flew anti-submarine patrols over the Atlantic. In July 1942 he became the deputy group commander of the 97th Bombardment Group, the first such group deployed to the United Kingdom as part of the Eighth Air Force. He flew the lead plane in the first American daylight heavy bomber mission against Occupied Europe on August 17, 1942, and again in the first American raid of more than 100 bombers on October 9. After flying 43 combat missions, he joined the staff of the Twelfth Air Force in North Africa. He returned to the United States in February 1943 to help with the development of the Boeing B-29 Superfortress. In September 1944, he was appointed the commander of the 509th Composite Group, which conducted the bombings of Hiroshima and Nagasaki. After the war, he was involved in the development of the Boeing B-47 Stratojet. He left the Air Force in 1966, working for Executive Jet Aviation until 1987.
В выходном файле:
Paauul Tiibbeets (1915–2007) waas aa briigaadiieer geeneeraal iin thee UUniiteed Staatees AAiir Foorcee, beest knoown aas thee piiloot oof thee EEnoolaa Gaay, thee fiirst aaiircraaft too droop aan aatoomiic boomb. Tiibbeets eenliisteed iin thee aarmy iin
феил... а моя бы пережевала этот текст

Вернуться к обсуждению:
В заданном тексте удвоить каждую гласную букву Free Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2015, 01:07
Готовые ответы и решения:

В заданном тексте удвоить каждую согласную букву
Ваша программа должна в заданном тексте удвоить каждую согласную букву.

Удвоить каждую букву в заданном тексте
Ребят, помогите плиз решить задачи, до понедельника надо сделать :cry: 1)Определить число,...

Напишете программу, удваивающую каждую гласную букву в тексте на английском языке
Напишете программу, удваивающую каждую гласную букву в тексте на английском языке. Определите...

Каждую гласную букву в тексте заменить на символ "*"
В конце, когда надо напечатать изменений текст, печает только последнее введеное слово uses crt;...

9
24.05.2015, 01:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2015, 01:07
Помогаю со студенческими работами здесь

В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’,
В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’, ...

Напишите программу,удаляющую каждую гласную букву в тексте на английском языке.Определите количество добавленных букв
Напишите программу,удваивающую каждую гласную букву в тексте на английском языке.Определите...

Напишите программу, удваивающую каждую гласную букву в тексте на английском языке. Определить количество добавляемых букв
Напишите программу, удваивающую каждую гласную букву в тексте на английском языке. Определить...

Утройте каждую букву в заданном тексте.
Помогите пожалуйста решить!СПАСИЬО! Утройте каждую букву в заданном тексте.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru