Д.З.: Найти сумму последовательности неравных нулю чисел, завершающейся 1.
1 играет роль признака конца последовательности.
programsum;
var
s,a:real;
begin
s := 0;
repeat
writeln ('vvedi slagaemoe');
readln(a);
s := s + a;
until a = 1;
writeln(‘сумма= ', s);
end.
Вычислить факториал числа: n!=1*2*3*..*n
program sum;
var
s,a:real;
begin
writeln('vvedi chislo');
readln(a);
write(a);
s := 1;
repeat
s:= s*a;
a:= a-1;
until a=1;
writeln('!=',s);
end.
Вывести на экран определенную последовательность символов (цифр или букв), введенную с клавиатуры, несколько раз (количество определяется в процессе выполнения программы)
а) в столбик;
var s,a:real;
str: string;
begin
writeln('vvedi stroku');
readln(str);
writeln('ckolko raz nujno napechatat?');
readln(a);
repeat
writeln(str);
a:= a-1;
until a=0; end.
б) в строчку.
var s,a:real; str: string; begin writeln('vvedi stroku'); readln(str); writeln('ckolko raz nujno napechatat?'); | readln(a); repeat write(str); a:= a-1; until a=0; end. |
Построить таблицу значений функции y=3*sinx+cos2x на интервале [-1;1] с шагом h=0,1.
var s,n,x:real;
begin
n:=0.1;
x:=-1;
repeat
s:=3*sin(x)+cos(2*x);
writeln('x= ',x,' y= ',s);
x:= x+n;
until x>0;
end.
Построить таблицу значений функции , на интервале [-10; 10] с шагом h = 1.
var x,h: integer;
y: real;
begin
x:= -10;
h:= 1;
repeat
if (x<>1) then begin
y:= (x+1)/(1-x);
writeln ('x= ',x:3,' y= ',y:7:5);
end;
x:=x+h;
until (x>10);
end.
Построить таблицу значений функции на интервале [-1; 1] с шагом h = 0,1 если функция имеет вид:
var x,y,h: real;
begin
x:= -1;
h:= 0.1;
repeat
if (x<-0.5) then begin
y:= x+1;
writeln ('x= ',x:3,' y= ',y:7:5);
end;
if (x>=-0.5) and (x<=0.5) then begin
y:= x*x;
writeln ('x= ',x:3,' y= ',y:7:5);
end;
if (x>0.5) then begin
y:= x-2;
writeln ('x= ',x:3,' y= ',y:7:5);
end;
x:=x+h;
until (x>10);
end.
Составить программу вычисления среднего арифметического числовой последовательности, где количество элементов и сами элементы вводятся с клавиатуры.
Program n4;
var i,n:integer;
a,s,sr:real;
Begin
write('N=');readln(n);
s:=0;
for i:=1 to n do begin
write( ' введите [ ' , i , ' ] = ' );Readln(a);
s:=s+a;
end;
sr:=s/n;
writeln(‘Среднее арифметическое = ',sr:10:5)
end.
Написать программу, выводящую на экран все двузначные числа сумма цифр, которых равна 10.
program n6;
var e,d:integer;
begin
for d:=1 to 9 do
for e:=0 to 9 do
if d+e=10 then writeln(d*10+e);
end.
