var
s: string;
c1, c2, i: integer;
begin
writeln('введите строку');
readln(s);
c1 : = 0;
c2 : = 0;
for i : = 1 to length(s) do
begin
if s[i] = '(' then
inc(c1);
if s[i] = ')' then
begin
inc(c2);
if c2 > c1 then
begin
writeln('скобки расставленны неверно');
exit;
end;
end;
end;
if c1 = c2 then
writeln('скобки расставлены верно')
else
writeln('скобки расставленны неверно');
end.
1)) открываем ехел
2) задаем переменные
начальное значение интервала
=0
конечное значение интервала
=2*пи()
шаг определяем=
0.5
шаг взял примерно как хочешь
следующая строка расчетная
расчитаем количество точек для построения
самое простое пишем = дальше мышкой щелкаем на клетку конечное значение ставим знак - начальное все это руками в строке формула ставим в скобки и ставим знак деления / на шаг
если все верно то exel расчитает точки
далее надо определить таблицу расчетов
№ x y
под № пишем в столбик 1
2
дальше мышью веделяем вместе 1 и 2 и хватаем за уголок начинаем тянуть получаем ряд цыфр от 1 до количества точек скоко надо ( растягиваем
колонка х
строим первая строка = начальное значение
вторая строка = предыдущее + щаг
теперь мышкой выделяем и растягтвае только выделяем второе значение
=> заполнелось х
заполнеям y
пишем =cos( и тыкаем мышью рядом на х)
дальше растягиваем
==================
получились значения в таблице х и у
построение графика выделяем таблицу y и х и нажимаем вставка диаграмма
там все просто потыкаешь увидишь синусойду
удачи!
Поделитесь своими знаниями, ответьте на вопрос:
var s: real;
i,n: integer;
begin
s: =0;
n: =0;
for i: =250 to 500 do begin
if (i mod 5=0) and (i mod 7=0) then begin s: =s+i; n: =n+1;
end;
end;
s: =s/n;
writeln(s);
end.