Задачи на Pascal/Delphi (РЕШЕНИЕ)

-makos- · 11 января, 2008

В этой теме теперь отписываемся.

-makos- · 20 января, 2008

Как решить эти две задачи?

1)Ввести натуральное число найти его делители.

2)Введите число определить совершенное ли оно.

bayarookie · 21 января, 2008

n:=8;
for i:=1 to n do
  if (n div i) = (n/i) then
    ?;

а второе не помню, что такое совершенное число

DVJ_MC_DOS · 21 января, 2008

n:=8;
for i:=1 to n do
  if (n div i) = (n/i) then
    ?;
а второе не помню, что такое совершенное число

Ага аналогично.

-makos- · 27 января, 2008

Ну спасибо и на этом.

DVJ_MC_DOS · 3 марта, 2008

Братцы помогите с алгоритмом Прима(реализация, теория).

0xDEADBEEF · 3 марта, 2008

Этот хрестоматийный алгоритм существут в тысячах реализаций по всему интернету (есть даже наглядный пример работы), достаточно только погуглить

Алгоритм вкратце:

Цель: найти минимальное оставное дерево (MCT - Minimal Cost Tree) в заданном графе.

Описание: Найти ребро минимального веса, не включенного в дерево. Если оно не образует с ребрами дерева циклов, то включаем; если образует - берем следующее. Всё это в цикле до N-1, где N - количество вершин в графе (догадайтесь почему?). В оригинале для определения циклов вершинам назначались веса.

И тут непочатый край для оптимизаций и улучшений, в зависимости от способа задания графа и конечной цели.

P.S. Есть реализация, правда на C++

baikal · 4 марта, 2008

помогите решить задачу на одномерные массивы

Для положительных элементов массива Z вычислить их среднее

геометрическое.

язык турбо паскаль

L0K1 · 5 марта, 2008

{средним геометрическим n - чисел называют,
корень - n-степени от произведения всех этих чисел(числа >0)}
uses
  crt;
const
  max=255;
var
  a:array[0..max] of real; {массив ска}
  rez,multi:real;  {rez - среднее геометрическое,multi - произведения чисел}
  i,dim:byte;	{i - счетчик,dim - размерность}
begin
  {ввод }
	write('Enter dimension: ');
  readln(dim);
	write('Enter ',dim,' elements: ');
  for i:=0 to dim-1 do
    read(a[i]);
	{Вычисление произведения}
  multi:=1;
  for i:=0 to dim-1 do
    multi:=multi*a[i];
	{Вычиление корня n - степени
	x^y := exp(ln(x)*y);}
  rez := exp(ln(multi)*(1 / dim));
  writeln('Rez = ',rez:7:3);
  readkey;
end.

ВотЪ... B вообще юзайте wikipedia + мозг + TP7 =))

JSTQ · 6 марта, 2008

Народ, подскажите что такое множество мажорант решетки? Как оно формируется?

DVJ_MC_DOS · 6 марта, 2008

Спасибо. Не хотел на внеху лезть.

baikal · 6 марта, 2008

спасибо большое L0K1

ReKrYt · 22 марта, 2008

ПОмогите пажаоуйста!!репки дам)

Даны положительные действительные числа x, y, z. Проверить,

существует ли треугольник с длинами сторон x, y, z и в случае

положительного ответа определить, является ли он остроуголь-

ным.

Greezly · 22 марта, 2008

логически выглядеть будит так:

1. сравниваешь 3 числа x, y, z (то бишь стороны треугольника) между собой.

2. далее проверяешь условие что треугольник существует, т.е. условие:

сумма двух меньших сторон > третьей стороны.

3. если да, то проверяешь условие остроугольности:

сумма квадратов меньших сторон > квадрата большей стороны (помойму так).

если да треугольник - остроугольный

Chosen One · 23 марта, 2008

1. Дан файл F, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Числа в файле идут в следующем порядке: десять положительных, десять отрицательных, десять положительных, десять отрицательных и т. д. Переписать компоненты файла F в файл G так, чтобы в файле G числа шли в следующем порядке: двадцать положительных, двадцать отрицательных, двадцать положительных, двадцать отрицательных и т. д. (предполагается, что число компонент файла F делится на 40).

2. В файле содержатся рациональные числа, причем рациональное число изображается в виде записи с двумя полями: числитель и знаменатель целого типа. Вычислить наибольшее из данных рациональных чисел. Если их несколько, то выдать номера компонентов всех таких чисел.

3. Дан текстовый файл F. Записать в перевернутом виде строки файла F в файл G. Порядок строк в файле G должен быть обратным по отношению к порядку строк исходного файла.

Chosen One · 23 марта, 2008

это 3 задачи, соответственно за каждую по 2 репы, на тему файлы

DVJ_MC_DOS · 23 марта, 2008

3. Дан текстовый файл F. Записать в перевернутом виде строки файла F в файл G. Порядок строк в файле G должен быть обратным по отношению к порядку строк исходного файла.

Как-то типо того.

uses crt;
var f,g: text;
stt:string;
i:integer;
procedure perew;
var flag:integer;
begin
repeat
if flag=2 then
readln(f,stt);
for i:=length(stt) downto 1 do
begin
write(g,stt);
end;
writeln(g);
flag:=2;
until eof(f)=true;
end;
begin clrscr;
assign(f,'f.txt');
assign(g,'g.txt');
reset(f);
readln(f,stt);
rewrite(g);
perew;
close(g);
readkey;
end.

Если что-то не сходиться напиши, доделаю(топропился мож чё упустил ).

Chosen One · 23 марта, 2008

DVJ_MC_DOS

ok, завтра проверю)

ReKrYt · 24 марта, 2008

логически выглядеть будит так:
1. сравниваешь 3 числа x, y, z (то бишь стороны треугольника) между собой.
2. далее проверяешь условие что треугольник существует, т.е. условие:
сумма двух меньших сторон > третьей стороны.
3. если да, то проверяешь условие остроугольности:
сумма квадратов меньших сторон > квадрата большей стороны (помойму так).
если да треугольник - остроугольный

А КАК БУДЕТ ВЫГЛЯДЕТЬ САМ ТЕКСТ ПРОГРАММЫ???ПЛЗ!!!

Greezly · 24 марта, 2008

to тихон

будет выглядеть где-то так

uses crt;
var
x,y,z,a1,a2,a3: real;
Begin
write('x=');
readln(x);
write('y=');
readln(y);
write('z=');
readln(z);
{1}
{a1-men'shaya, a2-srednya, a3-samaya bol'shaya}
if (x>y) then begin
if (x>z) then begin
a3:=x;
if (y>z) then begin
a1:=z; a2:=y; end
else
a1:=y; a2:=z; end
else
a1:=y; a2:=x; a3:=z; end
else
if (y>z) then begin
a3:=y;
if (x>z) then begin
a1:=z;a2:=x; end
else
a1:=x;a2:=z; end
else
a1:=x; a2:=y; a3:=z;
{2}
if (a1+a2)>a3 then
{3}
if (sqr(a1)+sqr(a2)) > sqr(a3) then
writeln('treeugolnik ostrougolnii')
else
writeln('treeugolnik ne ostrougolnii')
else
writeln('treeugolnik ne suschestvuet');
readkey;
End.

З.Ы. не помню прямоугольный треуг-к. - остроугольный или нет(посчитал что нет)

ReKrYt · 25 марта, 2008

ага спс!!!! завтра проверю!!!!!

Dogma · 30 марта, 2008

Вычисление всех собственных значений симметричной матрицы методом Якоби. Плиз.

MEGAFON · 31 марта, 2008

Будте добры, помогите пожалуйста вот это сделать

3. Дан текстовый файл F. Удалить один из наиболее часто встречающихся символов текста, результат занести в файл G.

Gastly · 3 апреля, 2008

Решите плиз задачу методом Оптимизационной информационной модели: *23

При получении школой нового компьютерного класса необходимо оптимально спланировать перевозку 15 компьютеров. Каждый пк упакован в 2 коробки и существует 3 варианта погрузки коробок в автомобиль. 1 Вариант: 3 монитора и 1 сист. блок. 2 Вариант: 2 монитора и 2 сист. блока. 3 Вариант: 1 монитор и 4 сист.блока. Найти количество рейсов в 1-ом, 2-ом и 3-ем варианте.

PS:Дам 2 репы за решение!

PSS: Язык Turbo Pascal

Greezly · 4 апреля, 2008

то Gastly

условие:
m - монитор
s - системник
a - кол-во 1 рейсов
b - кол-во 2 рейсов
c - кол-во 3 рейсов
a+b+c->min
(3a+2b+c)m=15m
(a+2b+4c)s=15s
a>=0
b>=0
c>=0
также можно задать еще и на максимальное значение для a, b, с :
a<=5
b<=7
c<=3
решу способом перебора(если можно)...
вот:
uses crt;
var
a,b,c:integer;
d,min:integer;
Begin
clrscr;
min:=15;
for a:=0 to 5 do begin
for b:=0 to 7 do begin
for c:= 0 to 3 do begin
if (3*a+2*b+c=15)and(a+2*b+4*c=15) then begin
d:=a+b+c;
if d
min:=d;
writeln('min= ',d,' : a=',a,', b=',b,', c=',c);
end;
end;
end;
end;
readkey;
End.
PS: жду репки

Войти

Задачи на Pascal/Delphi (РЕШЕНИЕ)

Рекомендуемые сообщения

-makos-

-makos-

bayarookie

DVJ_MC_DOS

-makos-

DVJ_MC_DOS

0xDEADBEEF

baikal

L0K1

JSTQ

DVJ_MC_DOS

baikal

ReKrYt

Greezly

Chosen One

Chosen One

DVJ_MC_DOS

Chosen One

ReKrYt

Greezly

ReKrYt

Dogma

MEGAFON

Gastly

Greezly

Пожалуйста, войдите, чтобы комментировать

Последние посетители 0 пользователей онлайн

Обзор

Активность