Урок 8. Строковые величины

Задания

Задание 1. Составить программу, которая позволяет ввести с клавиатуры две строки А и B, затем определяет, являются ли одинаковыми третьи буквы в обоих словах.

Задание 2. Составьте программу, которая позволяет ввести с клавиатуры две строки А и B, сложите их, запишите результат конкатенации в строковую переменную С и выведите полученную строку на экран.

Задание 3. Составьте программу, которая позволяет ввести с клавиатуры строку А, состоящую из 5 символов, а затем выводит на экран каждый символ два раза.

Например, 
Пользователь ввел строку abcde
Программа выведет на экран aabbccddee

Задание 4. Составьте программу, которая позволяет ввести с клавиатуры две строки А и B, а также целое число N. На экран вывести строку, которая состоит из чередующихся строк А и B N раз.

Например, 
Строка А: Привет
Строка В: Мир!
Число N: 3
Программа выведет на экран ПриветМир!ПриветМир!ПриветМир!

Задание 5. Напишите программу, которая организует диалог с пользователем по следующему шаблону:

---

Домашнее задание

§ 7.2 учебного пособия, ответить на вопросы

---

Форма отправки файлов

Форма видна только зарегистрированным пользователям.

---

Дополнительное задание

Составьте программу, которая, используя возможности модуля GraphABC, выведет на экран вашу любимую цитату, задав цвет, стиль и размер шрифта.

Например:

uses graphabc;
begin
  setwindowsize(500, 250);
  setwindowtitle('В мире чисел');
  SetFontColor(clPurple);
  SetFontSize(20);
  SetFontStyle(fsItalic );
  textout(50, 30, 'Понятие  числа  и фигуры');
  textout(50, 60, 'взяты  не  откуда-нибудь,');
  textout(50, 90, 'а только из действитель-');
  textout(50, 120, 'ного мира.');
  SetFontColor(clgreen);
  SetFontStyle(fsUnderline  );
  textout(240, 180, 'Ф. Энгельс');
end.

Справочная информация

procedure TextOut(x,y: integer; s: string); – выводит строку s в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст из строки s).

procedure SetFontColor(color: integer); – устанавливает цвет шрифта.

procedure SetFontSize(sz: integer); – устанавливает  размер шрифта в пунктах.

procedure SetFontName(name: string); – устанавливает  наименование шрифта.

По умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные шрифты – это Times, Arial и Courier New. Наименование шрифта можно набирать без учета регистра.

procedure SetFontStyle(fs: integer); – устанавливает  стиль шрифта.

Стили шрифта задаются следующими именованными константами:

fsNormal – обычный;

fsBold – жирный;

fsItalic – наклонный;

fsBoldItalic – жирный наклонный;

fsUnderline – подчеркнутый;

fsBoldUnderline – жирный подчеркнутый;

fsItalicUnderline – наклонный подчеркнутый;

fsBoldItalicUnderline – жирный наклонный подчеркнутый.