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

Галсан · 19 июня, 2009

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

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

FAT32 · 19 июня, 2009

Галсан

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

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@ · 20 июня, 2009

FAT32

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

X-tender · 21 июня, 2009

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 · 21 июня, 2009

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 · 24 июня, 2009

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

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

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

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

_sm_ · 24 июня, 2009

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

мб степень?


п^2+т^2=к^2

JSTQ · 24 июня, 2009

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 · 29 июня, 2009

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

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

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

JSTQ · 29 июня, 2009

Дана действительная матрица размера 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 · 29 июня, 2009

)I(ECTb........ *85
Justice
c!!c

Dmitrius · 6 сентября, 2009

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

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

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

DAGET · 13 сентября, 2009

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

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

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

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

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

Maru · 13 сентября, 2009

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

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

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

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

!=Вовк@=! · 30 сентября, 2009

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

Lakers · 30 сентября, 2009

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 · 30 сентября, 2009

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

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

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

!=Вовк@=! · 30 сентября, 2009

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

Рассамаха · 26 октября, 2009

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

задача

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

daplex · 3 ноября, 2009

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

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

coder · 4 ноября, 2009

daplex

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

Felon · 22 декабря, 2009

1) Составить таблицу значений tgx и ctgx для x изменяющихся от 10 до 80 с шагом 3 градуса. В виде таблицы данных. tg и ctg
2) Найти сумму s=1\2^0+1\2^1+1\2^2+1\2^7 найти сумму ряда и распечатать все члены ряда.

TolkienDRR · 22 декабря, 2009

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

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

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

Felon · 22 декабря, 2009

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

payk · 25 декабря, 2009

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

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

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

Войти

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

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

Галсан

FAT32

Po$amax@

X-tender

lagranj

krestik

_sm_

JSTQ

APEXER

JSTQ

APEXER

Dmitrius

DAGET

Maru

!=Вовк@=!

Lakers

TolkienDRR

!=Вовк@=!

Рассамаха

daplex

coder

Felon

TolkienDRR

Felon

payk

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

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

Обзор

Активность