Сам я не пользовался им, но так просмотрел, вроде неплохой: тем много, каждая тема описывается кратко, но понятно, присутствуют примеры и доказательства, ну вообщем советую посмотреть....
Хороший учебник по FL Studio. В интернете вообще не много учебников по FL Studio, но вот один из них. Часть I. Сведение танцевальной музыки в FL Studio. Часть II. Мастеринг танцевальной музыки в FL Studio Часть III. Эффекты, комплексные эффекты и фрики в FL Studio Часть IV. Внеклассное чтение :)
Построить по заданным значениям 2 треугольника (простой и прямоугольный) и определить, сколько точек лежат в месте пересечения этих треугольников и значение этой площади. С клавиатуры вводятся параметры: - Координаты вершин обычного треугольника А, В, С; - Координату вершины прямоугольного треугольника А; - Длины сторон прямоугольного треугольника; - Количество построенных на экране точек и их цвет;
Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: 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 . если значение ннаименьшего элемента выше главной диагонали больше заданной величины В , то вывести значение суммы элементов главой диагонали, в противном случае выдать сообщение "меньше В" нужно код программы и желательно блок схему ..
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
22 Октября 2024, Вторник
21:43
>Г Л А В Н А Я
>Ф А Й Л Ы
>С Т А Т Ь И
>Р Е Ф Е Р А Т Ы
>Ф О Р У М
>О Т З Ы В Ы
>Т Е С Т Ы
>F l a s h И Г Р Ы
>Ф О Т О Ш О П
