Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Линейные программы
Пример. Найти среднее арифметическое трёх чисел - двух целых (X и Y) и одного вещественного (Z) и квадрат среднего арифметического.
Программа:
program Midding;
var
X, Y: Integer;
Z, Midd, SqrMidd: Real;
begin
WriteLn('Введите два целых числа X и Y:');
ReadLn(X,Y);
WriteLn('Введите вещественное число Z:');
ReadLn(Z);
Midd:=(X+Y+Z)/3;
SqrMidd:=SQR(Midd);
Writeln(‘Среднее арифметическое = ‘,Midd);
Write(‘Квадрат среднего арифметического = ',SqrMidd);
end.
Задания
Ветвления
Пример 1.
Выбор минимального из трех введенных целых чисел.
Program pr1;
Var a, b, c, m: integer;
begin
readln(a, b,c);
if a<b then m:=a else m:=b;
if c<m then m:=c;
writeln('Минимальное=', m)
END.
Пример 2.
Решение квадратного уравнения вида Ax2 + Bx + C = 0
Program pr2;
Var a, b, c: integer;
d, x1, x2: real;
begin
readln(a, b, c); d:=sqr(b)-4*a*c; writeln('Дискриминант=', d);
if d>0 then begin
x1:=(-b+sqrt(d))/(2*a); writeln('x1=', x1:6:2);
x2:=(-b-sqrt(d))/(2*a); writeln('x2=', x2:6:2)
end
else if d=0 then begin
x1:=-b/(2*a); writeln('x=', x1:6:2)
end
else writeln('Корней уравнения нет');
end.
Пример 3.
Определить, есть ли в записи трехзначного числа хотя бы одна нечетная цифра.
Program Pr3.
Var a, a1, a2, a3: integer;
BEGIN
readln(a);
a1:= a div 100;
a2:= (a div 10) mod 10;
a3:= a mod 10;
if (a1 mod 2=1) or (a2 mod 2=1) or (a3 mod 2=1) then writeln(‘Есть’)
else writeln(‘Нет’);
END.
Пример 4.
Выяснить взаимное расположение точки А(х, у) и окружности х2 + у2 =R2.
Program pr4;
Var x, y, r: integer;
begin
write('Введите значение R='); readln(r);
write('Введите координаты точки x, y '); readln(x,y);
if sqrt(sqr(x)+sqr(y))<r then writeln('Внутри окружности')
else if sqrt(sqr(x)+sqr(y))=r then writeln('На окружности')
else writeln('Вне окружности');
end.
Пример 5.
Составить программу, которая выводит меню и при вводе номера вычисляет соответствующую функцию: 1-sin, 2-cos, 3-sqr, 4-sqrt.
Program pr5;
Var x: real;
i: integer;
begin
write('Аргумент ='); readln(x);
writeln('Функция 1-sin, 2-cos, 3-sqr, 4-sqrt');
write('Введите нужную цифру-'); readln(i);
case i of
1: x:=sin(x);
2: x:=cos(x);
3: x:=sqr(x);
4: x:=sqrt(x);
end;
writeln('результат=',x:6:2);
end.
Пример 6.
По введенному номеру вывести день недели .
Program primer1;
Var n: integer;
Begin
Readln(n);
Case n of
1: writeln(‘Понедельник’);
2: writeln(‘Вторник’);
3: writeln(‘Среда’);
4: writeln(‘Четверг);
5: writeln(‘Пятница’);
6: writeln(‘Суббота’);
7: writeln(‘Воскресенье’);
else
writeln(‘Ошибка’);
end;
End.
Задания
Циклы
Задания
|
a) y=x3-1 a=-1, b=3, h=0.2 |
3. Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10.
4. Найти сумму четных делителей введенного целого числа.
5. Определить, является ли введенное целое число простым или составным.
6. Найти сумму:
7. Найти произведение
8. Задана арифметическая прогрессия 7,6; 6,3;.... Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0.
9. Вычислить сумму с заданной точностью E:
|