begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.
#include <cstdlib>#include <iostream>#include <iomanip>#include <cmath>
using namespace std;
int main(){ setlocale(0, ""); double x, y, a, b, xk, xn, dx; a = 1.4; b = 2.5; cout << "Ââåäèòå xn,xk, dx = " << endl; cin >> xn; cin >> xk; cin >> dx; x = xn; cout << "Tabl" << endl; cout << "+-----------+" << endl; cout << "¦ x ¦ y ¦" << endl; while (x <= xk) { y = (log10(a*x*x+b))/(a*x+1); cout << "+-----+-----¦" << endl; cout.setf(ios::fixed); cout.precision(3); cout << "¦" << x << "¦"<< y << "¦" << endl; x = x + dx; } cout << "+-----------+"; system("pause");}
program z1;
var
i,k:integer;
begin
k:=0;
i:=0;
while i <> 10 do begin
dec (k);
if (abs (k) mod 2 =1 ) and (k < 0) then
begin
writeln (k);
inc (i);
end;
end;
end.
Var b,t,w:real; v:integer;
begin
write('рабочая ширина захвата агрегата, м = ');
readln(b);
write('коэффициент использования времени смены = ');
readln(t);
writeln('Производительность машинно-тракторного агрегата:');
for v:=3 to 12 do
writeln(v:3,' ',0.1*b*v*t:4:1);
end.
Пример:
рабочая ширина захвата агрегата, м = 5
коэффициент использования времени смены = 0.8
Производительность машинно-тракторного агрегата:
3 1.2
4 1.6
5 2.0
6 2.4
7 2.8
8 3.2
9 3.6
10 4.0
11 4.4
12 4.8
1
а) writeln(c); или write(c);
б) a, s: integer; или a, s: byte; или a, s: word;
в) r := p - q;
2
а) на одной строке будет выведено число 9, а на другой числа 5 и 3
б) на одной строке будет выведено число 8, на другой выведется 5-3 и 5+1=6
3
While - цикл с предусловием (условие идет до тела цикла), поэтому он может вообще не выполнятся. Repeat - цикл с постусловием (условие идет уже после тела цикла), поэтому тело этого цикла всегда выполняется минимум 1 раз.
4
var
st1: string;
i, k: byte;
begin
write('Введите строку: ');
readln(st1);
for i:=1 to Length(st1) do
if st1[i]= ' ' then inc(k);
writeln(k);
end.
6
var
a, sum: integer;
begin
write('Введите число: ');
readln(a);
sum := 0;
while a > 0 do
begin
sum := sum + (a mod 10);
a := a div 10;
end;
writeln('Сумма цифр = ', sum:5);
end.
7
var
N, k: integer;
begin
write('Введите число: ');
readln(N);
k:=0;
while N > 0 do
begin
inc(k);
N := N div 10;
end;
writeln('Количество цифр = ', k:5);
end.
8
а) read(d); или readln(d);
б) m, n: real; или m, n: double;
в) s := p - q;
9
На одной строке будет выведено 2, на другой 5+3 и 5*4=20
10
Ну, думаю, когда заранее неизвестно число итераций (повторений) цикла. Например While eof(f) ("пока не конец файла", тут чисто физически нельзя использовать цикл for).
11
Length(st1), если с выводом, то Writeln('Количество символов: ', Length(st1));
12
var
N: integer;
begin
write('Введите число: ');
readln(N);
writeln(N div 100);
writeln(N div 10 mod 10);
writeln(N mod 10);
end.
13
Код идентичен заданию 7, блок-схема в приложении