Поиск
Обработка экономической информации средствами языка Pascal
... производиться, пока не конец второго файла repeat read (f2, b); a. n: =b. n; a. e1: =b. e1; a. e2: =b. e2; a. e3: =b. e3; a. e4: =b. e4; write (f, a); until eof (f2); Вывод сообщения и задержка программы writeln; writeln ('Всё Ok! '); delay (1000); Вывод сообщения о возможности продолжения удаления новых записей или возврата к главному меню writeln ('Reload-<any>'); ...
Вычисление определенного интеграла методами трапеций и средних прямоугольников
... значение x (x1)=');Readln (x1);
write ('Конечное значение x (x2)=');Readln (x2);
write ('Точность вычисления (e)=');Readln (e);
CountViaBar;
CountViaTrap;
writeln ('------------------------------------------------');
writeln ('Спасибо за использование программы ;^)');
end.
Исходные данные. Результаты расчетов и анализ.
Ниже приведен результат работы написанной и откомпилированной программы:
...