Работа в среде Турбо-Паскаля

Работа с блоками

Отметить блок текста можно клавишами управления курсором при нажатой клавише <Shift>.

Скопировать отмеченный блок можно клавишами <Ctrl>+K+C или за два шага <Ctrl>+<Ins> - скопировать блок в буфер, <Shift>+<Ins> - выдать блок из буфера.

Переместить отмеченный блок можно клавишами <Ctrl>+K+V или за два шага <Shift>+<Del> - забрать блок в буфер, удалив его из текста, <Shift>+<Ins> - выдать блок из буфера.

Удалить отмеченный блок можно клавишами <Ctrl>+<Del> или <Ctrl>+K+Y.

Пример

Описать переменные: gf, d4 – целого типа, lq – вещественного, joke – байтового, с1, с2 – символьного. С помощью оператора ввода ввести эти переменные. С помощью оператора вывода вывести их в формате «имя=значение»

Var

gf,d4:integer;

lq:real;

joke:byte;

c1,c2:char;

Begin

writeln(’Ввести переменные’);

read(gf,d4);

read(lq);

read(joke);

read(c1,c2);

writeln(’gf=’,gf);

writeln(’d4=’,d4);

writeln(’lq=’,lq:7:4);

writeln(’c1=’,c1);

writeln(’c2=’,c2)

end.

Практическая часть

Задание на лабораторную работу

В приведенных ниже заданиях необходимо:

1. описать все указанные переменные;

2. с помощью оператора ввода задать значения этих переменных;

3. с помощью оператора вывода вывести значения этих переменных на экран в формате "<имя переменной> = <значение>", например, X=3.5

4. Оформить отчет. Туда записать

а) тему,

б) цель,

в) задание,

г) программу,

д) результаты полученные на экране

е) сделать вывод по работе

Вар	Задание
	i1, j1 - целые, g1 - вещественная, b - байтовая, v1, v2 - символьные
	r1 - целая, g1, h - вещественные, t - байтовая, rq, vc, f - символьные
	er, t6 - целые, rz - вещественная, b, ra - байтовые, w - символьная
	bn, kj, yu - целые, q1 - вещественная, b, t - байтовые, my, my1 - символьные
	mq, hg - целые, g1, rl - вещественные, b, i67 - байтовые, d1, er2 - символьные
	mo, w2 - целые, w4, ur - вещественные, x, q12 - байтовые, wx, aw - символьные
	xz, yu - целые, q2, o9 - вещественные, h, ws7 - байтовые, q1, qq2 - символьные
	bt, g5 - целые, s1, re - вещественные, b, w2q - байтовые, dd, sss - символьные
	jy, ww - целые, re, t5 - вещественные, v, gfd - байтовые, we, s1d - символьные
	q1, i8 - целые, e3, re - вещественные, x, e34 - байтовые, wq, r4t - символьные
	q1, rr - целые, kk, yl - вещественные, f, fdf - байтовые, ep, pp2 - символьные
	nh, nn - целые, w1, yy - вещественные, j, w24 - байтовые, tt, ttt - символьные
	vr, yi - целые, lk, as - вещественные, q, sas - байтовые, ry, v5d - символьные
	w2, u5 - целые, aa, hy - вещественные, x, q12 - байтовые, t5, rfv - символьные
	n7, gg - целые, g1, w2 - вещественные, x, q12 - байтовые, s3, qqq – символьные

Лабораторная работа

«Линейный алгоритм. Вычисление по формуле»

Цель: познакомиться с основами языка Паскаль, переменными, структурой программы; научиться составлять простейшие линейные алгоритмы, вычислять по заданным формулам.

Теоретическая часть

Структура линейного алгоритма на языке Паскаль Структура линейного алгоритма на блок-схемах

Program назв_прогр;

Var

Переменная_1:тип;

Переменная_2:тип;

…………………………………………………….

Переменная_n:тип;

Begin

Read(список перем);

Вычисления;

writeln(вывод ответа)

End.

Пример. Найти значение выражения

program familiya;

Var

x,k:integer;

y:real;

Begin

write(‘x=’);read(x);

write(‘k=’);read(k);

y:=sqrt(x+k)/abs(x-1);

writeln(‘y=’,y:6:3)

end.

Задания на лабораторную работу

Написать программу для расчета по формуле согласно своему варианту. К программе начертить блок-схему. Получившиеся листинги программ распечатать или переписать в отчет по лабораторной работе. Кроме того, для выбранных самостоятельно исходных данных получить соответствующие ответы. Компьютерный эксперимент провести 5 раз. Если результатом будут необычные надписи, то их тоже отобразить в отчете.

В отчете указать тему, вариант, записать цель работы, условие по своему варианту, листинги программ, блок-схему алгоритма. Кроме того письменно ответить на вопросы. В конце работы сделать выводы.

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

Контрольные вопросы

1. Как оформляется оператор вывода на экран?

2. Что можно использовать в качестве оператора вывода? Какой символ используется для разделения элементов списка вывода?

3. Что будет выведено на экран, если в списке вывода записано: число; имя переменной; текст в кавычках; арифметическое выражение?

4. Как сделать, чтобы информация выводилась со следующей строки?

5. Почему перед оператором ввода целесообразно записывать оператор вывода?

6. Как оформляется арифметическое выражение в алгоритмическом языке?

7. Как оформляется оператор присваивания? Как он работает?

Лабораторная работа

«Программирование ветвящихся алгоритмов»

Цель: познакомиться с условным оператором и оператором выбора; научиться составлять простейшие алгоритмы, использующие данные конструкции.

Теоретическая часть

	Pascal
Условный оператор	If условие then Действие, если условие выполняется Else Действие, если условие не выполняется;
Оператор выбора	Case выражение of A1: оператор_1; A2,A3: оператор_2; A4..A5: оператор_3; ........... An: оператор_n; Else оператор_n+1 End;

Если требуется выполнить группу действий, где будет более 1 операции, то эти действия нужно заключить в операторные скобки

Begin

действия

End;

If условие then

Begin

Действия, если условие выполняется

End

Else

Begin

Действия, если условие не выполняется

End;

На блок-схемах условный оператор и оператор выбора обозначаются следующим образом

Пример 1. Из трех вещественных чисел X, Y, Z выбрать наибольшее

Program pr1;

Var

X,y,z,max:real;

Begin

Write (‘Ввести x,y,z: ’);

Readln(x,y,z);

If (x>=y) and (x>=z) then max:=x;

If (y>=x) and (y>=z) then max:=y;

If (z>=x) and (z>=y) then max:=z;

Writeln(‘Максимальное значение =’, max:6:3)

End.

Пример 2. Дано число а. Вычислить f(a), если

0 при x£0,

F(x)= x²–x при 0<x£1,

x²–sin px² при других х

Program pr2;

Var

x,f:real;

Begin

Write (‘Ввести число: ’);

Readln(x);

If x<=0

Then f:=0

Else

if x<=1 then f:=sqr(x)–x

else f:=sqr(x)–sin(pi*x*x);

Writeln(‘Значение функции F(x) при x=’, x, ‘равно’,F)

End.

Пример 3. Согласно гороскопу, каждому году присвоено имя какого-нибудь животного. Написать программу, которая по номеру года определяет его название, если известно, что начало 12-летнего цикла – 1996 год – год крысы

Program pr3;

Var

year:integer;

Begin

Write (‘Ввести год: ’);

Readln(year);

Caseyearmod12of

0:writeln(‘год обезьяны’);

1:writeln(‘год петуха’);

2:writeln(‘год собаки’);

3:writeln(‘год свиньи’);

4:writeln(‘год крысы’);

5:writeln(‘год коровы’);

6:writeln(‘год тигра’);

7:writeln(‘год зайца’);

8:writeln(‘год дракона’);

9:writeln(‘год змеи’);

10:writeln(‘год лошади’);

11:writeln(‘год овцы’);

End;

End.