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

[Галсан]

помогите срочно сделать вот эту задачу:

Составить программу для нахождения всех натуральных решений уравнения п2+т2=к2 в интервале [1, 10].

[FAT32]

Галсан

делай перебором...

for p:=1 to 10 do
  for t:=1 to 10 do
    for k:=1 to 10 do
      if 2*p+2*t=2*k then writeln(p,t,k);

[Po$amax@]

FAT32

паскаль будет долго трехмерный цикл пытать

[X-tender]

for p:=1 to 10 do
  for t:=1 to 10 do
    for k:=1 to 10 do
      if 2*p+2*t=2*k then writeln(p,t,k);

правильнее:

for p:=1 to 10 do
    for k:=1 to 10 do
      if ((2*(k-p)>0) and (2*(k-p)<11)) then writeln(p,2*(k-p),k);

[lagranj]

X-tender

что-то у тебя не то получилось....

проще так:

for i:=1 to 10 do
  for j:=1 to 10 do
   if i+j<=10 then writeln(i,j,i+j);

Добавлено спустя 1 минуту 27 секунд:

Po$amax@

такой цикл до 10 долго пытать не будет

[krestik]

Уважаемые программисты решите пожалуйста эти задачи:

1.Дана матрица размером Q M×N. Из положительных элементов матрицы Q сформировать матрицу W[M, KMAX], располагая их в строках матрицы подряд (KMAX – максимальное число положительных элементов строки матрицы Q). Записать нули на место отсутствующих элементов. отпечатать обе матрицы по строкам.

2.Дана символьная строка. Переупорядочить ее символы таким образом, чтобы символы располагались в порядке возрастания их ASCII-кодов.

3. Определить сумму элементов массива N, кратных трем.

[_sm_]

помогите срочно сделать вот эту задачу:

Составить программу для нахождения всех натуральных решений уравнения п2+т2=к2 в интервале [1, 10].

мб степень?

п^2+т^2=к^2

[JSTQ]

1.Дана матрица размером Q M×N. Из положительных элементов матрицы Q сформировать матрицу W[M, KMAX], располагая их в строках матрицы подряд (KMAX – максимальное число положительных элементов строки матрицы Q). Записать нули на место отсутствующих элементов. отпечатать обе матрицы по строкам.

{$APPTYPE CONSOLE}

uses
SysUtils;

var q:array[1..100,1..100] of Integer;
q1:array[1..101] of Byte;
q2:array[1..10000] of Integer;
q3:array[1..100,1..100] of Integer;
i,j,l,m,n:byte;
q1v,q2v:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Randomize;
q1v:=0;
Writeln('Vvedite M');
Readln(m);
Writeln('Vvedite N');
readln(n);
for i:= 1 to m do for j:= 1 to n do q[i,j]:=Random(11)-5;
for i:= 1 to m do begin
for j:= 1 to n do begin
write(q[i,j],' ');
if q[i,j]>0 then begin
Inc(q1[i]);
Inc(q1v);
q2[q1v]:=q[i,j];
end;
end;
Writeln;
end;
q2v:=0;
j:=0;
for i:=1 to m do if q1[i]>j then begin
q1[101]:=q1[i];
j:=q1[101];
end;
m:=q1[101];
for i:= 1 to m do
for j:= 1 to n do begin
Inc(q2v);
if q2v<=q1v then q3[i,j]:=q2[q2v] else q3[i,j]:=0;
end;
Writeln;
Writeln;
for i:= 1 to m do begin
for j:= 1 to n do write(q3[i,j],' ');
Writeln;
end;
read(m);
end.

program Project3;

2.Дана символьная строка. Переупорядочить ее символы таким образом, чтобы символы располагались в порядке возрастания их ASCII-кодов.

{$APPTYPE CONSOLE}

uses
SysUtils;

var i,j:byte;
a:string;
b:string[1];
c:string[1];
q:char;

begin
{ TODO -oUser -cConsole Main : Insert code here }
read(a);
for i:= 1 to Length(a) do begin {Nachinayem sortirovku!}
b:=a[i];
c:=b;
j:=i-1;
while (Ord(a[j])>Ord(b[1])) do
begin
a[j+1]:=a[j];
Dec(j);
end;
a[j+1]:=b[1];
end;
Writeln;
write(a);
read(q);
Sleep(5000);
end.

program Project2;

3. Определить сумму элементов массива N, кратных трем.

{$APPTYPE CONSOLE}

uses
SysUtils;

var a:array[1..100]of Byte;
b:Integer;
i,dlm,rd:byte;
q:char;

procedure vvod;
begin
Writeln('Type array length');
readln(dlm);
Writeln('Type randomize parameter');
Readln(rd);
end;

procedure cycles;
begin
for i:= 1 to dlm do a[i]:=Random(rd+1);
for i:= 1 to dlm do write(a[i],' ');
for i:= 1 to dlm do if a[i] mod 3=0 then b:=b+a[i];
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
Randomize;
b:=0;
vvod;
cycles;
Writeln;
Writeln(;
read(q);
end.

program Project1;

Очень сложное задание *05

[APEXER]

Дана действительная матрица размера nxm; организовать однонаправленный список строк матрицы, упорядоченных:

а) по неубыванию значений первых элементов строк.

б) по невозрастанию значений наибольших элементов строк.

[JSTQ]

Дана действительная матрица размера nxm; организовать однонаправленный список строк матрицы, упорядоченных:

а) по неубыванию значений первых элементов строк.

б) по невозрастанию значений наибольших элементов строк.

{$APPTYPE CONSOLE}

uses
SysUtils;

type
amaxr=record
n:Byte;
val:Byte;
end;

var i,j,n,m,b,b1,c,c1:Byte;
a:array[1..100,1..101]of Byte;
q:Char;
amax:array[1..100]of amaxr;

begin
{ TODO -oUser -cConsole Main : Insert code here }
Randomize;
write('Vvedtite M ');
Readln(m);
write('Vvedite N ');
Readln(n);
for i:=1 to m do begin
for j:= 1 to n do begin
a[i,j]:=Random(11);
write(a[i,j],' ');
end;
Writeln;
end;
for i:= 1 to m do begin
amax[i].n:=i;
amax[i].val:=a[i,1];
end;
for i:= 1 to m do begin
b:=amax[i].val;
b1:=amax[i].n;
c:=b;
c1:=b1;
j:=i-1;
while ((amax[j].val)> do
begin
amax[j+1].val:=amax[j].val;
amax[j+1].n:=amax[j].n;
Dec(j);
end;
amax[j+1].val:=b;
amax[j+1].n:=b1;
end;
Writeln('Spisok strok matrici, uporyadochennii po');
Writeln('neubivaniyu znachenii pervih elementov strok');
for i:=1 to m do begin
for j:= 1 to n do begin
write(a[amax[i].n,j],' ');
end;
Writeln;
end;
for i:= 1 to m do begin
a[i,101]:=0;
for j:= 1 to n do if(a[i,j]>a[i,101])then a[i,101]:=a[i,j];
end;
for i:= 1 to m do begin
amax[i].n:=i;
amax[i].val:=a[i,101];
end;
for i:= 1 to m do begin
b:=amax[i].val;
b1:=amax[i].n;
c:=b;
c1:=b1;
j:=i-1;
while ((amax[j].val)> do
begin
amax[j+1].val:=amax[j].val;
amax[j+1].n:=amax[j].n;
Dec(j);
end;
amax[j+1].val:=b;
amax[j+1].n:=b1;
end;
Writeln('Spisok strok matrici, uporyadochennii po');
Writeln('nevozrastaniyu znachenii naibolshih elementov strok');
for i:=m downto 1 do begin
for j:= 1 to n do begin
write(a[amax[i].n,j],' ');
end;
Writeln;
end;
read(q);
end.

program apexer;

[APEXER]

)I(ECTb........ *85

Justice

c!!c

[Dmitrius]

please!!! Помогите решить задачу на Pascal!!!

Определить число элементов и найти оператор, преобразующий номер элемента в само число, для следующей последовательности: 4, 1, 6, 3, 8, 5, ..., 85, 90, 87.

Заранее благодарен.

[DAGET]

Кто работал в delphi, с компонентами

по ФТП - компоненты Indy

по работе с БД компоненты ADO

по запуску use ShellAPI, команда - ShellExecute

собственно вопрос в том как мне соеденить БД и Ftp(т.е. через прогу на delphi в которой у меня БД файлов, сами файлы лежат на Ftp), и нужно открыть файл который я выберу через допустим qwe.exe

[Maru]

собственно вопрос в том как мне соеденить БД и Ftp(т.е. через прогу на delphi в которой у меня БД файлов, сами файлы лежат на Ftp), и нужно открыть файл который я выберу через допустим qwe.exe

вопрос странно сформулирован, ничего непонятно ))

в каком формате лежат данные в БД? если там адреса файлов, которые лежат на фтп, то открыть фтп, перейти в нужную директорию и скачать файл. потом выполнить shellexecute над скачанным файлом

можно также потом предложить юзеру закачать файл опять на фтп, если он изменился

[!=Вовк@=!]

Народ помогите пожалуйста решить задачу на паскале!!! Задача: Дано целое число, вывксти цифры этого числа и найти их сумму через div и mod число должно быть меньше 10000. Помогите плиз срочно!!!!!

[Lakers]

uses crt;

var a,x:integer;

begin

clrscr;

readln(x);

while x>0 do begin

a:=a+(x mod 10);

x:=x div 10;

end;

writeln(a);

readkey;

end.

[TolkienDRR]

совсем разленились. в такой хрени даже помогать смысла не вижу.

если хотите чтобы за вас сделали - цену предлагайте.

в остальном, нах такие программисты-дипломники нужны.

[!=Вовк@=!]

Спасибо большо!!!

[Рассамаха]

1)Для каждого продукта некоторого склада известны объем на начало месяца, цена единицы продукта и расход в течение месяца. Определить процентное соотношение стоимости каждого продукта на начало и конец месяца?

задача

2)Можно ли из круглой заготовки радиусом r выразить две прямоугольные пластины размером a*b, c*d?

[daplex]

Я поддерживаю TolkienDRR!!! Сидят тут какие то ламеры, детские задачи спрашивают!!!

Эти задачи в БГУ на первом курсе все решают, чтоб эказмен сдать, а кто не может, идут на все четыре стороны. Хотят решения, пусть деньги платят

[coder]

daplex

не судите поспешно. =) всякое же бывает, не боги горшки обжигают.

[Felon]

1) Составить таблицу значений tgx и ctgx для x изменяющихся от 10 до 80 с шагом 3 градуса. В виде таблицы данных. tg и ctg

2) Найти сумму s=1\2^0+1\2^1+1\2^2+1\2^7 найти сумму ряда и распечатать все члены ряда.

[TolkienDRR]

Felon, самое время менять ник на fIlon - от слова филонить ))))))

первое -
цикл по i
 x=3*i
 массив[i,0]=х
 массив[i,1]=tg(x)
 массив[i,2]=1/tg(х)
конец цикла.

а вторая задача хрен бы знал, ряд у тебя кривой

[Felon]

TolkienDRR

на самом деле ник это и обозначает, но только в самом хорошем смысле)!!

[payk]

1 ) На отрицательных элементов заданного массива образовать новый массив и подсчитать не перенесёных исходных элементов. В новом массиве определить среднюю величину абсолютных значений.

2 ) В заданном массиве определить среднее значение элементов, входящих в указаный интервал.

во 2рой задачи у мну где-то ошибка, сумму я нашел, как найти кол-во цифр в указаном интервале, чтоб можно было Сумму элементов разделить на кол-во цифр в указаном интервале? ? ?