 |
Программирование на языке высокого уровня.
|
|
|
|
1. Введите два числа с клавиатуры, найдите их сумму.
Текст программы Комментарий
Program SUMMA; заголовок программы
Var X,Y,Z: integer; описание переменных
Begin начало программы
Write(‘Введите два числа ’); вывод на экран
Readln(X,Y); ввод значений X и Y
Z:=X+Y; присваивание суммы
Write(Z); вывод результата
End. Конец программы
2. Составьте программу для нахождения суммы трех чисел.
Program SUMMA;
Var X,Y,K,Z: integer;
Begin
Write(‘Введите три числа ’);
Readln(X,Y,K);
Z:=X+Y+K;
Write(Z);
End.
3. Поменяйте между собой значения двух переменных А и В, воспользовавшись третьей переменной R для временного хранения значения.
Решение.
Program prim2_2;
Var a, b, r: real;
begin
Write(‘Введите два числа ‘);
Readln(a,b);
R:=a;
A:=b;
B:=r;
Write(‘ a=’, a, ‘ b=’, b);
End.
4. Найти значение выражения: 
.
5. Найти значение выражения: 
.
6. Найти значение выражения, используя стандартные функции: 
.
7. Найти значение выражения, используя стандартные функции: 
.
8. Дано расстояние в сантиметрах. Найти число полных метров в нем.
Program prim_4;
Var a,b:integer;
Begin
Write(‘введите расстояние в сантиметрах’);
Readln(a);
b:=a div 100;
Writeln(b,' полных метров ');
Readln
End.
9. Дана масса в килограммах. Найти число полных тонн в ней.
10. Дано расстояние в метрах. Найти число полных километров в нем.
11. Составьте программу нахождения периметра квадрата, если задана его площадь.
Program prim_4;
Var a,b,x:real;
Begin
Write(‘введите площадь квадрата ’);
Readln(a);
X:=sqrt(a);
B:=x*4;
Writeln(‘периметр квадрата =’,x:0:3);
Readln
End.
12. Найти площадь кольца по заданным внешнему и внутреннему радиусам.
Program prim_4;
Var r1,r2,s:real;
Begin
Write(‘введите радиусы кольца ’);
Readln(r1,r2);
S:=abs(2*3.14*r1-2*3.14*r2); {разность площадей берем по модулю, так как не знаем
|
|
|
какое из колец является внутренним, а какое внешним}
Writeln(‘площадь кольца =’,s:0:2);
Readln
End.
13. Для двух целых чисел надо определить, являются они четными или нет.
Program prim_7;
Var a,b:integer;
Begin
Write(‘введите два целых числа’);
Readln(a,b);
If a mod 2 = 0 then Writeln (‘ а - четное ‘)
Else Writeln (‘ a - нечетное ‘);
If b mod 2 = 0 then Writeln (‘ b - четное ‘)
Else Writeln (‘ b -нечетное ‘);
Readln
End.
14. Вычислить значение у при заданном значении х:
15. Даны числа x и y. Вычислите число z, равное x+y, если x£y, и 1 – х + y в противном случае.
16. Найти сумму S первых 1000 членов гармонического ряда:
1+1/2+1/3+1/4+…1/N, используя оператор цикла While.
Program Summa;
Var S:real;
N:integer;
Begin
S:=0; N:=0;
While n<1000 do
Begin
N:=n+1;
S:=s+1/n
End;
Writeln(s);
Readln
End.
17. Составить программу подсчета суммы S первых 1000 членов гармонического ряда
1+1/2+1/3+1/4+…1/N. используя оператор цикла REPEAT.
Program Summa;
Var S:real; N:integer;
Begin
S:=0; N:=0;
repeat
N:=n+1;
S:=s+1/n
Until n=1000;
Writeln(s);
Readln
End.
18. Введите с клавиатуры 6 чисел и определите их среднее арифметическое.
19. Распечатать в столбик таблицу умножения на 7.
var i: byte;
begin
for I:=1 to 10 do
writeln(7,’*’,I,’=’,7*i);
readln
end.
20. Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.
ar I,n,x,sum:integer;
Begin
Write(‘Введите длину последовательности N=’);
Readln(n);
Sum:=0;
For I:=1 to n do
Begin
Write(‘Введите X=’);
Readln(x);
if x<0 then sum:=sum+x
end;
If sum=0 then writeln(‘отрицательных чисел нет’)
Else writeln(‘сумма отрицательных чисел =’, sum);
Readln
End.
21. Вводится последовательность из N целых чисел. Найти, сколько в ней нулей.
22. Составить программу, которая в зависимости от порядкового номера дня недели (1, 2, …, 7) выводит на экран его название (понедельник, вторник, …, воскресенье).
Program z22;
Var x: byte;
Begin
Write(‘ введите число от 1 до 7')ж
Readln(x);
Case x of
1: writeln(‘понедельник’);
2: writeln(‘вторник’);
3: writeln(‘среда’);
4: writeln(‘четверг’);
5: writeln(‘пятница’);
6: writeln(‘суббота’);
|
|
|
7: writeln(‘воскресенье’);
end;
Readln End.
23. Составить программу, которая в зависимости от порядкового номера месяца (1, 2, …, 12) выводит на экран его название (январь, февраль, …, декабрь).
24. Вводится последовательность из N целых чисел. Найти наибольшее число.
25. Составить программу определяющую, какая из двух фамилий длиннее. Фамилии имеют разную длину.
Program z25;
Var
a,b:string;
begin
readln(a);
readln(b);
if length(a)>length(b) then write(a) else write(b);
readln
end.
26. Дано слово. Вывести на экран его третий символ и дважды его последний символ.
27. Составить программу, которая печатает заданное слово в обратном порядке.
Program z27;
Var i,x:byte;
a:string;
begin
write('Введите слово ');
readln(a);
x:=length(a);{определяем длину слова}
for i:=x downto 1 do write(a[i]);
readln
end.
28. Дано предложение. Определить число пробелов в нем.
Var i,x,k:byte;
a:string;
begin
write('Введите предложение');
readln(a);
x:=length(a); {определяем длину слова}
k:=0;
for i:=1 to x do if a[i]=' ' then k:=k+1;
writeln(k);
readln
end.
29. Создать массив, ввести 10 чисел. Найти их сумму.
30. Имеется целочисленный массив, состоящий из 15 элементов: Найти сумму a[1] и a[7] элементов;
31. Имеется целочисленный массив, состоящий из N элементов (N - чётное): Найти сумму элементов стоящих на чётных позициях;
32. Задана прямоугольная матрица размера n строк и m столбцов.
Заполнить ее целыми числами. Распечатать по строкам.
33. Задана прямоугольная матрица размера n строк и m столбцов.
Заполнить ее целыми числами. Найти и вывести сумму всех элементов.
34. Изобразить на экране прямоугольный треугольник с вершинами (320, 10),
(120,210), (520,210).
35. Изобразить на экране разноцветные лучи.
36. Начертить на экране концентрические окружности.
37. Найти сумму целых чисел от 1 до 25, используя оператор цикла For…
|
|
|
