Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
Littel AngeL
0 / 0 / 0
Регистрация: 06.10.2010
Сообщений: 1
1

В тех словах, которые оканчиваются сочетанием букв "ing", заменить это окончание на "ed"

09.10.2010, 17:26. Просмотров 2351. Ответов 4
Метки нет (Все метки)

SOS!!! Чесно, не могу понять как это сделать, потому что ни когда не сталкивалась со строками и процедурами, так как они мне вообще не преподовались.... Кто в этом разбирается? помогите пожалуста
можете стучатся в асю 388 621 584

11 Дана строка. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, называются словами. В тех слоях, которые оканчиваются сочетанием букв "ing", заменить это окончание на "ed".


11 Дана последовательность слов русского языка, между словами – запятая, за последним словом – точка. Напечатать в алфавитном порядке: все согласные буквы, которые не входят ни в одно слово.


11 Описать процедуру, которая вычисляет сумму элементов двух одномерных массивов.


11 Вычислить выражение, содержащее матрицы размером 3х3. Действия по нахождению максимального и минимального элемента матрицы оформляются в виде функций, а остальные действия - в виде процедур помещенных в модуле (Unit).
A,B,C Z=(B*maxA+C*minB)*maxB-A*maxC

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2010, 17:26
Ответы с готовыми решениями:

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".
Немогу написать программу. В заданной последовательности литер, состоящей из букв латинского...

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами...

Заменить в строке все вхождения символов "ph" на "f" , а все вхождения "ed" на "ing"
Вывести на экран дисплея заданную текстовую строку предварительно затмении все вхождения в неё...

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща",...

4
AF
49 / 48 / 21
Регистрация: 06.10.2010
Сообщений: 115
09.10.2010, 21:54 2
№3:

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
26
27
28
29
30
31
32
33
34
35
USES Crt;
CONST
  N = 5;
VAR
  A, B, C: ARRAY[1..N] of INTEGER; 
  i: INTEGER;
 
  PROCEDURE Summ;        //процедура
  BEGIN
    FOR i := 1 TO N
    DO   
      C[i] := A[i] + B[i];
  END;
  
BEGIN
  FOR i := 1 TO N
  DO
    BEGIN
      A[i] := random(6);
      B[i] := random(6);
    END;                 //формируем массивы
  FOR i := 1 TO N
  DO
    WRITE(A[i]);
  WRITELN;
  FOR i := 1 TO N
  DO
    WRITE(B[i]);         //выводим сформированные массивы
  Summ;                  //вызов процедуры 
  WRITELN;
  FOR i := 1 TO N
  DO
    WRITE(C[i]);         //вывод конечного массива
  READLN
END.
Добавлено через 10 минут
№1:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
USES Crt;
VAR
  S: STRING;
  i: INTEGER;
BEGIN
  READLN(S);
  S := S + ' ';
  FOR i := 1 TO Length(S)
  DO
    IF Copy(S, i, 4) = 'ing '
    THEN
      BEGIN
        Delete(S,i,4);
        Insert('ed ', S, i);
      END;
  Delete(S, Length(S), 1);
  WRITELN(S);
  READLN
END.
Добавлено через 50 минут
№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
26
27
28
29
30
USES Crt;
CONST
  Alphabet1: ARRAY [1..20] of CHAR = ('B', 'C', 'D', 'F', 'G', 'H', 'J', 
  'K', 'L', 'M', 'N', 'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Z');
  Alphabet2: ARRAY [1..20] of CHAR = ('b', 'c', 'd', 'f', 'g', 'h', 'j', 
  'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'z');
VAR
  i, j: INTEGER;
  A: ARRAY[1..20] of BOOLEAN;
  S: STRING;
BEGIN
  READ(S);
  FOR j := 1 TO 20
  DO
    A[j] := TRUE;
  FOR i := 1 TO Length(S)
  DO
    FOR j := 1 TO 20
    DO
      IF (S[i] = Alphabet1[j]) OR (S[i] = Alphabet2[j])
      THEN
        A[j] := FALSE;
  FOR j := 1 TO 20
  DO
    IF A[j]
    THEN
      WRITE(Alphabet1[j]);     
  WRITELN;
  READLN
END.
2
Mawrat
12865 / 5769 / 1703
Регистрация: 19.09.2009
Сообщений: 8,807
09.10.2010, 22:21 3
Задача о согласных буквах с обработкой букв кириллицы.
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
program Project1;
 
(*Для кодовой страницы CP866 переводит символы в верхний регистр.
Правильно обрабатывает символы кириллицы.*)
function UpCaseRus(const aCh : Char) : Char;
var
  Res : Char;
begin
  Res := aCh;
  case Res of
    #$A0..#$AF: Res := Char(Ord(Res) - $20);
    #$E0..#$EF: Res := Char(Ord(Res) - $50);
    #$F1: Res := #$F0;
    else Res := UpCase(Res);
  end;
  UpCaseRus := Res;
end;
 
const
  (*Множество согласных букв.
  БВГДЖЗЙКЛМНПРСТФХЦЧШЩЬЪ*)
  A = [
    'Б', 'В', 'Г', 'Д', 'Ж', 'З', 'Й', 'К', 'Л', 'М', 'Н', 'П',
    'Р', 'С', 'Т', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ь', 'Ъ'
  ];
var
  S : String;
  Ch : Char;
  Da : set of Char;
  i : Integer;
begin
  repeat
    Writeln('Введите строку:');
    Readln(S);
 
    Da := [];
    for i := 1 to Length(S) do begin
      Ch := UpCaseRus( S[i] );
      if Ch in A then Da := Da + [Ch];
    end;
 
    Writeln('Перечень согласных букв, которые ни входят ни в одно слово:');
    i := 0;
    for Ch := #0 to #255 do begin
      if ( Ch in A ) and ( not (Ch in Da) ) then begin
        Inc(i);
        if i > 1 then Write(', ');
        Write(Ch);
      end;
    end;
    Writeln;
    if i = 0 then Writeln('Все согласные буквы участвуют в тексте.');
 
    Writeln('Повторить - Enter. Выход - любой символ = Enter.');
    Readln(S);
  until S <> '';
end.
1
AF
49 / 48 / 21
Регистрация: 06.10.2010
Сообщений: 115
09.10.2010, 22:31 4
Mawrat, "Ъ" и "Ь" - это не согласные

Добавлено через 1 минуту
а я забыл "Й"

Добавлено через 3 минуты
У вас правильно работает программа? у меня в ней хоть и выводит каракули, но заметно, что что бы я ни вводил, выводит одинаковое кол-во каракулей
0
Mawrat
12865 / 5769 / 1703
Регистрация: 19.09.2009
Сообщений: 8,807
09.10.2010, 22:33 5
Я проверял в консоли Delphi с поправкой на кодвую страницу (там CP1251). В Pascal тоже должно работать.
0
09.10.2010, 22:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2010, 22:33

Сосчитать сколько предложений в тексте оканчиваются на "." "?" "!"
В заданном тексте подсчтитать сколько предложений оканчиваются на &quot;.&quot; &quot;?&quot; &quot;!&quot;.

В данном словосочетании заменить два символа "ас" на один символ "*" и удалить букву "о"
В данном словосочетании заменить два символа &quot;ас&quot; на один символ &quot;*&quot; и удалить букву &quot;о&quot;.

Шахматы: охарактеризовать положение белых с помощью слов: "мат", "шах", "пат", "обыкновенная позиция"
у белых на доске остался только король , у черных - король, слон, конь. охарактеризовать положение...


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

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

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