RE: Решение задач на Паскале и Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-01 12:57:41.766666
|
|
|
Zero Freeze
Сообщений: 17
Оценки: 0
Присоединился: 2010-01-13 03:41:56.016666
|
program jdh2;
uses crt;
var m,n,r,t,k:integer;
Begin
writeln('vvedite n');
readln(n);
writeln('vvedite m');
readln(m);
r:=n mod 10;
k:=m mod 10;
t:=k+r;
writeln(t);
readln;
end. вроде сичтает и пох=) подскажи как сделать чтоб если ещо вводишь число конечную цифру прибавляло к этой сумме. типо вначале 106 и 206 он напишет 12(это как у миня) чтоб потом можно было вводить число например 307 и он писал 19, потом 202 и 21 чтоб было, и так до бесконечности чтоб было… можно так?
у меня он просто считает конец 2ух чисел.
паскаль вижу 4ый раз, не хачу в армию, готов видеть чаще=)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-01 13:08:23.223333
|
|
|
Kadead
Сообщений: 108
Оценки: 0
Присоединился: 2007-10-22 23:02:04.916666
|
Zero Freeze, юзай цикл repeat … untilвыход из цикла организовать только не забудь = )))
вот синтаксис:
repeat
<опереторы>
until <условие>;
цикл выполняется до тех пор пока условие не станет истиной = )))
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-01 16:33:50.506666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Без дос эмуляторов под семёрку у тебя ничего не получится. Да и в initgraph, насколько я помню, нужно передать имя драйвера egavga.bgi, а не только путь. Путь можно относительный.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-01 19:36:06.206666
|
|
|
alex_198209
Сообщений: 7
Оценки: 0
Присоединился: 2010-03-29 00:04:28.406666
|
все сделал установил school pak
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-01 20:52:04.830000
|
|
|
alex_198209
Сообщений: 7
Оценки: 0
Присоединился: 2010-03-29 00:04:28.406666
|
program ok;
uses crt, graph;
var gd, gm,x1, y1, x2,x5,x6, y2,x3,x4,y3, x,dx, y, r: integer;
begin
gd:=detect;
initgraph(gd, gm, 'd:\tp7\bgi');
x:=190;
y:=290;
r:=20;
x1:=150;
y1:=270;
x5:=175;
x2:=365;
y2:=240;
x4:=285;
x6:=220;
y3:=210;
x3:=310;
dx:=x+120;
setbkcolor(15);
setcolor(8);
line(x1,y1,x2,y1);
line(x1,y1,x1,y2);
line(x1,y2,x5,y2);
line(x5,y2,x6,y3);
line(x2,y1,x2,y2);
line(x6,y3,x4,y3);
circle(x, y, r);
moveto(dx,y);
circle(dx, y, r);
setcolor(6);
line(x2,y2,x3,y2);
line(x3,y2,x4,y3);
readkey;
closegraph;
end.
как в данном случае окружности залить коричневым, а цвет контура оставить белым?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-01 20:53:16.743333
|
|
|
alex_198209
Сообщений: 7
Оценки: 0
Присоединился: 2010-03-29 00:04:28.406666
|
цвет контура черным, фон экрана белым
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-01 21:41:45.886666
|
|
|
Zero Freeze
Сообщений: 17
Оценки: 0
Присоединился: 2010-01-13 03:41:56.016666
|
угу спасибо тока я через ваил сделал=) ток я не понял зачем див, через мод норм всё, и сдал лабу=)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-02 00:33:05.786666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: alex_198209
цвет контура черным, фон экрана белым
Не надо свой код сюда постить в таких объёмах. Читай мануалы.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-03 21:27:11.883333
|
|
|
SPprog
Сообщений: 149
Оценки: 0
Присоединился: 2009-12-15 18:22:02.753333
|
quote:
ORIGINAL: Zero Freeze
паскаль вижу 4ый раз, не хачу в армию, готов видеть чаще=)
Извините за офф топ. Спрашивается какого хрена ты поступал на программиста ( могу ошибаться, т.к и других он есть) За такое отношение к учебе, рано или поздно отчислят. Таких умников которые не хАтят в армию куча, но в итоге все там и встречаются.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-04 03:25:43.640000
|
|
|
rat_splinter
Сообщений: 40
Оценки: 0
Присоединился: 2007-12-15 02:23:31.840000
|
Подскажите пожалуйста, как в консольном приложении вывести даду и время, попытался сделать вот так-
program Ege;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
WriteLn( FormatDateTime( 'hh:nn:ss' , Now) );
readln;
end .
,но получается что выводится только время запуска программы и всё, а хателось бы чтобы это время отображалось в реальном времени…
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-04 03:50:02.730000
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
rat_splinter, что значит "отображалось в реальном времени"? Чтобы часики рисовались, и секунды тикали, и так до бесконечности?
Надо написать что-то типа:while true; do begin
WriteLn( chr(13), FormatDateTime( 'hh:nn:ss' , Now) );
Sleep (1);
end;Я вот только не знаю, есть ли в паскале sleep, но, я думаю, разберёшся.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-04 03:57:21.940000
|
|
|
rat_splinter
Сообщений: 40
Оценки: 0
Присоединился: 2007-12-15 02:23:31.840000
|
нееее… я имел в виду- чтобы время- находилось всегда на одной стоке, а не появлялась каждый раз на следующей…
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-04 03:59:07.006666
|
|
|
rat_splinter
Сообщений: 40
Оценки: 0
Присоединился: 2007-12-15 02:23:31.840000
|
а sleep- в паскале есть)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-04 05:04:39.086666
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: rat_splinter
нееее… я имел в виду- чтобы время- находилось всегда на одной стоке, а не появлялась каждый раз на следующей…
Да-да. Я ступил. Забыл заменить WriteLn на Write. Смени и будет тебе щщасте.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-04 09:40:59.400000
|
|
|
WebSpayn
Сообщений: 83
Оценки: 0
Присоединился: 2008-09-30 23:29:45.133333
|
Очень нужна ваша помошь. Нужно решить задачку по комбинаторике на паскале для среды делфи : Сколько различных «слов» можно составить из букв слова КУКУШКА так, чтобы буквы У не стояли рядом?
Заранее благодарен!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-04 12:38:57.443333
|
|
|
rat_splinter
Сообщений: 40
Оценки: 0
Присоединился: 2007-12-15 02:23:31.840000
|
Спасибо) теперь всё ок!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-05 12:15:18.500000
|
|
|
Papa James
Сообщений: 438
Оценки: 0
Присоединился: 2009-12-07 13:36:18.370000
|
Посчитай количество возможных слов вообще, и сколько слов может быть с буквами !у! рядом. Комбинаторика, автор Виленкин. Где-то в районе 50-70 стр.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-05 12:19:08.230000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: rgo
Да-да. Я ступил. Забыл заменить WriteLn на Write. Смени и будет тебе щщасте.
Главное, чтобы нолики все прорисовывались, а то хвосты могут оставаться при переходе на следующую минуту / час.
Как вариант, можно так:
Write( #13, " (тута штук 8 - 79 пробелов) ", #13, FormatDateTime( 'hh:nn:ss' , Now) );
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-05 13:56:59.243333
|
|
|
RFL_Insp
Сообщений: 58
Оценки: 0
Присоединился: 2009-12-03 00:05:47.513333
|
Помогите создать несложную программу по вычислении приблежённого значения пи.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-05 16:40:45.626666
|
|
|
WebSpayn
Сообщений: 83
Оценки: 0
Присоединился: 2008-09-30 23:29:45.133333
|
Papa James, мне нужно программный код написать, у меня с этим проблема :(
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-05 17:21:18.823333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: WebSpayn
Papa James, мне нужно программный код написать, у меня с этим проблема :(
Ты пока ещё не привёл никаких фактов того, что ты сам попытался хоть что-то сделать. Нет смысла тебе помогать.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-06 22:12:36.410000
|
|
|
Nice7
Сообщений: 3
Оценки: 0
Присоединился: 2010-03-29 17:34:04.153333
|
помогите решить задачу плз)
Ввести строку, содержащую цифры. Определить является ли она записью шестнадцатеричного числа.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 01:20:40.926666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: Nice7
помогите решить задачу плз)
Ввести строку, содержащую цифры. Определить является ли она записью шестнадцатеричного числа.
Является, всегда.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 11:29:25.183333
|
|
|
Papa James
Сообщений: 438
Оценки: 0
Присоединился: 2009-12-07 13:36:18.370000
|
zz является? фываолдж тоже является? :)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 11:54:46.553333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: Papa James
zz является? фываолдж тоже является? :)
Для тех, кто в танке, или рядом :D
quote:
ORIGINAL: Nice7
Ввести строку, содержащую цифры. Определить является ли она записью шестнадцатеричного числа.
Отсюда вытекает вопрос: zz - цифры? (и т.д.)
А если по теме (и правильно интерпретировать задание) - то нужно создать множество, состоящее из диапазонов '0'..'9' + 'a'..'f' + 'A'..'F' и проверить по очереди каждый символ введённой строки на принадлежность ко множеству. Если хоть один символ не принадлежит множеству - значт ошибка.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 12:23:54.576666
|
|
|
Papa James
Сообщений: 438
Оценки: 0
Присоединился: 2009-12-07 13:36:18.370000
|
А, ну да, в танке сидел %)
Только почему множества букв [a..z]? в 16-системе ведь [a..f]
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 12:51:09.170000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Опечатка
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 16:50:58.866666
|
|
|
PianeR
Сообщений: 2
Оценки: 0
Присоединился: 2010-04-07 16:19:48.143333
|
Добрый день все, есть пару вопросов:
Задача №1.
В общем: Дана матрица с числами, необходимо ее повернуть на 90 градусов. Сама программа состоит из двух стрингридов (1ый - показывает нач. значения, 2ой - необходим для отображения конечного результата). Так вот, не могу повернуть матрицу… вот цикл:
var
i,j,p,k,l,m:Integer;
begin
For p:=1 to 4 do
begin
l:=l+1;
k:=4;
For k:=1 to 4 do
m:=m+1;
end;
a[i,j]:=a[k,p]
stringGrid2.Cells[p,k]:=FloatToStr(a[i,j]);
end; Считывает значения из файла и все..
Задача №2.
прога для вычисления функции разложенной в ряд, не правильно находит число потребовавшихся для обеспечения точности членов ряда. вот код цикла:
begin
x:=StrToFloat(StringGrid1.Cells[0,i+1]);
res:=1;
res1:=1;
res2:=0;
s1:=1;
s:=1;
j:=0;
k:=0;
while abs(res2-res)>=eps do
begin
res2:=res;
s:=(2*j+1)/(2*j+2);
s1:=s1*s;
res1:=power(x,2*j+3)*s1;
res:=res+res1;
j:=j+1;
k:=k+1;
end; Подскажите пожалуйста в чем ошибки?
При необходимости могу скинуть исходники..
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 17:29:07.903333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Возможно, ошибки в первой задаче в том, что ты не представляешь, что ты делаешь. Попробуй каждую строку прокомментировать или нарисовать алгоритм. Сразу станет понятнее. У тебя в первой задаче какие-то непонятные "волшебные числа" и бесполезные циклы.
Во вторую задачу не вникал. Не видно типов твоих переменных + нельзя для чисел с плавающей точкой делать нечёткие сравнения (больше или равно), можно только проверять на больше-меньше. Вполне возможно, что она у тебя неправильно работает из-за погрешностей вычисления типа float.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 19:51:55.903333
|
|
|
Reidor
Сообщений: 6
Оценки: 0
Присоединился: 2010-03-23 18:45:02.406666
|
Решите пожалуста задачу(никак не могу):
Дано натуральное число - удалить каждую вторую его цифру, т.е. ввод 1234 - вывод 13.
var
n,a,b,k : integer;
begin
writeln ('vvedite chislo - ');
readln (n);
b:=0;
repeat
a:=n mod 10;
b:=b+1;
if b mod 2 = 0 then
……..
а дальше не знаю(((
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-07 21:41:02.913333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Хотя-бы компилируемый код напиши ;)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-08 10:06:23.166666
|
|
|
Papa James
Сообщений: 438
Оценки: 0
Присоединился: 2009-12-07 13:36:18.370000
|
По тому алгоритму, что ты сделал, у тебя наоборот будет выводится число
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-08 12:03:38.233333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Reidor:
1. определяешь, сколько цифр в числе.
2. заводишь переменную - счётчик (изначально равный нулю), в которой будешь запоминать номер обрабатываемой цифры
3. С помощью div и mod отсекаешь старшую цифру и, если её номер чётный - то записываешь в новое число
4. Увеличиваешь счётчик на 1 и переходишь к цифре, следующей за старшей.
5. и т.п.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-08 15:26:49.026666
|
|
|
Reidor
Сообщений: 6
Оценки: 0
Присоединился: 2010-03-23 18:45:02.406666
|
var
n,a,b,k,m : integer;
begin
writeln ('vvedite chislo - ');
readln (n);
k:=1;
repeat
k:=k*10
until k>n;
k:=k div 10;
repeat
a:=n div k mod 10;
b:=b+1;
if b mod 2<>0 then
…
допишите пожалуста программу. я не знаю как в новое число нечётные разряды записать/((
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-08 16:59:33.850000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Не надо дублировать сообщения. Никто ничего за тебя тут писать не будет. Выше я тебе написал алгоритм - делай всё по пунктам. Если возникнут вопросы - задавай.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-08 17:31:55.766666
|
|
|
Reidor
Сообщений: 6
Оценки: 0
Присоединился: 2010-03-23 18:45:02.406666
|
Saz спасибо за алгоритм)) решил))
var
n,a,b,k : integer;
begin
writeln ('vvedite chislo - ');
readln (n);
k:=1;
repeat
k:=k*10
until k>n;
k:=k div 10;
b:=0;
repeat
a:=n div k mod 10;
b:=b+1;
if b mod 2<>0 then
write (a);
k:=k div 10
until k=0;
readln;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-08 21:00:03.730000
|
|
|
SPprog
Сообщений: 149
Оценки: 0
Присоединился: 2009-12-15 18:22:02.753333
|
quote:
ORIGINAL: PianeR
В общем: Дана матрица с числами, необходимо ее повернуть на 90 градусов. Сама программа состоит из двух стрингридов (1ый - показывает нач. значения, 2ой - необходим для отображения конечного результата). Так вот, не могу повернуть матрицу… вот цикл:
Я так понимаю это VBA. циклической заменой переменных решается это. Вот код на паскале, думаю на нужный тебе язык перевести не составит труда.
const
n=4;
var i,j,p,k,x:integer;
a:array[1..n,1..n] of integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(15)-10;
write(a[i,j]:4);
end;
writeln;
end;
p := n div 2;
for i:=1 to p do
for k:=i to n-i do
begin
x:=a[i,k];
a[i,k]:=a[n-k+1,i];
a[n-k+1,i]:=a[n-i+1,n-k+1];
a[n-i+1,n-k+1]:=a[k,n-i+1];
a[k,n-i+1]:=x;
end;
Writeln('Поворот матрицы на 90 градусов:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-09 17:12:03.240000
|
|
|
Deelbee
Сообщений: 2
Оценки: 0
Присоединился: 2010-04-09 16:46:09.670000
|
Привет, Господа!
Дело такое: не программист, учусь на заочке финансы и кредит, по информатике задали контрольную по паскалю. Паскаль мы проходили всего пару пар и нам ничего толком не объяснили, все одногрупники двинули за круглые суммы к спецам по контрольным. Некоторые задания решил сам, руководствуясь чистой логикой и тем несчастным списком литературы что нам подкинули, но остались еще две, в которые вообще не врубаюсь:
1. Написать оператор присваивания, в результате которого логическая переменная t получает значение false, если выполняется указанное условие: p делится нацело на q (p и q натуральные числа)
2. Найти ошибки в следующем фрагменте программы:
a:=1; b:=3; h:=0.2;
for x:=a to b do begin writeln(x,ln(x)); x:=x+a end;
Плиз помогите кто чем может, заранее спасибо!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-09 17:13:45.743333
|
|
|
Deelbee
Сообщений: 2
Оценки: 0
Присоединился: 2010-04-09 16:46:09.670000
|
Привет, Господа!
Дело такое: не программист, учусь на заочке финансы и кредит, по информатике задали контрольную по паскалю. Паскаль мы проходили всего пару пар и нам ничего толком не объяснили, все одногрупники двинули за круглые суммы к спецам по контрольным. Некоторые задания решил сам, руководствуясь чистой логикой и тем несчастным списком литературы что нам подкинули, но остались еще две, в которые вообще не врубаюсь:
1. Написать оператор присваивания, в результате которого логическая переменная t получает значение false, если выполняется указанное условие: p делится нацело на q (p и q натуральные числа)
2. Найти ошибки в следующем фрагменте программы:
a:=1; b:=3; h:=0.2;
for x:=a to b do begin writeln(x,ln(x)); x:=x+a end;
Плиз помогите кто чем может, заранее спасибо!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-04-09 17:27:13.070000
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
quote:
1. Написать оператор присваивания, в результате которого логическая переменная t получает значение false, если выполняется указанное условие: p делится нацело на q (p и q натуральные числа)
2. Найти ошибки в следующем фрагменте программы:
a:=1; b:=3; h:=0.2;
for x:=a to b do begin writeln(x,ln(x)); x:=x+a end;
А как связаны твоя задача и этот код? Причем тут цикл? Что значит написать оператор присваивания?
if p mod q=0 then t:=false;
Может я тебя неправильно понял?8|
|
|
|
|
|
|
