RE: Решение задач на Паскале и Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
RE: Решение задач на Паскале и Delphi - 2010-10-20 17:00:09.026666
|
|
|
Klimmer
Сообщений: 7
Оценки: 0
Присоединился: 2010-10-14 04:21:41.076666
|
quote:
ORIGINAL: Alianna
Как объяснить..
quote:
ORIGINAL: _SaZ_
http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx
quote:
ORIGINAL: MotoKiller
Спасибо.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-10-20 18:46:02.093333
|
|
|
NeroNINE
Сообщений: 1
Оценки: 0
Присоединился: 2010-10-20 17:57:32.133333
|
Здравствуйте. Помогите, пожалуйста разобраться с графикой. Объясните, почему при выведении рисунка inya (120, 400, 25, 10);, нужная область прокрашивается неполность, однако, если поменять радиус на четное число, то все впорядке.
program d;
uses graph;
var gd, gm:integer;
procedure inya(x, y, r, c :integer);
var k,rx,ry ,n: integer;
begin
setcolor(c);
circle(x,y,r);
setfillstyle(1, c);
floodfill(x,y,c);
setcolor(0);
circle( x-r div 2, y, r div 4);
circle(x+r div 2, y, r div 4);
ellipse(x-r div 2,y, 0, 180, r div 2, r div 2);
ellipse(x+ r div 2 ,y, 180, 360 , r div 2, r div 2);
setcolor(1);
setfillstyle(1, 0);
floodfill(x, y+ r div 2,0);
floodfill(X+3*R DIV 4, y + 2* r div 4, 0);
floodfill(x+2*r div 4, y+r div 8-1, 0 );
setcolor(c);
circle(x,y,r);
End;
begin
gd:=detect;
initgraph(gd, gm, '');
inya (100,90, 90, 9);
inya (120, 400, 25, 10);
inya( 230,300, 58, 12);
inya(380, 230, 78, 13);
readln;
closegraph;
end.
Заранее, спасибо!
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-10-21 20:40:05.640000
|
|
|
Milagres
Сообщений: 16
Оценки: 0
Присоединился: 2010-09-26 10:42:17.430000
|
Делфи выдает ошибку при запуске программы: First chance exception at $7C812AFB. Exception class EDBEngineError with message 'BLOB has been modified.'. Process Project2.exe (3924)
Буквально на днях все работало. Из-за чего могло случиться и как с этим бороться?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-10-21 20:41:26.406666
|
|
|
Milagres
Сообщений: 16
Оценки: 0
Присоединился: 2010-09-26 10:42:17.430000
|
Делфи выдает ошибку при запуске программы: First chance exception at $7C812AFB. Exception class EDBEngineError with message 'BLOB has been modified.'. Process Project2.exe (3924)
Буквально на днях все работало. Из-за чего могло случиться и как с этим бороться?
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-23 00:30:32.500000
|
|
|
.Law
Сообщений: 191
Оценки: 0
Присоединился: 2010-10-15 02:25:54.703333
|
Ребята у меня такой вопрос,читая выпуск журнала номер 55(июнь месяц) за 2003 год,наткнулся на статью под названием "Delphi:Тест для большого дяди на все 100!".Она у меня вызвала интерес,и прямо по этой статье сконструировал такой же тест,но проблема в том,что уже готовый тест неправильно подсчитывает баллы…всего 2 вопроса и даже за неправильно данный ответ начисляет баллы.У меня просто нет диска к журналу,там говорят исходник есть.Может кто-то выручит исходником или поможет найти ошибку,вот код:
procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
userans,corranswer: string;
begin
if Edit1.Text<>''then
begin
n:=1;i:=1;
totvarans:=DBMemo1.Lines.Count;
totcorrcount:=length(ClientDataSet1correctAnswers.value);
userans:=Edit1.Text;
corranswer:=ClientDataSet1CorrectAnswers.value;
balls:=0;
repeat
if userans=corranswer[n] then
begin
Inc(i);
n:=1;
balls:=balls+(100 div totcorrcount);
end else
begin
if n<>length(corranswer) then InC(n) else
begin
INC(i);
n:=1
end;
end;
Until i>length(userans);
Totalballs:=totalballs+balls;
Inc(lim);
if lim=limit then
ShowMessage('Âû íàáðàëè '+inttostr((totalballs*100)div(limit*100))+' áàëëîâ èç 100 âîçìîæíûõ!')
else Clientdataset1.Next;
end;
end;
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-25 18:10:06.213333
|
|
|
GaLanDeC
Сообщений: 47
Оценки: 0
Присоединился: 2009-11-30 20:05:42.776666
|
Объяснте плз что за оператор case и как его юзают. Просто дали задачу "Напишите программу- кальулятор (используя оператор case), который умеет выполнять +,-*,/ когда пользователь указывает знак арифметической операции.
Помогите что к чему …я могу прогу через if …then написат …но блин надо case, Объясните что за оператор плз
и не пишите "юзай гугл" и т.д и т.п )
Огромное спасибо, всем кто поможет. плз подскажите в pascal
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-25 19:15:28.036666
|
|
|
ernbrougeln
Сообщений: 2
Оценки: 0
Присоединился: 2010-10-25 19:04:22.780000
|
Здравствуйте! Такого рода проблема: есть 5 задач, которые мне нужно сделать, я сделал 3, 2 осталось (их осилить никак не могу). Задачи по Delphi. Сама работа критично важна, буду бесконечно благодарен за любую оказанную вами помощь..
№1:
Определить массу оконного стекла, дляной 60 см, шириной 40 см и толщиной 3 мм. Пользователь может задать другие линейные размеры в тех же единицах измерения.
№2 (вот эту даже не догадываюсь как решать нужно):
Даны координаты точки на плоскости. Определить, какому квадранту она принадлежит.
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-25 20:08:44.223333
|
|
|
sbk
Сообщений: 144
Оценки: 0
Присоединился: 2008-12-20 19:01:57.273333
|
№1:
Сдесь все просто. находите объём (V = a*b*c) и умножаете(или делите, не помню) на ро.
№2:
Наверное имелось ввиду координатные четверти.
И решается задача так:
дана точка A(x, y)
1-ая четверть, если x > 0 и y > 0;
2-ая четверть, если x < 0 и y > 0;
3-ая четверть, если x < 0 и y < 0;
4-ая четверть, если x > 0 и y < 0;
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-25 20:14:17.660000
|
|
|
ernbrougeln
Сообщений: 2
Оценки: 0
Присоединился: 2010-10-25 19:04:22.780000
|
спасибо вам огромное!
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-27 00:55:47.033333
|
|
|
dinatop
Сообщений: 6
Оценки: 0
Присоединился: 2010-05-20 03:51:00.163333
|
Привет)
есть код на делфи 7. куда и с помощью какого проекта его компилировать?
Type StateType = (oD,cD,cU,oU);
Type CommandType = (D,U,c,o,prgend);
Var State : StateType;
Command : CommandType;
…
While true do
Begin
Command := GetNextCommand;
If Command = PRgEND then Break;
Case State of
oD:case Command of
c:State := cD;
else
Application.MessageBox(‘Ошибка’,’’);
Break;
End;
cD: case command of
o: State :=oD;
U: State :=cU;
Else
Application.MessageBox(‘Ошибка’,’’);
Break;
End;
Cu:case Command of
D: State :=cD;
o: State :=oU;
Else
Application.MessageBox(‘Ошибка’,’’);
Break;
End;
oU:case Command of
c : State :=cU;
Else
Application.MessageBox(‘Ошибка’,’’);
Break;
End;
End;
End;
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-27 01:09:15.843333
|
|
|
I.G.O.R.
Сообщений: 72
Оценки: 0
Присоединился: 2009-10-20 15:18:36.626666
|
quote:
dinatop
ну думаю что обычный проект, только удали все формы и пиши в главном юните.
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-27 23:05:03.633333
|
|
|
dinatop
Сообщений: 6
Оценки: 0
Присоединился: 2010-05-20 03:51:00.163333
|
в простой application???
)) или что ?)) не понимаю) помогите глупому студенту)
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-29 14:31:10.103333
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
Всем доброго времени суток. Подскажите, пожалуйста, каким образом в программе можно переопределить компонент MonthCalendar, чтобы можно было выделять цветом определенную дату?Заранее благодарен за ответы :)
|
|
|
|
|
RE: Помогите с практической работой - 2010-10-30 02:29:12.686666
|
|
|
ShabunovS
Сообщений: 1
Оценки: 0
Присоединился: 2010-10-30 02:08:53.980000
|
Задача:Создать текстовый файл F. Переписать в файл G в обратном порядке все строки файла F.
хотя бы алгоритм подскажите.
|
|
|
|
|
Maxint/MinInt - 2010-10-30 17:50:37.580000
|
|
|
orchestr
Сообщений: 4
Оценки: 0
Присоединился: 2010-10-30 17:44:28.223333
|
Пытаюсь сделать интерфейс для программы на Паскале, чтобы она не падала при числах, больших Maxint.
Работаю с отключенной проверкой {$I-}.
Подскажите, как проверить, выходит ли число за границы диапазона?
Ооочень хочу разобраться, подскажите, пожалуйста.
|
|
|
|
|
RE: Maxint/MinInt - 2010-10-30 18:22:25.490000
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: orchestr
Подскажите, как проверить, выходит ли число за границы диапазона?
Никак. Число не может выходить за границу диапазона. Просто в результате выполнения операции может случится переполнение. Но результат, тем не менее попадёт в диапазон. На уровне асма можно отловить переполнение, поскольку процессор выставляет флаг переполнения. На уровне паскаля можно лишь проверить операнды: не приведёт ли операция к переполнению. Типа:if maxint - a > b then
die ('переполнение целого')
else
c := a + b;
|
|
|
|
|
RE: Maxint/MinInt - 2010-10-30 19:27:25.333333
|
|
|
MarSeR
Сообщений: 375
Оценки: 0
Присоединился: 2010-07-13 13:16:33.393333
|
Доброго времени суток. Помогите, пожалуйста, решить пару задач по Turbo Pascal
quote:
1. В каждом из массивов Х и У найти количество элементов по модулю больших сумме положительных элементов. Матрицы произвольные.
2. Для каждого столбца заданной матрицы А определить сумму элементов, лежащих ниже главной диагонали.
Заранее спасибо отклинувшемся.
|
|
|
|
|
RE: Maxint/MinInt - 2010-10-30 19:47:46.910000
|
|
|
orchestr
Сообщений: 4
Оценки: 0
Присоединился: 2010-10-30 17:44:28.223333
|
quote:
ORIGINAL: rgo
Никак. Число не может выходить за границу диапазона. Просто в результате выполнения операции может случится переполнение. Но результат, тем не менее попадёт в диапазон. На уровне асма можно отловить переполнение, поскольку процессор выставляет флаг переполнения. На уровне паскаля можно лишь проверить операнды: не приведёт ли операция к переполнению.
Ок, понял, т.е. пользователь должен вводить число из конкретного диапазона.
Т.е. никак нельзя сделать так, чтобы при отключенном контроле при неверном вводе программа не падала или не вела себя безумно (Вирт ведь не определил в стандарте поведение при выходе входных данных за границу диапазона)?
Просто мне нужно сделать интерфейс, который бы объяснял пользователю, что тот неверно/верно ввел целое число от 2 до MaxInt. Без контроля со стороны паскаль-машины.
|
|
|
|
|
RE: Maxint/MinInt - 2010-10-30 20:12:27.563333
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: orchestr
Т.е. никак нельзя сделать так, чтобы при отключенном контроле при неверном вводе программа не падала или не вела себя безумно
Почему же нельзя. Можно. C-программисты ведь выкручиваются как-то. Собственно я показал как.
quote:
ORIGINAL: orchestr
Просто мне нужно сделать интерфейс, который бы объяснял пользователю, что тот неверно/верно ввел целое число от 2 до MaxInt. Без контроля со стороны паскаль-машины.
Интерфейс – это немного другая тема. Ты получаешь от пользователя строку из цифр, и в процессе перевода этой строки в int, ты можешь получить переполнение. Именно это переполнение и надо отлавливать. При переводе строки в число, переполнение может возникнуть либо при умножении на 10, либо при сложении. Надо просто обе эти операции проводить с предварительными проверками.
|
|
|
|
|
RE: Помогите с практической работой - 2010-11-02 00:51:37.526666
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
Кто может подсказать, почему при попытке получить значение свойства объекта (или записать его туда, без разницы) из dll вылазит ошибка "Access violation at address ……" и как ее устранить?
Кстати, еще актуален мой предыдущий вопрос…
quote:
ORIGINAL: Эллурн
Всем доброго времени суток. Подскажите, пожалуйста, каким образом в программе можно переопределить компонент MonthCalendar, чтобы можно было выделять цветом определенную дату?Заранее благодарен за ответы :)
Но этот приоритетней :)
|
|
|
|
|
RE: Помогите с практической работой - 2010-11-02 00:53:53.436666
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
Да, сдуру забыл привести свой код. Вот он, пожалуйста:
function notesload: integer;
begin
Application.handle:=AHandle;
with datamodule3 do
begin
adoquery1.DataSource:=datasource2;
adoquery1.SQL[1]:='nttitle';
adoquery1.SQL[3]:='notes';
end;
datamodule3.ADOQuery1.SQL[5]:='usrid='+form1.Label1.Caption;
datamodule3.ADOQuery1.Active:=true;
result:=datamodule3.ADOQuery1.RecordCount;
with datamodule3 do
begin
datamodule3.ADOQuery1.active:=false;
adoquery1.SQL[1]:='';
adoquery1.SQL[3]:='';
datamodule3.ADOQuery1.SQL[5]:='';
end;
end;
Ругаться начинает на строчку 6 (как и на все последующие, где проводятся хоть какие-то манипуляции с объектами приложения)
Еще я повстречал где-то совет добавить в описание функции переменную (AHandler: THandler), в тело функции добавить первой строчку Application.handler:=AHandlerА в приложении при вызове функции писать так:
notesload(Application.Handler)
Надеюсь, тут найдутся люди, которые смогут помочь 8|
|
|
|
|
|
RE: Помогите с практической работой - 2010-11-02 20:21:13.160000
|
|
|
impaxel
Сообщений: 1
Оценки: 0
Присоединился: 2010-11-02 20:16:58.823333
|
Помогите пожалуйста решить простую задачку на паскале:
В школьных соревнованиях в беге на 100 метров участвовало N спортсменов. Известно время забега в секундах каждого из них. Составить программу на языке программирования определения номеров трех лучших спортсменов (количество участников N, где N не более 100, и время забега каждого участника вводятся с клавиатуры).
Просто ни разу не работал с Паскалем и не представляю как он работает)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-05 21:40:12.296666
|
|
|
disCoverall
Сообщений: 32
Оценки: 0
Присоединился: 2010-10-31 00:43:50.613333
|
дано натуральное число n. прибавить по 1 к первой и последней цифре числа. пример, 489->5810.(решить с div и mod), пожалуйста
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-05 21:41:39.006666
|
|
|
disCoverall
Сообщений: 32
Оценки: 0
Присоединился: 2010-10-31 00:43:50.613333
|
пусть дана вещественная матрица размером 18*n. найдите значение наибольшего по модулю элемента матрицы и укажите его местоположение в матрице.(в delfi)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-19 11:39:04.233333
|
|
|
arzman
Сообщений: 1
Оценки: 0
Присоединился: 2010-11-19 11:26:50.380000
|
Пожалуйста помогите решить формулу для задания
1. Монеты
Имя входного файла
input.txt
Имя выходного файла
output.txt
Максимальное время работы на одном тесте
1 секунда
Ограничение по памяти
64 Мб
Определите, какое минимальное количество монет должно быть у Васи, чтобы он смог разложить все монеты по N карманам, причем в каждом кармане должно быть различное количество монет.
Формат входных данных
Во входном файле записано одно целое число N (1 ≤ N ≤ 1 000 000 000).
Формат выходных данных
В выходной файл выведите количество монет.
Пример
input.txt
output.txt
3
6
9
45
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-21 18:25:29.760000
|
|
|
SNikolasM
Сообщений: 1
Оценки: 0
Присоединился: 2010-11-21 18:05:07.606666
|
Помогите с задачей. Нужно найти оптимальное распределение ограниченных ресурсов s=250 между
4-мя предприятиями. Динамическое программирование.
код программы:
var
a,b:array[1..100] of integer;
n:byte;
sum:integer;
f:boolean;
x,i,j,k,h,s,m,z:integer;
otvet: string;
begin
n := StrTointDef(Edit3.Text, 0);
if n = 0 then
begin
ShowMessage('Не задано количество шагов');
exit
end;
X := StrToint(Edit5.Text);
with mass do
for i := 1 to n do
for j := 1 to X do
a :=StrTointDef(mass.Cells[i,j], 0);
sum := StrTointDef(Edit4.Text, 0);
if sum = 0 then
begin
ShowMessage('Не задана выделенная прибыль');
exit
end;
otvet := 'Выделенная прибыль распределяется по предприятиям так: ';
For i := N Downto 1 Do
Begin
B[1] := i;
H := 1;
K := Sum - A;
F := False;
Repeat
For J := B[H]-1 Downto 1 Do
Begin
If A[J] <= K Then
Begin
Inc(H);
B[H] := J;
Dec(K, A[J]);
End;
If K = 0 Then
Begin
For M := 1 to H Do otvet := otvet + IntToStr(A[B[M]]) + ' ';
Inc(K, A[B[H]]);
Dec(H);
End;
End;
F := True;
For M := H Downto 2 Do
Begin
If B[M] <> H-M+1 Then
Begin
F := False;
Dec(B[M]);
H := M;
K := Sum;
For Z := 1 to H Do
Dec(K, A[B[Z]]);
Break;
End;
End;
Until F;
End;
Showmessage(otvet);
end;
Не могу распределить прибыль по всему массиву между четырьмя предприятиями.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-23 13:31:48.990000
|
|
|
Skrip
Сообщений: 7
Оценки: 0
Присоединился: 2010-11-14 12:24:48.436666
|
Задача звучит следующим образом:
Написать программу обработки тестов
Для этого нужно из файла ввести матрицу(она может оказаться любого размера поэтому нужно ввести ее динамически) но с этой задачей вроде справился, отсортировать по возрастанию сумм строк и столбцов и выбросить СТОЛБЦЫ с только 0 и только 1 (матрица содержит 1 или 0) и еще отдельно мы храним сумму каждой строки или столбца(в дальнейшем нам нужно для математических вычислений) вот пока стопарнулся на этапе ввода из файла и сортировки помогите плиз вот мои наброски (написано в лазарусе но та де делфя)
вот ссылка на прогу http://www.fayloobmennik.net/212711
project1.lpi
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-23 19:01:38.470000
|
|
|
nonrblGyN4ik
Сообщений: 101
Оценки: 0
Присоединился: 2010-10-09 10:05:55.296666
|
Простите что пишу здесь
Подскажите хороший графический редактор для Pascal пожалуйтса
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-25 16:34:15.396666
|
|
|
Blade221191
Сообщений: 1
Оценки: 0
Присоединился: 2010-11-25 16:25:30.206666
|
помогите написать программу "исключить из файла все компоненты совпадающие с предыдущим"
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-25 20:21:24.210000
|
|
|
Лида12
Сообщений: 1
Оценки: 0
Присоединился: 2010-11-25 20:09:16.746666
|
Помогите решить задачку))очень нужно,а то я ничего не понимаю((
Выполнить обработку элементов квадратной матрицы А,имеющей N строк и N столбцов.Определить сумму элементов,расположенных параллельно главной диагонали(ближайшие к главной)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-26 01:57:00.460000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Условие главной диагонали - i == j, соответственно параллельные будут i == j+i и i + 1 == j. Вот и считай сумму. Только не спрашивай "как".
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-26 23:22:35.346666
|
|
|
sanaan
Сообщений: 1
Оценки: 0
Присоединился: 2010-11-26 23:15:45.386666
|
Всем добрый вечер! Прошу помощь!
Я скопировал бит за битом содержимое флешки с помощью средств API, но как заставить скопированное монтироваться как образ, как привязать к формату img или какому-либо другому?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-27 14:29:14.523333
|
|
|
notherkls
Сообщений: 96
Оценки: 0
Присоединился: 2010-09-04 17:12:42.396666
|
quote:
ORIGINAL: disCoverall
дано натуральное число n. прибавить по 1 к первой и последней цифре числа. пример, 489->5810.(решить с div и mod), пожалуйста
mod 10 - (последняя цифра числа)
а div подбери в зависимости от числа:
n>=10 and n<100 = div 10 (первая цифра в промежутке 10..99)
n>=100 and n<1000 = div 100 (первая цифра в промежутке 100..999)
и тд.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-27 16:39:16.860000
|
|
|
Qdesnick2009
Сообщений: 4
Оценки: 0
Присоединился: 2010-11-27 16:28:51.176666
|
Проблема с реализацией деления числа, записанного в массиве в каждом элементе массива разряд числа, на натуральное число.
https://mail.google.com/mail/?ui=2&ik=a25596f2d9&view=att&th=12c8cd6445b0b645&attid=0.1&disp=inline&realattid=f_gh0ci3v80&zw скриншот с кодом и выводом.
Почему последний вывод неверен?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-27 19:00:44.303333
|
|
|
Qdesnick2009
Сообщений: 4
Оценки: 0
Присоединился: 2010-11-27 16:28:51.176666
|
Предыдущий вопрос снимается, теперь вылетает с exitcode 201, что это такое и как это можно обойти?
вот код программы:
VAR X:array[1..1550] of Word;
i,f,A,B,j:word;
ARCTG:array[1..1600] of Word;
BEGIN
A:=1;
B:=18;
for i:=1 to 1500 do
begin
X:=(A div B);
A:=(A mod B)*10;
end;
For i:=1 to 20 do
if(i mod 2)=1 then
begin
if (i mod 4)=1 then
for j:=1500 downto 1 do
begin
ARCTG[j]:=ARCTG[j]+X[j];
If ARCTG[j]>9 then
begin
ARCTG[j]:=ARCTG[j]-10;
ARCTG[j+1]:=ARCTG[j+1]+1;
end;
end else
for j:=1500 downto 1 do
begin
ARCTG[j]:=ARCTG[j]-X[j];
if ARCTG[j]<0 then
begin
ARCTG[j]:=ARCTG[j]+10;
ARCTG[j-1]:=ARCTG[j-1]-1;
end;
end;
FOR j:=1 to 1500 do
begin
f:=(X[j] mod (B*B*i));
X[j]:=(X[j] div (B*B*i));
X[j+1]:=f*10+X[j+1];
end;
end;
for j:=1 to 1500 do
Write(ARCTG[j]);
READLN
END.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-27 21:28:53.526666
|
|
|
Alex[is]
Сообщений: 36
Оценки: 0
Присоединился: 2010-09-20 23:07:15.693333
|
Если компилятор Free Pascal то это переполнение буфера и этот баг неизлечим(на Viste так стопудово)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-27 22:14:45.350000
|
|
|
Qdesnick2009
Сообщений: 4
Оценки: 0
Присоединился: 2010-11-27 16:28:51.176666
|
у меня Free Pascal, но семёрка..
Если проблема с буфером не излечима, то как быть, в проге мне нужно вывести число ПИ, я воспользовался формулой Гауса, для вычисления arctg пользуюсь формулой Тейлора, пока продвинулся только до того, чтобы поделить число/массив на число, и записать результат в массив…может есть более простой метод вывести число ПИ с точностью 1500 знаков?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-28 08:48:07.720000
|
|
|
hichcog
Сообщений: 1
Оценки: 0
Присоединился: 2010-11-28 08:41:11.046666
|
1)Ввести текст, состоящий не менее чем из 12 слов. Определить наличие вхождений символов «no» в каждом слове текста.
2)Создайте файл f, компоненты которого являются целыми числами. Напишите программу подсчета нечетных и четных компонент файла f и определите, каких из них больше. Результаты запишите в файл.
Помогите пожалуйста разобраться с задачами на паскале, вот мои наброски:
1) program slovo;
var x: string[12];
d,s,i:integer;
begin
writeln('vvedite slovo');
read(x);
d:=length(x);
s:=0;
for i:=1 to d do
if copy(x,i,1)='no'
then s:=s+1;
if s<>0 then writeln ('kolichestvo bykv"no" v slove',x,'ravno',s)
else writeln('slovo ne soderzet bykv "no"');
end.
2) program fail;
var f,g,h:file of integer;
a:integer;
c:char;
begin
assign(f,'c:\downloads\f');
rewrite(f);
assign(g,'c:\downloads\g');
rewrite(g);
assign(h,'c:\downloads\h');
rewrite(h);
writeln('Vvedite v fail F celye chisla, okonchanie vvoda Esc:');
repeat
write('a=');
readln(a);
write(f,a);
c:=readkey;
until c=#27;
reset(f);
writeln('Ishodnyj fail:');
while not eof(f) do
begin
read(f,a);
write(a,' ');
if odd(a)then write(h,a)
else write(g,a);
end;
close(f);
writeln;
reset(g);
writeln('Fail chetnih chisel:');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
close(g);
writeln;
reset(h);
writeln('Fail nechetnih chisel:');
while not eof(h) do
begin
read(h,a);
write(a,' ');
end;
close(h);
readln
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-29 17:52:37.430000
|
|
|
Pirate.NET
Сообщений: 28
Оценки: 0
Присоединился: 2009-11-23 12:31:15.523333
|
Доброго времени суток :) Зарание извеняюсь, но уже два дня парюсь по давольнотаки простому вопросу, но некак не могу сообразить:
дана задача, вывести массив из N чисел (10), заполняется рэндомом, после этого нужно вывести его чередуя чётные и не чётные числа с конца массива пока это возможно, подскажите алгоритм, буду очень благодарен (желательно массив должен использоваться один).
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2010-11-29 20:27:18.380000
|
|
|
RARUI
Сообщений: 6
Оценки: 0
Присоединился: 2010-11-02 08:16:59.620000
|
паскаль.Пожалуйста,ребята!Моей дочке надо срочно решить по Паскаля.
Вот задача:
Составьте программу ,,Угадай!''.Программа ''задумывает'' случайное число в диапазоне от 0 до 99.После каждой попытки играющего угадать число программа выводит на экран одно из сообщений:''Больше'',''Меньше'' или ''Угадано''.На отгадывание при выполнении одного из условий: дан правильный пример ответ либо все попытки исчерпаны.Help!!!!!!!!!!!!!!!если можно сегодня!
|
|
|
|
|
|
