Задания
1 вариант
Дана строка. Заменить все символы '!' точками, кроме первого.
2 вариант
Дана строка. Определить, есть ли в данной строке два любых одинаковых символа, и вывести соответствующее сообщение.
3 вариант
Дана строка и слово, состоящее из четырех символов. Определить, есть ли в данной строке все буквы данного слова.
4 вариант
Дана строка. Заменить все последовательности символов 'on' на 'online' и вывести новую строку (если искомой последовательности в строке нет, то вывести соответствующее сообщение).
5 вариант
Дана строка. Определить количество слов* в данной строке.
6 вариант
Дана строка. Получить новую строку, состоящую из символов исходной, записанных в обратном порядке.
7 вариант
Дана строка и символ. Определить количество слов* в строке, оканчивающихся на заданный символ.
8 вариант
Дана строка. Заменить окончания слов* 'ing' на 'ed' и вывести полученную строку.
9 вариант
Дано слово. Определить, является ли оно палиндромом. (Палиндром – это слово, которое читается одинаково в обоих направлениях, то есть симметрично относительно своей середины. Например, «потоп» или «комок»)
10 вариант
Дана символьная строка. Удалить из нее все пробелы.
* Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя.
Практическое занятие № 5 Работа с графикой
Цель: научиться составлять программы при работе с графикой
ТСО: компьютер
Для успешного выполнения работы вам необходимо изучить теоретический материал по темам: «Организация работы с графическими процедурами».
Задание
П
овторите
теоретический материал по данной теме.Разобрать решение следующей задачи:
Задача: Составить программу построения прямоугольного равнобедренного треугольника, вписанного в окружность.
Решение:
Program Primer;
Uses graph, crt;
Var gd, gm:integer;
Begin
gd:=detect;
initgraph(gd,gm,'');
setcolor(6);
circle (250,250,100);
setcolor(4);
line(150,250,350,250);
line(150,250,250,150);
line(250,150,350,250);
setcolor(2);
putpixel(250,250,15);
Outtextxy(140,250,'A');
Outtextxy(355,250,'B');
Outtextxy(250,140,'C');
Outtextxy(250,255,'O');
readln;
closegraph;
end.
Составить программы решения задач своего варианта:
1 Вариант
Составить программу построения окружности, вписанной в квадрат.
2 Вариант
Составить программу построения окружности, описанной около квадрата.
Список учебной литературы
1. Белецкий Я. Турбо Паскаль для РС. М.: Машиностроение, 1991.
2. Джонс Ж., Харроу К. Решение задач в системе Турбо Паскаль М.:Финансы и статистика, 1991.
3. Зуев Е.А. Язык программирования ТурбоПаскаль 6.0. М.:Унитех, 1992.
4. Инструментальные средства персональных ЭВМ (в 10 книгах).
Кн.4. Л.Е.Агабеков и др./ под ред. Трусова. Программирование в среде Турбо Паскаль. Практическое пособие - М.:Высшая школа, 1993
5. Новиков В.С. и др. Паскаль: учебное пособие для ср. спец. учебных заведений.- М.:Высшая школа, 1990
6. Алексеев Е.Р., Чеснокова О.В. Турбо Паскаль 7.0 – М.:НТ Пресс, 2006