Pascal

[(=Hello=)]

1) Выполнить задания, используя переменные типа множество и строка. Использовать при программировании подпрограмму-процедуру без параметров.
Ввести с клавиатуры строку символов. Проверить, имеются ли среди введенных символов элементы псевдографики (№№ 176-223) и заменить каждый элемент, имеющий четный номер в строке на символ (?).
2)Вычислить значение определенного интеграла с заданной точностью ε.
Входные параметры: границы интервала [a, b], точность.
Выходные: значение интеграла, количество разбиений n.
Значение границ интервала и точность ввести с клавиатуры в главной программе. Значение интеграла и количество разбиений вывести в главной программе.
Метод Симпсона. функция :sqrt(1+x*x*x*x*x) интервал [0,2].

[Grag]

(=Hello=), договоримся - сделаю... Turbo Pascal 7.0

Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[Stilet]

Ввести с клавиатуры строку символов.

var s:string;i:integer;
begin
 readln(s);
...

Проверить, имеются ли среди введенных символов элементы псевдографики

for i:=1 to length(s) do begin
 if ord(s[i]) in [176..223] then write('Ага, есть');
 if (i mod 2)=0 then s[i]:='?';
end;

Идея понятна?

[(=Hello=)]

Да, спасибо. Первое задание есть)