1 / 1 / 1
Регистрация: 06.03.2011
Сообщений: 43
1

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте

23.03.2011, 17:26. Показов 2727. Ответов 3
Метки нет (Все метки)

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак", если "б" стоит на нечетном месте.
Спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2011, 17:26
Ответы с готовыми решениями:

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте
Задание 1. В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и...

Файлы: найти частоту появления буквы "а" в каждом слове текста
В заданном тексте слова разделяются символами: "," "." "-" ":" ";" " " "!" "?"....

В словах-палиндромах (например, "шабаш", "казак") первую и последнюю букву сделать большими
результат такой: что нужно исправить в коде? const AlphBg='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';...

В словосочетании заменить два символа "ас" на один символы "_+_" и удалить знак "*"
В данном словосочетании заменить два символа "ас" на один символы "_+_" и удалить знак "*".

3
2 / 2 / 4
Регистрация: 21.03.2011
Сообщений: 60
23.03.2011, 18:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var c:char;
    i:longint;
    f1,f2:text;
begin
  assign(f1,'C:\input.txt')  //путь до файла на ввод укажи в кавычках
  assign(f2,'C:\output.txt') //см.выше
  reset(f1);
  rewrite(f2);
  i:=1;
  while not eof(f1) do
   begin
     read(c);
     if (c='а') and (i mod 2 = 0)
     then
      write('е')
     else
     if (c='б') and (i mod 2 = 1)
     then
      write('ак')
     else
      write(c);
   end;
  close(f1);
  close(f2);
end.
1
1 / 1 / 1
Регистрация: 06.03.2011
Сообщений: 43
23.03.2011, 20:42  [ТС] 3
а можно без использования ассигнов? как нибудь более проще

Добавлено через 1 час 53 минуты
прошу, сделайте кто-нибудь
0
2 / 2 / 4
Регистрация: 21.03.2011
Сообщений: 60
24.03.2011, 11:07 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var c:char;
    i:longint;
    f1,f2:text;
    s:string;
begin
  read(s); 
  fir i:=1 to length(s) do
   begin
     if (s[i]='а') and (i mod 2 = 0)
     then
      write('е')
     else
     if (s[i]='б') and (i mod 2 = 1)
     then
      write('ак')
     else
      write(s[i]);
   end;
end.
делов на 30 секунд
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2011, 11:07

Ошибка при компиляции "Syntax error "Begin" expected but ";" found"
При компиляции выдаёт ошибку "Syntax error "Begin" expected but ";" found" в блоке Procedure...

Ошибка "Syntax error, "BEGIN" expected but "end of file" found"
В чём заключается ошибка в 73 строке под названием "Syntax error, "BEGIN" expected but "end of...

Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"
Ввожу unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil,...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

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