Ostreykovsky_Laboratorny_praktikum_po_informa
.pdfInc(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 s o " Then |
|
WriteLn(toF, s); {Выводим во второй файл} |
|
End; |
|
Close(fromF);Close(toF); |
{Закрываем оба файла} |
Readln
End.
Задания для самостоятельной работы
Задание № 1. Составить блок-схему алгоритма и программу на языке Pascal для вычисления на ЭВМ значений переменных. Вывести на экран значения исходных данных и результатов промежуточных и окончательных вычислений, сопровождая вывод именами переменных.
Вариант 1
у = ctg x:--^l+xVT+J, |
где |
|
|
2 |
|
z\-\ |
|
90-b2 |
z'+l' |
л/362+Г |
|
z7=<, tg b, |
если |
b = \0 значение «о» задается. |
[1, если b< 10,
Вариант 2
у = e*Vl + e2x + arctg ex, где
141
х = z2 cos |
2 |
|
, |
• 2 |
За |
; |
||
|
Z\ + sin a ; Zi = |
l - 2a |
||||||
|
|
|
|
|
|
|
|
|
z 2 = < |
a2, |
если |
a>0 |
, значение «a» задается. |
||||
|
|
|
а40 |
|||||
[О, если |
|
|
|
|||||
Вариант 3 |
|
|
|
|
|
|
|
|
у = х2 + b ~ \b2 |
sin b, где |
|
|
X |
, Z\ |
ab, если [1, если
sin• 2 a-
a2
а<0,b>0
a<0,b<0, значения «a» и «о» задаются.
Вариант 4
у = arctg x + InJ—— + е*, где V1 — JC
|
|
|
|
ъ |
|
|
1-sinw |
|
cos — |
|
|
|
|
a, |
|
||
* = |
а2; — ; ' а\"'• |
6 |
|
||
а2=< |й|,Lесли |
Ь<0 значения «й» и «т» задаются. |
||||
|
2, |
если |
Ь>0, |
|
|
Вариант 5 |
|
|
|
|
|
|
j . |
х |
& • |
> , ! , |
2 ч |
у = х arctg |
|
in (Л: + а |
) , где |
||
|
|
а |
2 |
|
|
|
0.01 • (У+1) |
Vl-cos22c |
|||
|
fg(z2+l) |
' |
(cos 2c) |
<Vc, если, о 0 значения «с» и <а» задаются. 1-е, если, с 4 0,
142
Вариант б
у = Ъ In (vx+7 + Vx) - Vx2 + tx, где
Wz + 1 |
/ . |
||
х = |
- ; z |
= J sin \b\ ; |
|
te + 1 |
|
|
|
\b2, |
если, |
6>1 |
значение «о» задается. |
f = < |
если, |
й<1, |
|
\еь, |
|
Вариант 7
j> = х'* + lg (sin2 x + Vl+sin3 x) , где
= 3z + tg(fe). |
= |
z . |
||
(Г + 1) |
' |
|
г ' |
|
|
|
1 + е' |
||
|sin£|, если, |
0< £ ^10 значение «£» задается. |
|||
z = [10, |
если, к =0, |
|||
Вариант 8 |
|
|
|
|
2 |
|
|
|
lg|2/2| |
/i = 2*"2 |
/2 =V|A:|sinx, |
|||
Г А: +1, если |
|
к>0, |
||
х = <^ |
если |
|
значения «я» и «а» задаются. |
|
\к-\, |
£.$0, |
|||
Вариант 9 |
|
|
|
|
/— COSX . |
* § |
|||
У = Vzi -Г1— + |
1 п |
|||
sin х |
|
|
||
х = l,5z-5 ; z |
|
e"3Z| - 1 |
||
3z + 5 |
|
|
|
|
|z2 |, |
если |
z2 |
<0, |
|
z |
|
|
|
значение «Z2» задается. |
82 , |
если |
z, > 0, |
143
Вариант 10 |
|
|
|
|
|
f = {z + l)arctg 2z, z = |
х1 |
-х |
' |
-2 |
|
' |
x;+\ |
|
|
||
|
|
|
|
|
|
sin у, |
если |
100-0^200 |
значение «у» задается. |
||
Xi = s'm(2y)-, x^ — cosy, если |
у<100, |
За д а н и е №2. Найти значение выражения для вводимых с клавиа туры А, В и С.
Вариант 1 |
|
|
|
||
/ |
/ |
<*&А±В) |
In |
|
|
tg |
1п(л/С+2) |
Vc+Vs |
|||
tg |
V |
|
+ ln |
сsinVC |
|
tg |
|
sin A- sin 5 |
|
||
|
|
VcosC-Л |
2 |
ctg |
|
|
|
|
V |
V sinvfi у ; |
при Л = 4, Я = 2, С = 5 ответ -0.86739287; при Л = 4.1, 5 = 3.2, С = 1 от вет -2.4316158
Вариант 2
IgAt-B
А+В -С
es^c.tgJ^C.ln \4* + 4в
cos VI
с + c+VH
с +JA+BBJC
при Л = 3, Я = 2, С= 1 ответ -83595.544; при А = 0.1, В = 0.2, С = 0.3 ответ -0.67568268.
Вариант 3
C+sinC + sing\nl™--4AT-B2cosC
\AzL - JJJA + 4c + V2sin 4A
HC + A
144
при 4 = 7, В = 2, С ~ 1 ответ -1.2678855; при А = 7.1, В = 2, С = 3 ответ 1.61379036.
Вариант 4
-y/l + tg2 4+5ctg2 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 + С |
Л |
|
|
A2-1 + -C-5 |
|
|
при 4 = 3, 5 = 2, C = 1 ответ 0.9941356; |
|||
при 4 = 3, 5 = 4.1, С = 5 |
ответ 1.1810022. |
||
Вариант 6 |
|
|
|
A-C-yJA2 |
+ V#-cos(43) |
4+Vln(5/5) + 6 |
|
ln(54) + ctg(4 - 5) |
42 + 4+д4 - с |
||
sin(65) |
„ел |
|
|
|
|
|
5 + - |
|
|
|
C - 5 |
при 4 = 5, 5 = 2, C = 4 ответ-1.9610729; при 4 = 2.3, В = 1, C = 4 ответ 0.20184899.
145
Вариант 7
|
|
f |
,B |
|
cos |
+ sin |
ctg- + 2 |
|
|
|
|
V |
In С |
|
А-Ъ |
5 + 4 |
|
+ 5 |
|
g " 2 F ' C t 8 |
1С |
+ |
tg(A-B) |
|
2 + 4C2 -V5+cosC |
t |
Л с{ |
А+В |
Vc с
приЛ = 3 , 5 = 1 , С = 4 ответ 1.0275070; приЛ= - 1, 5 = 2.1, С = 5 ответ-0.00192481.
Вариант 8
t g ^ |
|
+ e**-*'—А_+ С |
3 |
|
|
||||
sin 5 |
|
|
ВС |
|
|
|
|
||
|
cos 5 + |
cos(C + ln^) \ \ |
|
|
|||||
|
sin(,4 + ln5) |
|
|
|
|||||
cos А + |
|
V |
|
|
|
|
|||
|
|
|
|
|
|
|
|
||
|
C 3 + c t g ( ^ - 5 ) - s i n - |
|
|
||||||
|
|
|
|
||||||
при А = 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
lsin2Q43)+cos2(53)
IABC
Гз
In |
A |
B |
C |
(АСУ |
|
—+ —+ — |
В2 |
||
|
В |
С |
А |
|
приЛ = 3, 5 = 7, С = 2 ответ 0.11616104; при Л =0.1, 5 = 0.2, С = 0.3 ответ 6.0308170.
З а д а н и е |
№ 3 . Составить блок-схему алгоритма и две программы |
||||
на языке Pascal (одну с операторами присваивания, перехода, ус |
|||||
ловными; вторую — используя оператор цикла) для вычисления |
|||||
значений функции при изменении аргумента. Вывод на экран зна |
|||||
чений вводимых исходных данных и результатов вычислений |
|||||
оформить в виде таблицы с указанием в шапке таблицы имен аргу |
|||||
мента и функции. |
|
||||
Вариант 1 |
|
|
|
|
|
|
1 |
-, |
если |
х^0 |
|
|
sin л:+2 |
|
|
|
|
у-- |
\gx + ex, |
|
если |
0 < J C < 2 |
|
|
2х2, |
|
если х>2, |
||
где х принимает значения в интервале [ -1 н- 1] с шагом 0,1. |
|||||
Вариант 2 |
|
|
|
|
|
|
ех + |
1 |
, если |
0 < J C < 3 |
|
У- |
х + 1 |
|
|
||
sinx + vx, |
если |
х-3 |
|||
|
cos x+l Ц, |
если |
JC^3, |
где х принимает значения из интервала [0 -з- 10] с шагом 0,5, значение «6» задается.
147
Вариант 3
\4texl2, если 0<х<?2 У- Мг^е2*, если 2<JC $ 6,
где Л: изменяется в интервале [ 0 -з- 6 ] с шагом 0,4, значения <ш», «/» — вводятся с клавиатуры.
Вариант 4
rac + lgx2, при 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 |
|
fsin x-| lg JC| |
при х>3,5 |
У- lcos2x + ejr |
при х43,5, |
где х изменяется в интервале [2-^5] с шагом 0,25.
148
Вариант 8
(ln3 x+x) при х<0,5
4х+~\
У = У/Х +1 + е* при х=0,5 cosx + fsin2x при 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 [sin2 Vox при х<1,
где х изменяется в интервале [0,5 ч- 2] с шагом 0,1; а = 20,3.
За д а н и е №4 . Составить программу на языке Pascal для вычисле ния на ЭВМ значений числовых и логических переменных, связан ных с декартовой системой координат.
Вариант 1
Даны действительные числа хь у\, xj, уг, хз, уъ- Выяснить, принад лежит ли начало координат треугольнику с вершинами (x^i), lx-i,yi), (х3;уз).
Вариант 2
Дано действительное число а. Вычислить /(а) и определить рас стояние от точки графика до начала координат (рис. 4.17, а).
149