Пример выполнения задания
Задание. Построить фигуру из
букв русского алфавита →
от ‘а ’ до ‘ж’.
Р
ешение.
Составляем структурограмму и программу.
c := ‘а’ (1) ‘ж’
c < ‘г’
да нет
Вывод в строку с = ‘г’
(с:n, ‘ ‘: 7-2*n, c); да нет
Перевод курсора Вывод(c : n) Вывод в строку
в начало следую- в отдельную (c:8-n, ‘ ‘:2*n-9, c);
щей строки. строку Перевод курсора
(n – номер буквы)
program krest;
var
c:'а'..'ж'; {Кpест из этих букв}
begin
for c:='а' to 'ж' do
begin
if c<'г' then {Рисуем веpхнюю часть кpеста}
begin
write(c:ord(c)-ord(pred('а')),' ':7-2*(ord(c)-ord(pred('а'))),c);
writeln; end
else if c='г' then writeln(c:ord(c)-ord(pred('а')))
else begin
write(c:8-(ord(c)-ord(pred('а'))),' ':2*(ord(c)-ord(pred('а')))-9,c);
writeln end
end;
end.
Варианты задания
Протабулировать функцию
S(t)=
при k=0,5
и
с шагом0,01
на отрезке для t
- [0,2; 0,8].
Найти минимум функции f(x)=
методом перебора с шагом 0,05
на отрезке [1,5;
4,5].Выяснить, является ли натуральное число совершенным, т.е. равным сумме своих делителей, включая 1.
В последовательности латинских букв, заканчивающейся точкой, преобразовать строчные буквы в прописные.
Выяснить, равно ли натуральное число сумме кубов своих цифр. Примеры таких чисел: 153, 370, 371, 407.
Среди целых чисел байтового диапазона, превышающих 200, найти числа, делящиеся на 3 или 7, но не на обе эти цифры.
Установить, является ли автобусный билет “счастливым” т.е. имеет одинаковую сумму первых трех и последних трех цифр.
Установить, на каком из 10 интервалов отрезка [1, 4] функция f(x)=ln(x)-x+1,8 имеет корень.
В последовательности символов, заканчивающейся *, подсчитать количество цифр и прописных латинских букв.
С погрешностью 0,0001 вычислить ln(2)=
.
Пренебречь слагаемыми, которые меньше
погрешности по абсолютной величине.Является ли натуральное четырехзначное число числом Армстронга? Примеры чисел Армстронга: 153=
;
1634=
.Вычислить произведение
с погрешностью0,001.
Пренебречь сомножителями, отличающимися
от 1
меньше чем на заданную погрешность.Вычислить факториал заданного целого числа n!=123n.
Установить, является ли натуральное число простым. Простое число имеет всего два делителя: 1 и само число.
В последовательности символов, заканчивающейся точкой, подсчитать количество цифр и заменить символ x на y.
Выяснить, сколько раз входит в состав натурального числа цифра 3.
17.
С погрешностью 0,001 вычислить Ln(1+x)
=
для x
= 0,5.
18.
С погрешностью 0,001
вычислить 1/e
=
.
19.
С погрешностью 0,001
вычислить exp(x)
=
для x
= 1,3.
20. Вывести состав чисел, кратных 16, на отрезке [2103, 2401].
21.
Вывести на экран все Пифагоровы числа,
не превышающие 20.
Пифагоровы числа удовлетворяют условию
.
22.
Вычислить
дляn
= 2 с погрешностью
0,001
по формуле Ньютона:
q(k+1)=[q(k)+n/q(k)]/2,-
где q(k+1)
- очередное приближение корня, а q(k)
- предыдущее приближение.
23.
Вычислить с учетом 50 слагаемых exp(x)
=
для x
= 0,5.
24.
Найти с погрешностью 0.001
для x
= 0,8 cos(x)=
.
25. Вывести номера первых семи счастливых билетов.