066536 / 60В, 93, 316Д, 378А
.doc
Задание 1 (№60В)
Условие:
Пусть D-заштрихованная часть плоскости и пусть u определяется по x и y следующим образом (запись (x, y) D означает, что точка с координатами x, y принадлежит D):
Даны действительные числа x, y. Определить u
Текст программы:
Program lab1;
Var u,X,Y:real;
begin
writeln('задача №60В');
writeln('Введите X,Y');
readln(X,Y);
if (((sqr(X)+sqr(Y-1))<1) and (Y<(1-sqr(X)))) then
u:=X-Y
else
u:=X*Y+7;
writeln(u);
readln;
end.
Отчёт: Отчёт:
задача №60В задача №60В
Введите X,Y Введите X,Y
5 3 0.5 0.3
22 0.2
Пример: Пример:
Задание 2 (№93)
Пусть
k = 2, 3, …
Даны действительные q, r, b, c, d, натуральное n ()
Получить .
Текст программы:
Program lab2;
Var i,n:integer;
q,r,b,c,d:real;
x:array[0..100] of real;
begin
writeln('задача №93');
writeln('Введите q,r,b,c,d');
readln(q,r,b,c,d);
x[0]:=c; x[1]:=d;
writeln('Введите n');
readln(n);
for i:=2 to n do begin
x[i]:=q*x[i-1]+r*x[i-2]+b;
end;
writeln(x[n]);
readln;
end.
Отчёт:
задача №93
Введите q,r,b,c,d
5 6 9 1 3
Введите n
5
6441
Пример:
q=5; r=6; b=9; ;
Задача 3 (№316Д)
Дано натуральное число n, символы , …,. Будем рассматривать слова, образованные символами входящими в последовательность , …,, считая при этом что количество символов в каждом слове не превосходит 15. Удалить из , …, все слова оканчивающиеся группой букв кая или кое.
Текст программы:
program lab3;
var s,s1,res:string;
i:integer;
begin
writeln('Введите строку');
readln(s);
if s[length(s)]<>' ' then
s:=s+' ';
s1:='';
res:='';
For i:=1 to length(s) do begin
if s[i]<>' ' then s1:=s1+s[i] else begin
if ((s1[length(s1)]<>'я')and(s1[length(s1)-1]<>'а')and(s1[length(s1)-2]<>'к'))or
((s1[length(s1)]<>'е')and(s1[length(s1)-1]<>'о')and(s1[length(s1)-2]<>'к')) then
begin
s1:=s1+' ';
res:=res+s1;
s1:='';
end
else res:=res;
s1:='';
end;
end;
writeln(res);
end.
1.Пример:
Введите строку
Какая хорошая погода на улице!
хорошая погода на улице!
2.Пример:
Введите строку
Небо какое красивое...
Небо красивое...
3.Пример:
Введите строку
Какая интересная книга.
интересная книга.
Задача 4 (№378А)
Даны действительные числа Получить действительную квадратную матрицу порядка 8
Текст программы:
program lab4;
uses crt;
var x: array[1..8] of real;
y: array[1..8] of real;
i,j,n: integer;
begin
clrscr;
writeln('Введите числа: ');
for i:=1 to 8 do begin
read(x[i]);
y[i]:=1;
end;
for i:=1 to 8 do begin
for j:=1 to 8 do begin
y[j]:=y[j]*x[j];
write(y[j]:6:2,' ')
end;
writeln('');
end;
readkey;
end.
Отчёт:
Введите числа
2 1 -2 3 -1 2 -1 2
2.00 1.00 -2.00 3.00 -1.00 2.00 -1.00 2.00
4.00 1.00 4.00 9.00 1.00 4.00 1.00 4.00
8.00 1.00 -8.00 27.00 -1.00 8.00 -1.00 8.00
16.00 1.00 16.00 81.00 1.00 16.00 1.00 16.00
32.00 1.00 -32.00 243.00 -1.00 32.00 -1.00 32.00
64.00 1.00 64.00 729.00 1.00 64.00 1.00 64.00
128.00 1.00 -128.00 2187.00 -1.00 128.00 -1.00 128.00
256.00 1.00 256.00 6561.00 1.00 256.00 1.00 256.00
Пример:
Список литературы.
1.Абрамов С.А. Задачи по программированию / Абрамов С.А., Гнездилова Г.Г., Капустина Е.Н. Задачи по программированию.- М.: Наука,1988.
2.Семакин И.Г. Основы программирования / Семакин И.Г., Шестаков А.П. Основы программирования – 2-е изд., стер. – М.: Изд. центр “Академия”, 2003. – 432 с.
3.Епанешников А.М. Программирование в среде TURBO PASCAL 7.0. / Епанешников А.М., Епанешников В.А. Программирование в среде TURBO PASCAL 7.0. – 3-е изд., стер. – М.: ДИАЛОГ - МИФИ, 1996. – 288 с.
4.Алексеев В.Е., Ваулин А.С. Практикум по программированию: Практ. Пособие для вузов // Электронные вычислительные машины: В 8 кн. 2-е изд., перераб. И доп. – М.: Высш. Шк., 1993. Кн. 7. – 207 с.
5. Программирование в системах TURBO BASIC и TURBO PASCAL: Методические указания к лабораторным работам 10 – 16 / Составители А.Н. Ильгачев, А.И. Козлов; Чуваш. Ун-т. Чебоксары, 2004.
6. Программирование в системах TURBO BASIC и TURBO PASCAL: Методические указания к лабораторным работам 17 - 20 / Составители А.Н. Ильгачев, А.И. Козлов; Чуваш. Ун-т. Чебоксары, 2004