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

Задания

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

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

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

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

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

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

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


Это изображение имеет пустой атрибут alt; его имя файла - hw-e1653285769766.png

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

§ 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 – жирный наклонный подчеркнутый.

Добавить комментарий

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