<em>Это называется-</em><u><em> ИНФОРМАЦИОННАЯ ДЕЯТЕЛЬНОСТЬ. </em></u>
Алиса и Шалтай
из сказки "Алиса в Стране чудес"
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,h):=ReadReal3('Введите границы и шаг табуляции:');
if a>b then Swap(a,b); // если перепутали границы
var x:=a;
while x<=b+h/2 do begin
Write(x:10:5);
var y:=Ln(x)/Tan(x);
if real.IsNaN(y) or real.IsInfinity(y) then
Writeln(' значение не существует')
else Writeln(y:15:5);
x+=h
end
end.
<u>Примеры</u>
Введите границы и шаг табуляции: -5 5 1
-5.00000 значение не существует
-4.00000 значение не существует
-3.00000 значение не существует
-2.00000 значение не существует
-1.00000 значение не существует
0.00000 значение не существует
1.00000 0.00000
2.00000 -0.31722
3.00000 -7.70704
4.00000 1.19733
5.00000 -0.47609
Введите границы и шаг табуляции: -1 1 0.2
-1.00000 значение не существует
-0.80000 значение не существует
-0.60000 значение не существует
-0.40000 значение не существует
-0.20000 значение не существует
0.00000 значение не существует
0.20000 -7.93961
0.40000 -2.16723
0.60000 -0.74667
0.80000 -0.21672
1.00000 0.00000
1.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
rewrite(f);
repeat
write('Введите день недели: ');
readln(s);
writeln(f,s);
write('Повторить (1-да, 0-нет)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Введите день недели: понедельник
Повторить (1-да, 0-нет)?1
Введите день недели: вторник
Повторить (1-да, 0-нет)?1
Введите день недели: среда
Повторить (1-да, 0-нет)?0
Содержимое файла nedelya.txt:
понедельниквторниксреда
2.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
append(f);
repeat
write('Day of the week: ');
readln(s);
writeln(f,s);
write('Repeat (1-yes, 0-no)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Day of the week: Thursday
Repeat (1-yes, 0-no)?1
Day of the week: Friday
Repeat (1-yes, 0-no)?1
Day of the week: Saturday
Repeat (1-yes, 0-no)?0
Содержимое файла nedelya.txt:
понедельник
вторник
среда
Thursday
Friday
Saturday
3.
var f:text; s:string;
begin
assign(f,'nedelya.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
end.
Результат:
понедельник
вторник
среда
Thursday
Friday
Saturday
