Для введенной текстовой строки подсчитать количество букв "Б",, затем заменить все строчные гласные на прописные. Опции

[Rebel]

М

Название темы...

Помогите пожалуйста решить 2 задачи на Паскале. Скоро сдавать, а сделать сам не могу

Задача №1

Для формулы y= log2(эта двойка внизу логорифма)(x-4)+e(в степени 2a-x) вычислить значение результата для массива чисел от 1 до 50 с шагом 0,2. Результаты вычислений представить в виде таблицы и сохранить в файле.

Задача №2

Для введенной текстовой строки подсчитать количество букв "Б", затем заменить все строчные гласные на прописные. Результат статистики сохранить в файл, а результат преобразования - на экран.

Я был бы очень благодарен помощи. Я на первом курсе, паскаль пока еще не постиг. Вот-вот начнется сессия и мне наступит конец

Сообщение отредактировано: мисс_граффити - 14.06.2007 17:59

[klem4]

1) Поиск-> Табулирование функции

[Rebel]

Спасибо за первую задачу, я нашел
Как насчет второй задачи? Может кто знает?

[volvo]

Подсчет букв - простым проходом по строке:

count := 0;
for i := 1 to length(s) do
  if s[i] = 'Б' then count := count + 1;

замена прописных гласных на строчные - есть много вариантов. Самый простой для понимания:

const
  arr: array[1 .. 2, 1 .. 5] of char = (
    ('а', 'е', 'и', 'о', 'у'), ('А', 'Е', 'И', 'О', 'У')
  );
...
for i := 1 to length(s) do begin
  found := false;

  k := 1;
  while (k <= 5) and (not found) do
    if s[i] = arr[1, k] then found := true
    else k := k + 1;

  if found then s[i] := arr[2, k]; { <--- Здесь была опечатка, спасибо Malice за подсказку }
end;

Как записать в файл, сколько символов 'Б' найдено, и сколько строчных букв заменено на прописные - разберешься?

Сообщение отредактировано: volvo - 20.12.2006 14:33