Острейковский В.А. Лабораторный практикум по информатике
Подождите немного. Документ загружается.
Inc(Ml);
П:
=
П +
[А];
End;
End;
ClrScr;
ShowSet(Xl,'Xl',N);
ShowSet(X2,'X2',N);
ShowSet(Y,'Y, разность XI и Х2',М);
ShowSet(Yl,'чисел, кратных 5 и 3',М1);
Readln;
End.
Работа №
14.
Операции
с
файлами
Задание. Дан текстовый файл. Создать его копию, которая не долж-
на содержать пустых строк. Сначала с клавиатуры запрашивается
путь доступа к файлу до тех пор, пока файл не удастся открыть
для чтения. Затем запрашивается другой путь доступа до тех пор,
пока не выяснится, что не существует файла с таким именем, по-
сле чего информация из первого файла записывается во вновь соз-
данный второй файл.
Методика выполнения работы
Program pr_14;
{$1-} {директива компилятора — выключение контроля оши-
бок ввода-вывода!}
Var
fromF,toF: Text;
fromName, toName: String;
s: String;
Begin
Repeat
Write('Введите имя исходного файла');
ReadLn(fromName);
Assign(fromF,fromName); {Пытаемся открыть для чтения}
Reset(fromF);
Until IoResult=0; {Если отрыть не удалось — на начало цикла}
Repeat
Write('BBeflHTe имя файла-приемника');
ReadLn(toName);
140
Assign(toF,toName); {Проверка существования}
Reset(toF); {Если открыть удалось — на начало цикла}
Until IoResultoO; {Открываем по-настоящему — для записи}
Rewrite(toF);
While Not Eof(fromF)
Do Begin
{Читаем строку из первого файла}
ReadLn(fromF,s);
WriteLn(s); {Выводим на экран}
If so" Then
WriteLn(toF, s); {Выводим во второй файл}
End;
Close(fromF);Close(toF); {Закрываем оба файла}
Readln
End.
Задания для самостоятельной работы
Задание № 1. Составить блок-схему алгоритма и программу на
языке Pascal для вычисления на ЭВМ значений переменных. Вывести
на экран значения исходных данных и результатов промежуточных и
окончательных вычислений, сопровождая вывод именами переменных.
Вариант 1
:-VT+J
у = ctg x-^l+x
2
, где
z\-\
90-b
2
z'+l' л/36
2
+Г
, tg
b,
если
b =
\0
z
7
=<
значение «о» задается.
[1,
если b< 10,
Вариант 2
у =
e*Vl
+
e
2x
+
arctg e
x
, где
141
2 , • 2 За
х = z
2
cos
Z\
+ sin a ; Zi = ;
l-2a
a
2
, если a>0
z
2
=<
, значение «a» задается.
[О,
если а40
Вариант 3
у = х
2
+
b ~ \b
2
sin
b,
где
X , Z\
• 2 a
sin -
a
2
ab,
если а<0,b>0
значения «a» и «о» задаются.
[1,
если a<0,b<0,
Вариант 4
у = arctg x + InJ—— +
е*,
где
V1 —
JC
ъ
cos —
1-sinw
a,
* = ;—; а\ '•
а
2
' " 6
|й|,
если Ь<0
а
2
=<
L значения «й» и «т» задаются.
2,
если Ь>0,
Вариант 5
j.
х
&•>,!, 2ч
у = х arctg in
(Л:
+ а
),
где
а 2
0.01
•
(У+1) Vl-cos
2
2c
fg(z
2
+l) ' (cos 2c)
Vc,
если, о
0
< значения «с» и <а» задаются.
1-е, если, с 4 0,
142
Вариант б
у = Ъ In (vx+7
+
Vx) - Vx
2
+ tx, где
Wz
+ 1
/ .
х = -; z = J sin
\b\
;
te +
1
\b
2
,
если, 6>1
f =
<
значение «о» задается.
\е
ь
,
если, й<1,
Вариант 7
j> = х'* + lg (sin
2
x + Vl+sin
3
x) , где
=
3z + tg(fe).
=
z .
' г'
z =
(Г + 1) 1
+ е'
|sin£|, если, 0<£^10
[10,
если, к =0,
Вариант 8
2 lg|2/
2
|
значение «£» задается.
/i = 2*"
2
/
2
=V|A:|sinx,
Г
А:
+1, если к>0,
х =
<^
значения «я» и «а» задаются.
\к-\, если £.$0,
Вариант 9
/— COSX .
У
=
V
z
i
-Г1—
+
1п
sin х
l,5z-5
х = ; z
*§
e"
3Z|
-1
3z
+ 5
|z
2
|,
если z
2
<0,
8
z
значение «Z2» задается.
2
, если z, > 0,
143
Вариант 10
х
1
-х -2
f
=
{z
+
l)arctg
2z,
z = ' '
x;+\
Xi =
s'm(2y)
-, x^
—
sin у, если 100-0^200
cosy, если у<100,
значение «у» задается.
Задание №2. Найти значение выражения для вводимых с клавиа-
туры А, В и С.
Вариант 1
/ /
tg
tg
V
<*&А±В)
1п(л/С+2)
sin A- sin 5
tg
VcosC-Л
2
+ ln
In
Vc+Vs
с
ctg
V V
sinVC
sinvfi
у ;
при Л = 4, Я = 2, С = 5 ответ -0.86739287; при Л =
4.1,
5 = 3.2, С =
1
от-
вет -2.4316158
Вариант 2
А+В
IgAt-B
e
s^c.
tg
J^C.
ln
\4* + 4в
-С
cos
VI
c+VH
с
+
с
+
JA+B
BJC
при Л = 3, Я = 2, С=
1
ответ -83595.544;
при А =
0.1,
В = 0.2, С = 0.3 ответ -0.67568268.
Вариант 3
C+sinC
+ \n
l
™--4A
T
-B
2
cosC
C+sinC sing
\AzL -
JJJA
+
4c + V2sin 4A
HC +
A
144
при 4 = 7, В
=
2, С ~
1
ответ -1.2678855;
при А =
7.1,
В = 2, С = 3 ответ
1.61379036.
Вариант 4
-y/l + tg
2
4+5ctg
2
C-V3 + ln4+sinJ3
g Icos A-cos В . А+В
+ I—-, г--sin
tg4 +ctg
С
In
4jKB
С
С
при Л = 3, В
=
2, С =
1
ответ 0.30388583;
при 4 = 1, 5 = 2.3, С = 4 ответ 0.24574518.
Вариант 5
з+.Ы-
C+VJ-sinVc
sin(35)-cos(35)
8- 5 +
ln(l+sin4)
5+С Л
+
-
A
2
-1
C-5
при 4 =
3,
5 =
2,
C=
1
ответ 0.9941356;
при 4 =
3,
5 =
4.1,
С=5 ответ 1.1810022.
Вариант 6
A-C-yJA
2
+
V#-cos(4
3
)
ln(54)
+
ctg(4-5)
sin(65)
„ел
4+Vln(5/5)
+ 6
4
2
+
4+д
4
-с
5 +
-
C-5
при 4 = 5, 5 = 2, C = 4 ответ-1.9610729;
при 4 = 2.3, В = 1, C = 4 ответ 0.20184899.
145
Вариант 7
cos
+ sin
f ,
B
ctg-
+ 2
V
In С
А-Ъ
5+4
g
"2F'
Ct8
1С
+
tg(A-B)
+ 5
2 + 4C
2
-V5+cosC
t
Л
с{
А+В
Vc с
приЛ =
3,5=1,
С = 4 ответ
1.0275070;
приЛ=-1,
5 =
2.1,
С = 5 ответ-0.00192481.
Вариант 8
tg^
+
e**-*'—А_
+С
3
sin 5
ВС
cos
cos
5 +
А +
V
cos(C + ln^)
sin(,4 + ln5)
\\
C
3
+ctg(^-5)-sin-
при А = 1, 5 =
2,;
C =
3
ответ 62.828741;
при J = 1.2, 5 = 2.3, C = 4 ответ 176.09174.
Вариант 9
sin(C+5) 9
^_
в
.
с+
^-1„(
£+С
)
(г+А)У
'
С \А
А
при А = 3, 5 = 2, С =
1
ответ 16718.692;
при Л =
0.1,
5 = 0.2, С = 0.3 ответ -0.39597395.
146
Вариант 10
lsin
2
Q4
3
)+cos
2
(5
3
)
I ABC
Г
з
In
ABC
—+ —+
—
В С А
(АСУ
В
2
приЛ = 3, 5 = 7, С = 2 ответ 0.11616104;
при Л =0.1, 5 = 0.2, С = 0.3 ответ 6.0308170.
Задание №3. Составить блок-схему алгоритма и две программы
на языке Pascal (одну с операторами присваивания, перехода, ус-
ловными; вторую — используя оператор цикла) для вычисления
значений функции при изменении аргумента. Вывод на экран зна-
чений вводимых исходных данных и результатов вычислений
оформить в виде таблицы с указанием в шапке таблицы имен аргу-
мента и функции.
Вариант 1
у--
1
-, если х^0
sin л:+2
\gx
+
e
x
, если 0<JC<2
2х
2
,
если х>2,
где х принимает значения в интервале [ -1 н- 1] с шагом 0,1.
Вариант 2
1
У-
е
х
+ , если 0<JC<3
х
+ 1
sinx
+
vx, если х-3
cos x+l
Ц,
если
JC^3,
где х принимает значения из интервала [0 -з- 10] с шагом 0,5,
значение «6» задается.
147
Вариант 3
У-
\4te
xl2
, если 0<х<?2
Мг^е
2
*,
если 2<JC$6,
где
Л:
изменяется в интервале [ 0
-з-
6 ] с шагом 0,4,
значения <ш», «/» — вводятся с клавиатуры.
Вариант 4
rac + lgx
2
, при 0<х<1,5
y-la+х,
при
л:
=
1,5
е
х
+tgx, при х>\,5,
где х принимает значения 0; 0,5; 1; ... 3, значение «а» — задается.
Вариант 5
гас
2
-9х
2
, при х<1,4
Y =
ах
3
+\l4x,
при
х
=1,4
\п{х+ \\^\х
+
а\),
при х>1,4,
где х изменяется в интервале [ 0,7 ; 2 ] с шагом 0,1;
а =1,65.
Вариант 6
У =
| algx
+
^/sin(x) при х>
1
[2acosx +
e*
при
JC-^1,
где х изменяется в интервале [0,1 -ь 1,7] с шагом 0,2,
а
=
0,9.
Вариант 7
У-
f
sin x-| lg
JC|
при х>3,5
lcos
2
x + e
jr
при х43,5,
где х изменяется в интервале [2-^5] с шагом 0,25.
148
Вариант 8
(ln
3
x+x)
У =
при х<0,5
4х+~\
У/Х
+1
+
е*
при х=0,5
cosx + fsin
2
x при JC>0,5,
где х изменяется в интервале [0,2 ч-2] с шагом 0,1, t = 2,2.
Вариант 9
У-
bx-\gbx при х>\
1 при х
=
\
sin
bx+\bx\
при х<1,
где х изменяется в интервале [0,2 ч-2] с шагом 0,2, Ъ = 1,5.
Вариант 10
flg(x
+
l) при х^-1
[sin
2
Vox при х<1,
где х изменяется в интервале [0,5
ч-
2] с шагом 0,1; а = 20,3.
Задание №4. Составить программу на языке Pascal для вычисле-
ния на ЭВМ значений числовых и логических переменных, связан-
ных с декартовой системой координат.
Вариант 1
Даны действительные числа хь у\, xj, уг, хз,
уъ-
Выяснить, принад-
лежит ли начало координат треугольнику с вершинами (x^i), lx-i,yi),
(х
3
;уз).
Вариант 2
Дано действительное число а. Вычислить /(а) и определить рас-
стояние от точки графика до начала координат (рис. 4.17, а).
149