V1.0/КФТТ, ПетрГУ 2012
Терминатор (Пуск-останов)
Комментарий
Символ отображает выход во внешнюю среду и вход из внешней среды (начало или конец схемы программы, внешнее использование и источник или пункт назначения данных).
Символ используют для добавления описательных комментариев или пояснительных записей в целях объяснения или примечаний.
Например:
а. Пример с условием. |
б. Пример с детерминированным циклом. |
V1.0/КФТТ, ПетрГУ 2012
в. Пример с детерминированным циклом.
V1.0/КФТТ, ПетрГУ 2012
Задания
1. Построить блок-схемы двух задач.
1а.
–Найти длину окружности L и площадь круга S заданного радиуса R. В качестве значения π использовать 3.14159.
–Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество
N этих |
чисел. |
1б.
–Даны два неотрицательных числа a и b. Найти их среднее арифметическое. Найти их среднее геометрическое, то есть квадратный корень из их произведения.
–Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.
1в.
–Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
–Дано целое число N (>0). Найти значение выражения 1.1 − 1.2 + 1.3 − ...
1г.
–Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P.
–Дано вещественное число A и целое число N (>0). Найти A в степени N.
1д.
–Даны координаты двух противоположных вершин прямоугольника:(x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.
–Дано целое число N (>0). Последовательность вещественных чисел A(K) определяется следующим образом: A(0) = 2, A(K) = 2 + 1/A(K−1), K = 1,2,...
Вывести элементы A(N).
1е.
–Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле: корень из суммы квадратов разностей x2 и x1, y2 и y1.
–Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться столько раз, каково его значение (например, число 3 выводится 3 раза).
1ё.
–Поменять местами содержимое переменных A и B и вывести новые значения A и B. Проверить на положительность переменную А.
–Дано целое число N (>0). Если оно является степенью числа 3, то вывести TRUE, если не является — вывести FALSE.
V1.0/КФТТ, ПетрГУ 2012
1ж.
–Найти значение функции y = 3x^6− 6x^2/7x при данном значении x.
–Дано целое число N (>1).Найти первое число ряда Фибоначчи, большее N.
1з.
–Найти значение функции y = (4(x−3)^6− 7(x−3)^3)/2x при данном значении x.
–Даны десять вещественных чисел. Найти их сумму и произведение.
1и.
–Дано значение угла α в радианах(0 <α <2·π). Определить значение этого же угла в градусах, учитывая, что 180◦= π радиан. В качестве значения π использовать 3.14.
–Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора.
1к.
–Дана сторона квадрата a. Найти его площадь S и периметр P.
–Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Определить порядковый номер числа, отличного от остальных.
1л.
–Дана длина ребра куба a. Найти объем куба V и площадь его поверхности S.
–Дано целое число N (>1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего левого соседа, и количество K таких элементов.
V1.0/КФТТ, ПетрГУ 2012
2. Написать словесно-формульный алгоритм.
2а. Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайт, которые занимает данный файл.
2б. Даны два целых числа: A, B. Проверить истинность высказывания: «Справедливы неравенства A > 2 и B ≤ 3».
2в. Дано целое число A. Проверить истинность высказывания: «Число A является положительным».
2г. Дано целое положительное число. Проверить истинность высказывания: «Данное число является четным двузначным».
2д. Даны числа A, B, C (число A не равно 0). Рассмотрев дискриминант D. Проверить истинность высказывания: «Квадратное уравнение A·x^2+B·x+C=0 имеет вещественные корни».
2е. Дано расстояние L в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем.
2ё. Даны числа x, y. Проверить истинность высказывания: «Точка с координатами (x, y) лежит в четвертой координатной четверти».
2ж. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является прямоугольным».
2з. Даны три целых числа. Найти количество положительных чисел в исходном наборе. Вывести большее из них.
2и. Даны три числа. Найти сумму двух наибольших из них.
2к. Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных.
2л. Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:
f(x) = 2·sin(x), если x > 0; f(x) = 6 − x, если x ≤ 0.
V1.0/КФТТ, ПетрГУ 2012
3. Восстановить словесно-формульный алгоритм или блок-схему по готовой программе.
Определить цель программы.
3а.
var a,b,c,m : integer; begin
write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); if (a>b) and (a>c) then m:=a;
if (b>a) and (b>c) then m:=b; if (c>a) and (b<c) then m:=c; write('m=',m);
end.
3б.
var a,b,c,d,max,max1,max2 : real;
procedure bol2( aa,bb : real; var maxmax : real ); begin
if aa>bb then maxmax:=aa else maxmax:=bb;
end; begin
write('введте a,b,c,d через пробел '); readln(a,b,c,d);
bol2(a,b,max1);
bol2(c,d,max2);
bol2(max1,max2,max);
writeln('max=',max);
end.
3в.
var d : string[30]; n,i : integer;
begin write('текст: '); readln(d); n:=0;
for i:=1 to length(d) do if d[i]='а' then n:=n+1; write('В тексте а=',n); end.
3г.
var a : array [1..10] of integer; s : real;
sum,n,i : integer; begin
write('n='); readln(n); for i:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
sum:=0;
for i:=1 to n do sum:=sum+a[i]; s:=sum/n; writeln('сар= ',s);
end.
V1.0/КФТТ, ПетрГУ 2012
3д.
var a,n,i,p : integer; begin
write('n=');readln(n); write('a=');readln(a); p:=1;
for i:=1 to n do p:=p*a; write('p=',p);
end.
3е.
var f,n,i : integer; begin
write('n='); readln(n); f:=1;
for i:=1 to n do f:=f*i; write('f=',f);
end.
3ё.
var a,n,i : integer; f : real;
begin
write('n='); readln(n); write('a='); readln(a); f:=a;
for i:=1 to n do f:=a+sqr(f); write('f = ',f);
end.
3ж. var k,n,i : longint;
a : array [1..10] of longint; begin
write('n = ');readln(n); for i:=1 to n do
begin write('a[',i,']=');readln(a[i]); end;
for i:=1 to n do
if a[i]<0 then inc(k); write('k = ',k);
end.
3з.
var a : array [1..10] of longint; max,i,n : longint;
begin
write('n = ');readln(n); for i:=1 to n do
begin write('a[',i,']=');readln(a[i]); end;
max:=a[1]; for i:=2 to n do
if a[i]>max then max:=a[i]; write('max = ',max);
end.
V1.0/КФТТ, ПетрГУ 2012
3и.
var x1,x2,x3,y1,y2,y3,a,b,c : real; begin
write('x1=');readln(x1); write('y1=');readln(y1); write('x2=');readln(x2); write('y2=');readln(y2); write('x3=');readln(x3); write('y3=');readln(y3); a:=sqrt(sqr(x1-x2)+sqr(y1-y2)); b:=sqrt(sqr(x2-x3)+sqr(y2-y3)); c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
if (a=b)or(a=c)or(b=c) then write('равнобедренный') else write('не равнобедренный');
end.
3к.
var x1,x2,x3,y1,y2,y3,a,b,c,d,t : real; begin
write('x1=');readln(x1); write('y1=');readln(y1); write('x2=');readln(x2); write('y2=');readln(y2); write('x3=');readln(x3); write('y3=');readln(y3); a:=y2-y1; b:=x1-x2; c:=-x1*(y2-y1)+y1*(x2-x1); t:=sqrt(a*a+b*b);
d:=abs((a*x3+b*y3+c)/t); write('расстояние =',d);
end.
3л.
var x1,x2,y1,y2,s,a,b : real; begin
write('x1=');readln(x1); write('y1=');readln(y1); write('x2=');readln(x2); write('y2=');readln(y2);
a:=abs(x2-x1); b:=abs(y2-y1); s:=a*b; write('s=',s); end.
Литература
1.Абрамян М. Э.; Электронный задачник по программированию. (http://ptaskbook.com/ru/)
2.Основы современных компьютерных технологий: Учебное пособие, под ред. Хомоненко А.Д. – СПб.: Корона принт, 1998. – 448 с.
3.Н. Вирт. Алгоритмы и структуры данных. - М.: Мир, 1989. - 358 с.