Pascaler
О проекте Теоретический материал Тестирование Архив задач
Войти в личный кабинет



О проекте


Преподавателям


Тема: Решение задач.

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

  1. В тексте содержащем, несколько (много) предложений, найти все вхождения заданного слова и распечатать все включающие его предложения. Принять, что каждое предложение заканчивается точкой.


  2. Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить, сколько слов содержат ровно 3 буквы "е".


  3. Дан текст, состоящий из нескольких предложений. В каждом предложении найти самое короткое и самое длинное слова.


  4. Дан текст. Посчитать количество слов в тексте.


  5. Дан текст. Посчитать количество слов, заканчивающихся на заданную букву и перенести их в другую строку, написав через запятую. Вывести полученную строку на экран.


  6. Даны 2 текста. Найти одно из общих слов, встречающихся в текстах.


  7. Напишите программу, изменяющую порядок слов в строке по Вашему алгоритму.


  8. Для каждого слова заданного предложения указать долю согласных. Определить слово в котором доля согласных максимальна.


  9. Составьте программу шифрования текстового сообщения. Можно использовать такой способ шифровки. Шифровальщик задает ключ шифровки - целое число, которое определяет величину смещения букв русского алфавита, например ключ =3, тогда в тексте буква “а” заменяется на “г” и т.д. Используются все буквы русского алфавита.


  10. В заданном предложении удалите каждое второе слово, а оставшиеся слова переверните. (Например, из текста “А роза упала на лапу азора” должен получиться текст “азор ан ароза”).


  11. Составьте программу дешифрования текстового сообщения, зашифрованного программой задачи № 9.

В заданном предложении указать слово, в котором доля гласных (A, E, I, O) максимальна. Слова удобно хранить в строковом массиве.

Задание. Приготовьте для проверки учителем все Ваши листинги и файлы с решенными и оцененными задачами по данной теме.

Бегущая строка. Пример программы осыпающихся букв. Строки в графическом режиме (для увлеченных программированием).

Задание. Перед Вами две программы. Рассмотрите операторы, какова их роль?

Program AlexeyDashkin;
Uses
  Crt;
Type
  Stroka = string [100];
Var
  Vhod, St1, InStr : Stroka;
Begin
  St1 := ' Поставьте мне пятерку в зачетку!!!!';
  ClrScr;
  InStr := ' ';
  St1:= St1+InStr;
  for i := 1 to length(St1) do
    begin
      Delete(St1,1,1);
      GoTo(1,10);
      write(St1);
      Delay(5);
      Sound(1000);
      Delay(90);
      NoSound;
      DelLine;
    end;
End.

 

Program AkulovE;
Uses
  Crt;
Var
  y,i : integer;
  Name, Bukva : string;
Begin
  ClrScr;
  write ('Введите что-нибудь ');
  read (Name);
  for i := Length(Name) downto 1 do
    begin
      Bukva := Name[i];
      Delete(name,i,1);
        for y := 1 to 25 do
          begin
            Window(19,1,80,25);
            GotoXY(i,y);
            write(Bukva);
            Delay(50);
            ClrScr;
            write(Name);
          end;
    end;
End.

Задание.

  1. Наберите программы на компьютере. Проверьте их работу.


  2. Усовершенствуйте одну из программ, дополните ее комментариями. Покажите результат работы учителю для оценки.


  3. Решите одну из задач в графическом режиме. Покажите результат работы учителю для оценки.
Вернуться назад
2003—2012 © Группа «Vimedia»
Проект «Pascaler» — лучший на ХI Всероссийской конференции молодых исследователей с международным участием «Шаг в будущее», Россия, Москва, 12 – 16 апреля 2004г.