RT <span>Файл RT является одним из файлов категории Интернет-файлы. Его полное название это RealText Streaming Text File. Формат файла RT создан RealNetworks. Если вы попали к нам, наверное Вы ищете программы, которые помогут Вам работать с этим конкретным расширением. На следующих страницах вы найдете списки программ, поддерживающих файл RT сортированные по операционных системах. Если наша база данных содержит информацию о конвертировании файла RT, Вы обязательно найдете его здесь.</span>
Var
x,y:real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
if x<=-7 then y:=25
else
if x<=5 then y:=17*x-1
else y:=sqr(x);
Writeln('Значение функции равно ',y:0:4)
end.
Тестовое решение:
Введите значение аргумента x: 3.78
Значение функции равно 63.2600
program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.
5 итераций цикла for, на каждой значение переменной s увеличивается на 7: s = 7 + 7 + 7 + 7 + 7 = 35
