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