Відповіді до підручника Інформатика 8 клас Морзе Н.В - Морзе Н.В 2016-2020

Розділ 6. Алгоритми роботи з об'єктами та величинами
22. Текстові величини та операції над ними

Обговорюємо

1. Текстові величини: var str: string [10]; — змінна рядкового типу, містить до 10 символів; t: string; — змінна рядкового типу, містить до 255 символів; с: char; — змінна символьного типу.

2. Значенням величини символьного типу може бути один символ — літера, цифра чи знак. Набір символів утворює рядок.

3. У Python після підключення модуля віконного графічного інтерфейсу користувача також можна використати текстове поле для введення даних — функція tkinter.Entry, у мові FreePascal текстові змінні описуються в розділі опису змінних, використовується службове слово var. Тип текстових величин у Python позначають str, а у мові Free Pascal: символьний тип — char, а рядковий — string.

4. Надавати значення текстовим величинам можна такими способами: за допомогою оператора присвоєння; під час виконання програми, що містить команди або вікна введення; за допомогою елемента управління текстове поле. Текстове поле створюється на екранній формі в середовищі Lazarus за допомогою компонента Edit. Властивості поля Name, Top, Left, Color, Enabled, Visible, Font аналогічні до відповідних властивостей напису.

5. Якщо властивість Enabled текстового поля має значення False, то у середовищі Lazarusтекст у текстовому полі редагувати не можна.

6. Ріал текстовими величинами виконують операцію склеювання — поєднання кількох рядкових величин, яку позначають символом «+». У програмі Python при роботі з текстовими величинами можна виконувати операцію зрізу, за допомогою якої копіюється послідовність або її частина.

7. У програмі Free Pascal виконують такі функції над текстовими величинами: визначення кількості символів у рядку; копіювання символу, видалення символу; вставлення одного рядка в інший; визначення номера позиції входження одного рядка в інший.

8. Це відбувається тоді, коли при складанні алгоритму розв’язування задачі або при написанні коду програми були допущені помилки.

9. При складанні програми у середовищі програмування допускають такі помилки: синтаксичні, логічні чи помилки під час виконання.

11. Коментар— це текст, який ігнорується компілятором і включається до тексту проекту з метою полегшення його розуміння і пошуку логічних помилок. Коментар потрібно взяти у фігурні дужки {}, або у круглі дужки із зірочками (**), або відокремити від команд двома похилими рисками //.

12. Щоб переглянути значення змінних під час покрокового виконання програми, потрібно імена цих змінних помістити до вікна Список спостережень, використавши вікно Властивості спостерігання. Для цього натиснути комбінацію клавіш Ctrl + F5 або виконати вказівку Виконати Додати спостереження, ім’я змінної треба внести в поле Вираз, далі натиснути Гаразд.

Працюємо в парах

1. Python:

І варіант

s=input('Bведіть слово')

s2=s[11]+s[10]+s[9]+s[8]+s[7]+s[6]+s[5]+s[4]+s[3]+s[2]+s[1]

print (s2)

II варіант

s=input('Bведіть слово') s2=s[: : -1]

print (s2)

Free Pascal (потрібно підключити модуль Uses LCLProc);

var sl1, sl2: string;

begin

sl1 :=Edit1.Text;

sl2:=UTF8copy(sl1,11,1)+UTF8copy(sll,10,1)+UTF8copy(sl1,9,1)+

UTF8copy(sl1,8,1)+ UTF8copy(sl1,7,1)+ UTF8copy(sl1,6,1)+

UTF8copy(sl1,5,1)+ UTF8copy(sl1,4,1)+ UTF8copy(sl1,3,1)+

UTF8copy(sl1,2,1)+ UTF8copy(sl1,1,1);

Edit2.Text:=sl2;

end;

1)sl = input (('Введіть змінну sl')

s2=sl[: 9]+»+ sl [33:44]+»+sl [20:33]+»+sl [9:20]

print(s2)

2)sl= input('Введіть змінну sl')

s2=sl [: 5]+"+sl [5:7]+"+s[7:10]+"+sl[ 10:16]+"+sl[ 16:21 ]

print(s2)

3. Free Pascal:

var pr, im, ba, z: string;

begin

pr:=Edit1.Text;

im:=Edit2.Text;

ba:=Edit3.Text;

z:=pr+"+im+"+ba+', Вас зараховано до гуртка технічної творчості';

Label1,Caption:=z;

end;

Python:

рг= input ('Вкажіть прізвище, ім’я, по батькові')

print(pr,', Вас зараховано до гуртка технічної творчості')

Працюємо самостійно

1.

1) sl =input('Bведіть змінну sl')

s2=sl [4]+sl [ 10]+sl [ 11 ]+sl [7]+sl [3]+sl [9]

print(s2)

2) sl=input('Bведіть змінну sl')

s2=sl [9]+sl[ 1 ]+sl[6]+sl[8]+sl [7]+sl [11 ]

print(s2)

3) sІ= input('Введіть змінну sl')

s2=sl[3:6]+sl[2]+sl [6:7]

print(s2)

4) sl = input('Введіть змінну sl')

s2=sl[7:8]+sl[5]+sl[4]+sl[3]

print(s2)

3. У вкладці Проект обрати Створити проект змінити значення властивостей Forml: Caption — Розрядні одиниці; Height — 300, Width — 300; Color — clScrollBar підвести вказівник миші до зображення поля (TEdit) на панелі інструментів на вкладці Standard два рази натиснути лівою клавішею миші аналогічним способом створити друге поле та у властивостях Enabled в полі поставити значення False підвести вказівник до зображення кнопки на панелі інструментів на вкладці Standard два рази натиснути лівою клавішею миші у властивостях кнопки в полі Caption змінити текст на Розкласти, властивість Fontзмінити за власним бажанням обираємо в меню Інспектор об’єктів вкладку Події знаходимо поле OnClick та два рази натискаємо лівою клавішею миші у поле праворуч від Інспектора об’єктів у вказаній курсором місці записуємо процедури, які мають команди:

var s1, s2: string;

begin

sl:=Editl.Text;

s2 :=sl[1 ]+'* 1000+'+sl [2]+'* 100+'+sl [3]+'* 10+'+s l[4]+'* 1';

Edit2.Text:=s2;

end;

4.  У вкладці Проект обрати Створити проект підвести вказівник миші до зображення поля (TEdit) на панелі інструментів на вкладці Standard два рази натиснути лівою клавішею миші аналогічним способом створити ще два поля та у властивостях Enabled в полі Edit3 поставити значення False підвести вказівник до зображення кнопки на панелі інструментів на вкладці Standard два рази натиснути лівою клавішею миші у властивостях кнопки в полі Caption змінити текст на +, -, *, /; властивість Font змінити за власним бажанням до кожної кнопки обираємо в меню Інспектор об’єктів вкладку Події знаходимо поле OnClick та два рази натискаємо лівою клавішею миші у поле праворуч від Інспектора об’єктів у вказаній курсором місці записуємо для кожної кнопки процедури, які мають команди:

procedure TForml.Button1Click(Sender; TObject);

var chi, ch2, rez: real

begin

ch1:=StrToFloat(Edit1 .Text);

ch2:=StrToFloat(Edit2T ext);

rez:=ch1+ch2;

Edit3.Caption:=FloatToStr(rez);

end;

procedure TForm1.Button2Click(Sender; TObject);

var ch1, ch2, rez: real

begin

ch1 :=StrToFloat(Edit1.Text);

ch2:=StrToF loat(Edit2.Text);

rez:= ch1-ch2;

Edit3.Caption:=FloatToStr(rez);

end;

procedure TForml .Button3Click(Sender; TObject);

var ch1, ch2, rez: real

begin

ch1 :=StrToFloat(Edit1 .Text);

ch2:=StrToFloat(Edit2Text);

rez:=ch1 *ch2;

Edit3.Caption:=FloatToStr(rcz);

end;

procedure TForml.Button4Click(Sender; TObject);

var ch1, ch2, rez: real

begin

chi :=StrToFloat(Edit1.Text);

ch2:=StrToFloat(Edit2Text);

rez:=ch1/ch2;

Edit3.Caption:=FloatToStr(rez);

end;