RE: Решение задач на Паскале и Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-05 15:18:21.790000
|
|
|
Lost_boy
Сообщений: 327
Оценки: 0
Присоединился: 2009-03-25 11:07:27.910000
|
Убейте спам от Warezpage, по глазам бьёт((
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-05 18:32:59.343333
|
|
|
SkKeyG_[Free_L1F3]
Сообщений: 39
Оценки: 0
Присоединился: 2008-07-03 12:04:47.343333
|
помогите, пожалуйста, 8го край сдавать задачу, ничего не готово :-( заплачу даже :-(
дана программа базы данных, в нее нужно интегрировать кнопку поиска и вывода студентов-однофамильцев на отдельную форму. пробовал писать процедуры, видимо, где-то ошибка…
вот функция поиска однофамильцев и процедура обработки, помогите пожалуйста, очень надо
function IsOdnofam(S: TStud): boolean;
var
c : array of string;
compare : string;
b,r : char;
i,j,jc : integer;
begin
Result := true;
SetLength(c,StringGrid1.RowCount - 2); i := 0; jc := 0;
for j := 1 to StringGrid1.RowCount - 1 do
begin
b := cells[5,j];
while b[i] <> ' ' do
begin
r := r + b[i];
Inc(i);
end;
c[j-1] := r;
end;
while jc <> StringGrid1.RowCount do
for j := jc to StringGrid1.ColCount - 1 do
begin
compare := c[jc];
i := j;
if (compared = c[j]) and (i <> j) then
result:=false;
end;
if j = StringGrid1.ColCount - 1 then
inc(jc);
end;
end.
end;
procedure SetFindOdnofam(StringGrid: TStringGrid);
var
i: word;
j: integer;
begin
FindStr:=AnsiUpperCase(FindStr);
ResetStud; i:=0; adr:=-1;
with StringGrid do
while not EOF(fStud) do
begin
Read(fStud,Stud); adr:=adr+1; // AnsiUpperCase(const S: string): string;
if (Stud.y<>0) and (IsOdnofam(Stud)) then begin
Inc(i);
Cells[0,i]:=IntToStr(adr);
Cells[1,i]:=IntToStr(i);
Cells[2,i]:=IntToStr(Stud.IdGroup);
Cells[3,i]:=IntToStr(Stud.IdStud);
Cells[4,i]:=Stud.FIO;
end;
end;
StringGrid.RowCount:=i+1;
if i>0 then StringGrid.FixedRows:=1;
CloseFile(fStud);
end;
если что, сам проект выложил здесь http://dump.ru/file/4080317
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-05 22:45:13.096666
|
|
|
eBarracuda
Сообщений: 4
Оценки: 0
Присоединился: 2010-01-05 22:26:51.593333
|
Даны натуральные числа N,M,i,j,k и действительные x,f
Вычислить: ссылка на картинку с условием
Мне непонятно что здесь надо сделать… :(
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-05 22:55:19.383333
|
|
|
VaZoNeZ
Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666
|
quote:
Мне непонятно что здесь надо сделать… :(
Пить надо меньше. Читай первый пост до посинения.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-06 00:17:55.060000
|
|
|
ydzero
Сообщений: 100
Оценки: 0
Присоединился: 2008-11-06 15:38:02.560000
|
quote:
ORIGINAL: eBarracuda
Даны натуральные числа N,M,i,j,k и действительные x,f
Вычислить: ссылка на картинку с условием
Мне непонятно что здесь надо сделать… :(
А зачем тебе даны M, j, k и f? На картинке(здесь должна быть ссылка на картинку, но её нет) не понятно.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-06 00:23:47.500000
|
|
|
Lost_boy
Сообщений: 327
Оценки: 0
Присоединился: 2009-03-25 11:07:27.910000
|
quote:
ORIGINAL: VaZoNeZ
Пить надо меньше. Читай первый пост до посинения.
=)))))) улыбнуло))
eBarracuda, то что тебе делать изображено на твоей же картинке, поясню - это цикл с N итерациями, на каждой из которых будет происходить следующие S = S + sin x в степени i.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-06 00:25:50.160000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: eBarracuda
Даны натуральные числа N,M,i,j,k и действительные x,f
Вычислить: ссылка на картинку с условием
Мне непонятно что здесь надо сделать… :(
Условие явно не полное, но… =)
var
i, n : integer;
j, x, s : real;
begin
readln( n, x, i );
{не помню, как там степень в паскале}
s := 1;
for i := 1 to j do
s := s * x;
x := s;
s := sin( x ) * n;
writeln( s );
readln;
end.
П.С. задача скорее всего на циклы, но какое условие - такое и решение. Удачи разобраться =)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-07 01:16:08.150000
|
|
|
GKorshunov
Сообщений: 2
Оценки: 0
Присоединился: 2010-01-07 00:31:47.160000
|
помогите написать прогу не получается застрял на одном месте
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-07 01:17:36.393333
|
|
|
GKorshunov
Сообщений: 2
Оценки: 0
Присоединился: 2010-01-07 00:31:47.160000
|
Program Scan_code;
Uses Crt,Dos;
Var
OldKey: Procedure;
c,c1 : Byte;
vkl : Boolean;
Procedure Key; Interrupt; {обработчик прерывания}
Begin
c1:=c;
c:=Port[$60];ошибка здесь токо не пойму какая
If c=1 then {нажали ESC}
vkl:=true;{включён режим отображения кодов нажимаемых клавиш}
If vkl Then
Begin
write (' kod=',c,' ');
If c=c1+128 Then Writeln; {отпустили клавишу}
End;
Sound(1000);
Delay(100);
Nosound;
Inline($9C);
OldKey;
End;
Begin {основная программа}
vkl:=false; {сначала режим отображения кодов выключен}
GetIntVec($9,@OldKey);
SetIntVec($9,Addr(Key));
Keep(0);
End.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-07 12:36:46.323333
|
|
|
Юрий123
Сообщений: 12
Оценки: 0
Присоединился: 2009-12-08 22:53:47.320000
|
а вот эту задачу может кто нить решить у меня не получается и у кого не спрашивал никто не знает
Получить первым N a1=a2=1, a3=a1+a2=2 , a4=a2+a3=3 и т д!! 2 задачи сделал для сдачи зачёта надо третью ещё помогите !
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-07 13:35:20.330000
|
|
|
ydzero
Сообщений: 100
Оценки: 0
Присоединился: 2008-11-06 15:38:02.560000
|
quote:
ORIGINAL: Юрий123
а вот эту задачу может кто нить решить у меня не получается и у кого не спрашивал никто не знает
Получить первым N a1=a2=1, a3=a1+a2=2 , a4=a2+a3=3 и т д!! 2 задачи сделал для сдачи зачёта надо третью ещё помогите !
Я понял, ты - бот!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-07 13:54:57.906666
|
|
|
Lost_boy
Сообщений: 327
Оценки: 0
Присоединился: 2009-03-25 11:07:27.910000
|
Вводишь N
создаешь массив из N элементов (arr[N])
первому и второму элементу массива присваиваешь 1
запускаешь цикл состоящий из N-2 итераций (i от 2 до N)
на каждой итерации:
arr[i] = arr[i-1] + arr[i-2] цикл окончен и у тебя есть массив с числами созданными по твоему правилу, все.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-07 22:57:14.076666
|
|
|
eBarracuda
Сообщений: 4
Оценки: 0
Присоединился: 2010-01-05 22:26:51.593333
|
quote:
Пить надо меньше.
Я не пью, тем более в 16 лет!!
quote:
А зачем тебе даны N,M, j, k и f? На картинке(здесь должна быть ссылка на картинку, но её нет) не понятно.
Картинка рабочая, просто то что на ней невозможно написать сюда((
quote:
то что тебе делать изображено на твоей же картинке, поясню - это цикл с N итерациями, на каждой из которых будет происходить следующие S = S + sin x в степени i.
Вот за это спасибо!
quote:
Условие явно не полное, но… =)
var
i, n : integer;
j, x, s : real;
begin
readln( n, x, i );
{не помню, как там степень в паскале}
s := 1;
for i := 1 to j do
s := s * x;
x := s;
s := sin( x ) * n;
writeln( s );
readln;
end.
П.С. задача скорее всего на циклы, но какое условие - такое и решение. Удачи разобраться =)
Условие полное. разве что БОЛЬШАЯ опечатка в книге. Спасибо за наброску к задаче, шас попробую что-то замутить. И, да, эта задача на циклические вычисления!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-07 23:45:42.740000
|
|
|
eBarracuda
Сообщений: 4
Оценки: 0
Присоединился: 2010-01-05 22:26:51.593333
|
решал я вот задачу, и бац, понял что не знаю формул, и вобщем что делать дальше.((
Условие: Введите три числа. Если они могут быть длинами сторон разностороннего остроугольного треугольника, выведите их в порядке возрастания и вычислите площадь полученного треугольника.
Площадь я думаю что смогу найти, а вот определить вид треугольника не получается. имеется блок-схема.
PROGRAM razvletvlenie;
USES crt;
VAR x,y,z,s: integer;
BEGIN
clrscr;
Writeln('Enter X ');
Read(x);
Writeln('Enter Y ');
Read(y);
Writeln('Enter Z ');
Read(z);
IF (x+y>z) AND (y+z>x) AND (x+z>y) THEN
Writeln('Treugolnik') ELSE
Writeln('Ne treugolnik');
IF (x<>y) AND (y<>z) AND (x<>z) THEN
Writeln('Raznostoronniy') ELSE
Writeln('Ne raznostoroniy');
IF (sqr(z)<(sqr(x)+sqr(y))) AND (sqr(x)<(sqr(z)+sqr(y))) AND (sqr(y)<(sqr(x)+sqr(z))) THEN
Writeln('Ostrougolniy') ELSE
Writeln('Tupougolniy');
readkey;
END.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-08 00:30:28.596666
|
|
|
I.G.O.R.
Сообщений: 72
Оценки: 0
Присоединился: 2009-10-20 15:18:36.626666
|
eBarracuda, опишу самый простой способ определить, является ли треугольник остроугольным. Первое что нужно сделать это определить наибольшую сторону, а далее, если квадрат длины этой стороны строго больше сумме квадратов остальных, то треуголгьник остроугольный, иначе либо тупоугольный либо прямоугольный;)
дабы не быть голословным:
function ostr(a,b,c:real):boolean;
var k:real;
begin
if (b>a) and (b>c) then begin
k:=a;
a:=b;
b:=k;
end else
if (c>a) and (c>b) then begin
k:=a;
a:=c;
c:=k;
end;
if sqr(a)>sqr(b)+sqr(c) then result:=true
else result:=false;
end;
пример использования:
var a,b,c:real;
begin
readln(a,b,c);
writeln(ostr(a,b,c));
readln;
считываем длины сторон и выводим является ли триугольник остроугольным)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-08 13:46:48.950000
|
|
|
Lost_boy
Сообщений: 327
Оценки: 0
Присоединился: 2009-03-25 11:07:27.910000
|
Если не знаешь формул, юзай гугл, привыкай что в нем тебе придется проводить очень много времени, так что учись им пользоваться. Про формулы тебе вроде выше уже все расписали так что действуй.
З.Ы. Блок схему преподаватель рисовал?=)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-08 16:08:29.740000
|
|
|
eBarracuda
Сообщений: 4
Оценки: 0
Присоединился: 2010-01-05 22:26:51.593333
|
quote:
ORIGINAL: Lost_boy
Если не знаешь формул, юзай гугл, привыкай что в нем тебе придется проводить очень много времени, так что учись им пользоваться. Про формулы тебе вроде выше уже все расписали так что действуй.
З.Ы. Блок схему преподаватель рисовал?=)
Пользуюсь гуглом, но не всегда могу найти то что мне нужно чтобы понять((
P/S. да, но это мне мало помогло
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-08 16:27:00.870000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: GKorshunov
c:=Port[$60];ошибка здесь токо не пойму какая
Компилятор что пишет?
Кстати, этот порт, если мне не изменяет память, двухбайтный.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 03:27:20.940000
|
|
|
Юрий123
Сообщений: 12
Оценки: 0
Присоединился: 2009-12-08 22:53:47.320000
|
а вот эту задачу может кто нить решить у меня не получается и у кого не спрашивал никто не знает
Получить первым N a1=a2=1, a3=a1+a2=2 , a4=a2+a3=3 и т д!! 2 задачи сделал для сдачи зачёта надо третью ещё помогите !
ЛЮДИ РЕШИТЕ МНЕ ЭТУ ЗАДАЧУ ЭТА ПОСЛЕДНЯЯ !! Я В ПАСКАЛЕ НОЛЬ НУЛЁМ !! НАПИШИТЕ КАК ЕЁ В ПАСКАЛЬ В ВОДИТЬ И Я ИСЧЕЗНУ ПОЖАЛУЙСТА!!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 05:59:16.800000
|
|
|
zverozavr
Сообщений: 35
Оценки: 0
Присоединился: 2009-12-14 00:43:48.116666
|
помогите начинающему программисту :)
program a1;
var a,x,k,t: integer;
begin
writeln('a=');
read(a);
x:=(7*a+417)mod 1000;
k:=(x/7)mod 10;
t:=(x/19)mod 10;
writeln('x=',x);
writeln('k=',k);
writeln('t=',t);
end.
что сдесь не правильно? выдаёт не правильный тип в строке k:=(x/7)mod 10;
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 06:50:32.113333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
оператор / применяется для дробного деления, а у тебя целые числа.
Либо юзай real либо div
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 06:53:35.753333
|
|
|
zverozavr
Сообщений: 35
Оценки: 0
Присоединился: 2009-12-14 00:43:48.116666
|
quote:
ORIGINAL: _SaZ_
оператор / применяется для дробного деления, а у тебя целые числа.
Либо юзай real либо div
Real выдаёт такуюже ошибку :( мне нужен именно mod
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 07:32:15.770000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
вместо / напиши div… и читай учебники
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 07:49:38.350000
|
|
|
zverozavr
Сообщений: 35
Оценки: 0
Присоединился: 2009-12-14 00:43:48.116666
|
quote:
ORIGINAL: _SaZ_
вместо / напиши div… и читай учебники
спс большое!
дальше сам разобрался как зациклить его 12 раз :)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 18:28:25.646666
|
|
|
zverozavr
Сообщений: 35
Оценки: 0
Присоединился: 2009-12-14 00:43:48.116666
|
program a1;
Uses CRT;
var a,x,k,t,i: integer;
begin
ClrScr;
write('a=');
read(a);
if a mod 2 = 0 then a:=a+301
else a:=a;
for i:=1 to 12 do
begin;
x:=(7*a+417)mod 1000;
k:=(x div 7)mod 10;
t:=(x div 19)mod 5;
write(i:2,':');
write('x=',x,',');
write('k=',k,',');
write('t=',t);
writeln();
a:=x;
end;
end.
пожалуста, кто шарит, проверьте правильность написаной програмки.
у меня просто нехорошие подозрения, хотя может оно так и есть:
суть программы в следующем:
берём последние 3 числа зачётки (а)
если число чётное то к нему надо прибавить 301 для нечётности
находим х,к,т
дальше подставляем получиный "х" за место "а" и так 12 раз (заполняем таблицу)
всё вроде не чего, но если число превышает 1000 то программа показывает всего 4 разных значения …
в общем вопрос : программа написана корректно?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 19:52:39.113333
|
|
|
Papa James
Сообщений: 438
Оценки: 0
Присоединился: 2009-12-07 13:36:18.370000
|
Зачем после begin ставить точку с запятой?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 21:12:08.570000
|
|
|
zverozavr
Сообщений: 35
Оценки: 0
Присоединился: 2009-12-14 00:43:48.116666
|
quote:
ORIGINAL: Papa James
Зачем после begin ставить точку с запятой?
она не мешает[sm=ag.gif] а в остальном всё нормально?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-09 21:18:24.816666
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
if a mod 2 = 0 then a:=a+301
else a:=a; замени на
if a mod 2 = 0 then a:=a+301; А то бредово, знаете ли.
quote:
число превышает 1000 то программа показывает всего 4 разных значения
Не хочу ничего считать, попробуй поставь вместо типа integer у переменных тип longint.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 10:01:14.050000
|
|
|
Teddy_bear
Сообщений: 1
Оценки: 0
Присоединился: 2010-01-10 09:49:47.933333
|
Помогите любыми примерами решений:
1) численное решение интегрального уравнения
2 дифференциального уравнения в частных производных
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 15:01:13.183333
|
|
|
Katolisa
Сообщений: 26
Оценки: 0
Присоединился: 2009-12-21 13:52:54.603333
|
Привет, в чем проблема….не получается:
Задача: Написать инструкции вывода значений дробных переменных x1 и х2. На экране перед значением переменной должен быть выведен поясняющий текст, представляющий собой имя переменной, за которым следует знак «равно».
Решение:
uses crt;
var
x1, x2 : real;
const
seed = 100;
begin
randomize;
x1 := random( seed ) * random ( seed ) / ( random( seed ) + 1 );
x2 := random( seed ) * random ( seed ) / ( random( seed ) + 1 );
writeln( 'Переменная x1 = ', x1:0:2, $13$10, 'Переменная x2 = ', x2:0:2 );
readln;
Вопрос, а без seed решить нельзя?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 15:04:46.856666
|
|
|
Papa James
Сообщений: 438
Оценки: 0
Присоединился: 2009-12-07 13:36:18.370000
|
Можно так
x1 := random()
x1 будет в промежутке от 0 до 1
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 15:11:23.720000
|
|
|
Katolisa
Сообщений: 26
Оценки: 0
Присоединился: 2009-12-21 13:52:54.603333
|
Спасибо,
получается
random( seed ) * random ( seed ) / ( random( seed ) + 1 );
random( seed ) * random ( seed ) / ( random( seed ) + 1 );это что тогда одно и тоже?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 15:15:56.353333
|
|
|
Katolisa
Сообщений: 26
Оценки: 0
Присоединился: 2009-12-21 13:52:54.603333
|
кстати, ошибка вот здесья убрала и записала заново, всё сходится, т.е. const seed от 1 до 100 что ли?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 15:21:46.243333
|
|
|
Shurik_88
Сообщений: 823
Оценки: 0
Присоединился: 2007-05-18 17:20:05.446666
|
seed просто используется как константа равная 100 и не отличается принципиально от random(100);
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 15:44:38.490000
|
|
|
Katolisa
Сообщений: 26
Оценки: 0
Присоединился: 2009-12-21 13:52:54.603333
|
Написать функцию Procent, которая возвращает процент от числа, полученного в качестве аргумента:
function procent(p:real):real;
begin
procent:=p/100;
end.? так ли ? надо ли ещё что-то?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 15:55:39.703333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: Katolisa
Вопрос, а без seed решить нельзя?
Можно, но зачем? Не проще ли почиталь хотя-бы основы по программированию?
quote:
ORIGINAL: Katolisa
Написать функцию Procent, которая возвращает процент от числа, полученного в качестве аргумента:
…
? так ли ? надо ли ещё что-то?
А как ты думаешь? :)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 15:56:17.646666
|
|
|
Shurik_88
Сообщений: 823
Оценки: 0
Присоединился: 2007-05-18 17:20:05.446666
|
quote:
function procent(p:real):real;
begin
procent:=p/100;
end;
Если функция должна возвращать 1% от аргумента, то верно.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 16:01:41.490000
|
|
|
Katolisa
Сообщений: 26
Оценки: 0
Присоединился: 2009-12-21 13:52:54.603333
|
да, нужно вернуть 1 %……спасибо =)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 16:03:49.616666
|
|
|
ydzero
Сообщений: 100
Оценки: 0
Присоединился: 2008-11-06 15:38:02.560000
|
quote:
ORIGINAL: Katolisa
Написать функцию Procent, которая возвращает процент от числа, полученного в качестве аргумента:
function procent(p:real):real;
begin
procent:=p/100;
end.? так ли ? надо ли ещё что-то?
Все на листочке что-ли?
В помощь http://pascal.guti.ru/ раздел математические функции.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-01-10 16:16:09.506666
|
|
|
Katolisa
Сообщений: 26
Оценки: 0
Присоединился: 2009-12-21 13:52:54.603333
|
Читала уже……..спс:)
|
|
|
|
|
|
