№ 1 Линейные структуры, стандартные функции
Листинг программы
program lab1;
const a=0.5; b=1;
var y, x:Real;
begin
Write('x=');
Read(x);
if (x>0) Then
begin
y:=exp(-sqr(a))*sqrt(x+1)+exp(-b*x)*exp(ln(x+1)/3);
WriteLn('y=',y:2:2)
end
else
WriteLn('x<0')
end.
Результат
№ 2 Ветвление
Листинг программы
program lab2;
var a,R: real;
begin
write ('R=');
readln (R);
write ('a=');
readln (a);
if R>=(exp(1/3*ln(3))/3)*a
then writeln ('Поместится')
else writeln ('Не поместится')
end.
Результат
№ 3 Циклы (все три вида: For, While, Repeat)
Листинг программы для вида: For
program lab3;
const n=5;
var x,S: real;
i: integer;
begin
write ('x=');
readln (x);
S:=0;
For i:=1 to n do
begin
S:=S+cos(exp(i*ln(x)));
end;
writeln ('S=',S)
end.
Результат
Листинг программы для вида: While
program lab3;
const n=5;
var x,S: real;
i: integer;
begin
write ('x=');
readln (x);
S:=0;
i:=1;
While i<= n do
begin
S:=S+cos(exp(i*ln(x)));
i:=i+1;
end;
writeln ('S=',S)
end.
- Курсовая работа
- Дипломная работа
- Контрольная работа
- Реферат
- Отчет по практике
- Магистерская работа
- Статья
- Эссе
- Научно-исследовательская работа
- Доклад
- Глава диплома
- Ответы на билеты
- Презентация
- Монография
- ВКР
- Дипломная работа MBA
- Компьютерный набор текста
- Речь к диплому
- Тезисный план
- Чертёж
- Диаграммы, таблицы
- ВАК
- Перевод
- Научная статья
- Бизнес план
- Лабораторная работа
- Рецензия
- Решение задач
- Диссертация
- Доработка заказа клиента
- Аспирантский реферат
