Помощь - Поиск - Пользователи - Календарь
Полная версия: Для введенной текстовой строки подсчитать количество букв "Б",
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Rebel
М
Название темы...


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

Задача №1

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

Задача №2

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

Я был бы очень благодарен помощи. Я на первом курсе, паскаль пока еще не постиг. Вот-вот начнется сессия и мне наступит конец smile.gif
klem4
1) Поиск-> Табулирование функции
Rebel
Спасибо за первую задачу, я нашел good.gif
Как насчет второй задачи? Может кто знает?
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;


Как записать в файл, сколько символов 'Б' найдено, и сколько строчных букв заменено на прописные - разберешься?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.