Infinity 1.2.6 - программа для решения систем дифференциальных и алгебраических уравнений. C помощью Infinity вы сможете решить такие задачи, которые не по зубам ни Maple, ни MatLab, ни тем более MathCad. Отличия метода решения систем нелинейных обыкновенных дифференциальных уравнений, реализованного в Infinity, от методов реализованных в других математических пакетах.
Очень хороший учебник по физике, все подробно и понятно описывается, все темы по Электричеству. Советую качать тем, кто начал учить только за день до экзамена.
WinDjView 0.4.3 - программа необходима для просмотра файлов формата djvu. Очень удобная, нет ничего лишнего. Я сам ей пользуюсь. Не требуется установка.
Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.
Описание: Задача:
Создать типизированный файл и найти произведение цифр, стоящих на нечетных местах.
Пример:
1 23 456 1234
1*3*5*1*3=45
Исходный код: program name; uses crt;
{===========================} {sozdaem fail i zapolnyaem ego 4islami} procedure createfile(filename:string); var f:file of integer; a:integer; Begin Assign(f,filename); rewrite(f); writeln('input 4isla '); readln(a); While a<>0 do Begin write(f,a); readln(a); End; close(f); End;
{===========================} {vivodim na ekran sodergimoe faila} procedure printfile(filename:string); var f:file of integer; a:integer; Begin Assign(f,filename); reset(f); while not eof(f) do Begin read(f,a); write(a,' '); End; close(f); End; {proizvedenie cifr na ne4etnom meste} procedure pods4et(filename:string); var f:file of integer; b,j,i,p,k:integer; a:integer; c:array[1..5] of integer; Begin Assign(f,filename); reset(f); j:=0; p:=1; while not eof(f) do Begin read(f,a); i:=1; repeat c[i]:=a mod 10; i:=i+1; k:=i; a:=a div 10; until a=0; {==================} for i:=k-1 downto 1 do Begin write(c[i]); j:=j+1; if (j mod 2<>0) then p:=p*c[i]; End; write(' '); End; writeln('proizvedenie=',p); close(f); End;
BEGIN clrscr; createfile('C:\1.txt'); printfile('C:1.txt'); writeln; writeln('=================='); pods4et('C:\1.txt'); readln; END.
помогите пожалуста решить задачку в паскале, нужно срочно, у меня коннтрольная: дана матрица An,n . если значение ннаименьшего элемента выше главной диагонали больше заданной величины В , то вывести значение суммы элементов главой диагонали, в противном случае выдать сообщение "меньше В" нужно код программы и желательно блок схему ..
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
10 Декабря 2025, Среда
17:00
>Г Л А В Н А Я
>Ф А Й Л Ы
>С Т А Т Ь И
>Р Е Ф Е Р А Т Ы
>Ф О Р У М
>О Т З Ы В Ы
>Т Е С Т Ы
>F l a s h И Г Р Ы
>Ф О Т О Ш О П
