SILVERNA
Новичок
|
    
Всем хелло!! Помогите пожалуста!!! нужно срочно решить задачи на паскале!!!!
1 - ДАны 2 треугольника заданые своими вершинами! Опрелелить подобны ли треугольники!!
Подсказка: в зада че использовать формулы: расстояние между точками в координатах и формулу Герона!!!
___
2-Задана квадратная матрица "N" (размерность строк и столбцов небольше 7!) и вектор той же размерности! Сравнить произведения: A*x и x(Транспонированое)*A
Помогите плз.. срочно надо! напишите в Паскале хотя бы одну задачу!!! ЗАранее благодарен .. оч оч!!! 
|
Всего сообщений: 1 | Присоединился: май 2008 | Отправлено: 29 мая 2008 16:09 | IP
|
|
Guest
Новичок
|
Народ! всем здарова! выручайте пожалуйста, на допуск к экзамену не хватает 1 задачи, 3 я сделал, 1 осталась...
Составить описание класса одномерных массивов строк, где каждая строка задается длиной и указателем на выделенную для неё память. Предусмотреть следующие возможности:
- обращение к отдельным строкам массива по индексам
- контроль выхода за пределы массивов
- выполнение операций поэлементного сцепления 2-ух массивов с образованием нового массива
- слияние 2-ух массивов с исключением повторяющихся элементов
- вывод на экран элемента массива и всего массива.
Написать прогу, демонстрирующую работу с этим элементом
Ваще хз как это делать =)
Выручайте, неохота в армию =) заранее спасибо
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 30 мая 2008 12:40 | IP
|
|
slastenka
Новичок
|
помогите написать программу в паскале,какой уже день мучаюсь,а все вылазиет какая-то ошибка
Итак, вводится непустая последовательность (текст) не более 79. Отдельные слова в тексте разделены пробелами. Определить,является ли введенный текст,заканчивающийся "!",правильной записью вещ. числа.
|
Всего сообщений: 1 | Присоединился: май 2008 | Отправлено: 30 мая 2008 23:39 | IP
|
|
Annetka
Новичок
|
приветки , помогите пожалст с задачкой очень надо, немного дописать нужно её.Вот условие: Дано натуральное число N.Выяснить можно ли представить N в виде произведения трех последовательных натуральнх чисел.
program r2;
uses crt;
var
i,N,k:integer;
begin
clrscr;
writeln (‘vvedite naturalnoe chislo N’);
readln (N);
for i:=1 to N do
if (i*(i+1)*(i+2))=N then begin
k:=k+1;
i:=N;
end;
if k=1 then writeln (‘uslovie vipolnyaetsya’)
else writeln (uslovie ne vipolnyaetsya’);
readkey;
end.
Пример вывода результа:
vvedite naturalnoe chislo N
24
uslovie vipolnyaetsya
17
uslovie ne vipolnyaetsya
Нужно получить так, чтобы при выводе результата были показаны используемые числа .например 24(2*3*4).помогите плиз
(Сообщение отредактировал Annetka 3 июня 2008 20:21)
|
Всего сообщений: 3 | Присоединился: июнь 2008 | Отправлено: 2 июня 2008 20:58 | IP
|
|
vipperson
Новичок
|
 
Help me!!!!!!!плииииз!!!!!!!!!вопрос жизни и несдачи зачета,точнее двух((( надо написать ф-цию которая выравнивает заданную строку равномерно добавляя или убирая нужное кол-во пробелов так чтобы она стала заданной длины........вооот...я вроде написала а преподу не нравица,че тут не так?????
var
s1,s2:string;
i,n,m,probel,zed:integer;
begin
writeln('vvedite stroku');
readln(s1);
writeln('vvedite dlinu konechnoi stroki');
readln(n);
m:=length(s1);
zed:=1;
while m<n do begin
i:=1;
while (i<=m)and(m<>n) do begin
s2:=copy(s1,i,1);
if s2=' ' then begin insert(' ',s1,i);i:=i+zed;end;
m:=length(s1);
i:=i 1;
end;
zed:=zed 1;
end;
writeln(s1);
writeln('->ENTER');
readln;
end.
|
Всего сообщений: 1 | Присоединился: июнь 2008 | Отправлено: 2 июня 2008 23:33 | IP
|
|
DaImeR
Новичок
|
Annetka, лови умница=)
uses crt;
var
i,N,k:integer;
begin
clrscr;
writeln ('vvedite naturalnoe chislo N');
readln (N);
for i:=1 to N do
if (i*(i+1)*(i+2))=N then k:=i;
if k>=1 then writeln(k,'*',k+1,'*',k+2,' uslovie vipolnyaetsya')
else writeln (' uslovie ne vipolnyaetsya');
readkey;
end.
|
Всего сообщений: 7 | Присоединился: апрель 2008 | Отправлено: 3 июня 2008 22:06 | IP
|
|
Annetka
Новичок
|
DaImeR,пасиб за помощь), но пчему-то выдает ошибку(
|
Всего сообщений: 3 | Присоединился: июнь 2008 | Отправлено: 4 июня 2008 0:02 | IP
|
|
DaImeR
Новичок
|
Annetka у меня все прекрасно работает. Какая именно ошибка? Скопируй мою программу в паскаль
|
Всего сообщений: 7 | Присоединился: апрель 2008 | Отправлено: 4 июня 2008 14:57 | IP
|
|
Glum
Новичок
|
Помогите пожалуйста написать программу. Вот условие
Одно из возможных представлений длинного текста - это разделить
его на строки равной длины и создать массив ссылок на эти строки:
CONST
D = ...; длина строки;
N = ...; максимальное число строк;
TYPE
ST = STRING [D];
РТRSТR=^SТ;
МУТЕХТ =ARRAY [1..N] ОF PТRSТR;
VAR
T:MYTEXT;
(Если в тексте менее N строк, то последние элементы массива равны
NIL; в начале массива ссылок NIL не должно быть. Если в операции над текстом указан номер отсутствующей строки, т.е. элемент массива с этим
номером равен NIL, то такая операция не выполняется.)
Используя данное представление текста описать:
Процедуру Myswap (t,i,j), меняющую местами i-ую и j-ую строки
текста t.
P.S. Заранее благодарен.
|
Всего сообщений: 1 | Присоединился: июнь 2008 | Отправлено: 4 июня 2008 20:05 | IP
|
|
Annetka
Новичок
|
DaImeR,извини за беспокойство, моя ошибка( раньше появлялась ошибка-несоответствие типов)напутала что -то сама(. сейчас заново сделала -работает)еще раз огромное спасибо))
|
Всего сообщений: 3 | Присоединился: июнь 2008 | Отправлено: 4 июня 2008 21:32 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 2
