Система PTC Mathcad 14 предоставляет собой мощное, удобное и наглядное средство описания алгоритмов решения математических задач. Система MathCAD настолько гибка и универсальна, что может оказать неоценимую помощь в решении математических задач как школьнику, постигающему азы математики, так и академику, работающему со сложнейшими научными проблемами.
Приемы и примеры работы с матрицами на С++. Это и транспонирование матрицы на с++, и возведение матрицы в квадрат на с++, и приведение матрицы к диагональному виду на с++.
Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: 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 . если значение ннаименьшего элемента выше главной диагонали больше заданной величины В , то вывести значение суммы элементов главой диагонали, в противном случае выдать сообщение "меньше В" нужно код программы и желательно блок схему ..
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]