Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Grab";
Archivo actual: 2003.01.02;
Descargar: [xml.tar.bz2];

abajo

Tareas ... Encontrar ramas similares


Groove_   (2002-12-01 11:42) [0]

Люди, помогите, отчисляют!
Вобщем задачи надо решить на паскале. Я почти всё решил, всего 4 задачи осталось =)
кому не трудно помогите

1)
Требуется заранее создать текстовый файл(ы) в редакторе PASCAL (или другом) и выполнить с ним(и) требуемые действия.

Дан текст. Преобразовать его, заменив все малые буквы одноимёнными большими.

2)
Дана непустая последовательность символов. Требуется построить и напечатать два множества, элементами которого являются встречающиеся в последовательности. При вводе с клавиатуры проверитьна допустимость вхождения в данное множество буквы от "А" до "Z" и цифры от "0" до "5"

3)
(повторяющиеся части программы оформить в виде процедуры или функции. Реализовать все возможные способы оформления формальных параметров: значения, переменне, константы, параметр-процедура, параметр-функция)
Даны действительные числа x1, y1, x2, y2, ...x10, y10. Найти параметр десятиугольника, вершины которого имеют соответственно координаты (x1,y1), (x2,y2), ... (x10, y10). Определить функцию вычисления расстояния между двумя точками, заданными своими координатами)

4) Написать программу, осуществляющую ввод информации в запись и создание файла из 10 записей.

Сведения о количестве изделий, собранных сборщиками цеха за неделю. Каждая запись содержит поля: фамилия сборщика, количество изделий, собранных им ежедневно в течение шестидневной недели, т.е. раздельно - в понедельник, вторник и т.д.



TTCustomDelphiMaster   (2002-12-01 13:11) [1]

Думаю не зря отчисляют.



Snap   (2002-12-01 13:20) [2]

Попробуй немного подумать



pavel_ak   (2002-12-01 21:18) [3]

Мне казалось, что сюда вопросы пишут чтобы на них могли попытаться ответить, а не для того чтоб развлечь тех, кто знает ответ, но молчит (это я TTcustomMaster"у и Snap"у). Я же отвечу на первый вопрос (учитывая не слишком глубокие знания спрашивающего, на все вопросы не успею ответить до утра). Итак, если я правильно понял условия задачи #1, то нам дан текстовый файл, в котором буквы надо сделать большими. Ето ОЧЕНЬ просто: для всех строк файла ANSIUPPERCASE(s:string) эта функция возвращает строку преобразованную к верхнему регистру. Предпологается, что Croove_ знает, как открыть файл, считать строку и т.п.



pavel_ak   (2002-12-01 21:20) [4]

A



sniknik   (2002-12-01 22:42) [5]

pavel_ak © (01.12.02 21:18) на такие вопросы положено знать на 3 месяце первого курса кафедры АСУ, Сапр. для других готов дать послабление.

боюсь отвечать не будут. :-((, это сочуствие автору. прощайся со стипендией.

p.s. функции ANSIUPPERCASE в паскале нет, UpCase максимум, боюсь ошибится давно это было. Хотя паскалей тоже много, я учил турбо-paskal, а ныне во FreePascal-е может и есть.



KaPaT   (2002-12-01 22:58) [6]

to pavlenok

> ANSIUPPERCASE(s:string)

Неужели в паскале такое существует?



Groove_   (2002-12-02 11:54) [7]

Нужно в турбо-паскале, ну помогите...
Я заочно учусь в технаре + в школе + курсы + летом поступать в универ буду, а тут технарь может пригодиться, до лета надо закончить эту *****, а нам ничего не объясняют же =)
Вобщем помогите кто знает и может




Calm   (2002-12-02 12:01) [8]

2 Groove_ © (02.12.02 11:54)
¿Cuál es el problema?
Заплати более подготовленным товарищам по учебе и дело в шляпе.

P.S. Как в универе учиться собираешься?



Groove_   (2002-12-02 15:12) [9]

para calmar
Я тебя уверяю, учиться так как ты сказал я не смогу.
А на счёт подготовленных... у нас их нету =))



pasha_golub   (2002-12-02 16:16) [10]

Возмите книгу по Паскалю. Такого рода примеры из разряда книжных. Хотя мне Вас и жаль, но если уже и такое за Вас сделать, то Вы погибнете как ученик/студент! (Нужное зачеркнуть)



Calm   (2002-12-02 16:30) [11]

2 Groove_ © (02.12.02 15:12)

> Я тебя уверяю, учиться так как ты сказал я не смогу.

А почему? Ну да ладно...

Еще один вариант - пойди в любую контору, где программируют и попроси сделать. Думаю нескольких бутылок/баклашек пива хватит.

Был бы студентом - наверное помог бы, но времени совсем нет, извини.



Groove_   (2002-12-02 20:54) [12]

На счёт первой задачи:
Как заменить символ (если известно только номер символа по порядку) в текстовом файле (в Turbo-pascal"е) на одноимённый большой?



abcccc   (2002-12-02 22:19) [13]

Поставишь на форму 2 Edit-a, 2 Button, RichEdit.
Edit1 - имя файла
Edit2 - номер буквы которую надо поменять
Button1 - вставляет RichEdit1 текст из текстового файла
Button2 - преобразует букву с указанным номером на большую и сохраняет текст в файл.
В качестве текстового файла использовал блокнот
Если вспомнишь как строчные буквы преобразовать в прописные то будет легче, иначе необходимо описывать каждую букву.



unidad Unit1;

interfaz.

usos
Windows, Mensajes, Sistemas, Variantes, Clases, Gráficos, Controles, Formularios,
Diálogos, StdCtrls, ComCtrls;

tipo
TForm1 = clase (TForm)
Button1: TButton;
RichEdit1: TRichEdit;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedimiento Button1Click (Sender: TObject);
procedimiento Button2Click (Sender: TObject);
privado
{Declaraciones privadas}
público
{Declaraciones públicas}
fin

var
Form1: TForm1;
s:TextFile;
i,ii,a,iii,aaa:string;
aa:integer;
implementación

{$ R * .dfm}

procedimiento TForm1.Button1Click (Sender: TObject);
comenzar
iii:=Edit1.Text;
AssignFile(s, iii);


reset(s);
read(s,i);
RichEdit1.Text:=i;
CloseFile(s);
fin;

procedimiento TForm1.Button2Click (Sender: TObject);
comenzar

aa:=StrToInt(Edit2.Text);
aaa:=Copy(RichEdit1.Text,aa,1);



if aaa="а" then aaa:="А";
if aaa="б" then aaa:="Б";
if aaa="в" then aaa:="В";
...
if aaa="ю" then aaa:="Ю";
if aaa="я" then aaa:="Я";






RichEdit1.Text:=Copy(RichEdit1.Text,1,aa-1)+aaa+Copy(RichEdit1.Text,aa+1,1000);
ii:=RichEdit1.Text;


Erase(s);
rewrite(s);
write(s,ii);
CloseFile(s);
fin;

fin.



OlDemon   (2002-12-03 06:42) [14]

2 abcccc> Что то не очень похоже на код из TurboPascal :))
2 Groove_> Слушай я бы тебе помог мне это совершенно не сложно (как никак 2 место на области по программированию) но у меня нет Паскаля уже 3 год на дельфях программирую. Я конечно поищу хде нибудь но не обещаю. Лучше ты мне найди. И еще не очень понятные условия задачи. Можешь выслать более подробные? okhlopin@npz.perm.lukoil.com.



DarkGreen   (2002-12-03 08:48) [15]


procedure UpCase866Prim; near; assembler;
asm
CMP AL,"a"
JB @@4
CMP AL,"z"
JA @@2
@@1: SUB AL,20H
JMP @@4
@@2: CMP AL,"а"
JB @@4
CMP AL,"п"
JBE @@1
CMP AL,"р"
JB @@4
CMP AL,"я"
JA @@3
SUB AL,50H
@@3: CMP AL,"ё"
JNE @@4
SUB AL,1H
@@4:
end;

{перевод символа в верхний регистр в кодовой таблице 866}
function UpCase866(Ch: Char): Char; assembler;
asm
XOR AX,AX
MOV AL,&Ch
CALL UpCase866Prim
end;

function StUpcase866(S: String): String;
{перевод строки в верхний регистр в кодовой таблице 866}
var
I : Word;
Temp: String;
begin
Temp := S;
for I := 1 to Byte(Temp[0]) do
Temp[I] := UpCase866(Temp[I]);
StUpcase866 := Temp;
end;
-----------------------------------------------------------
Assign(F, "SomeFile.Txt");
Reset(F);
if IOResult <> 0 then
Halt(0);
Assign(F1, "TempFile.Txt");
Rewrite(F1);
while not Eof(F) do
begin
ReadLn(F, S);
WriteLn(F1, StUpCase866);
end;
Close(F);
Rewrite(F);
Close(F1);
Reset(F1);
while not Eof(F1) do
begin
ReadLn(F1, S);
WriteLn(F, S);
end;
Close(F);
Close(F1);



DJ_Sedoy2   (2002-12-06 21:25) [16]

DarkGreen: И еще издеваешься :)) Чистый турбо-паскаль :))

Итак, может я совсем тупой, но почему бы и не так:
строка[номер_символа]:=chr(строка[номер_символа]-(97-65));
- это для латиницы.



Ich Hasse   (2002-12-06 22:21) [17]

Нароооод это же ПАСКАЛЬ, а не asm!!!! Вы читали на чем ему нужно-то?



krammer   (2002-12-06 22:40) [18]

1-ая задача:
Дебильный способ, но должен работать... может, что и не так, я его здесь написал - не проверял...

const
Down="qwertyuiopasdfghjklzxcvbnmйцукенгшщзхъфывапролджэячсмитьбю";
Up="QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ";
var
F:TextFile;
S,NewS:String;
I,I2:Integer;
begin
AssignFile(F, "нужный файл");
Reset(F);
Readln(F, S);
NewS:="";
For I := 1 to Length(S) do
begin
For I2 := 1 to Length(Up) do
begin
If S[I]=Down[I2] then
begin
NewS:=NewS+Up[I2];
Break;
end;
If I2=Length(Up) then NewS:=NewS+S[I];
end;
end;
ShowMessage(NewS);
end;



krammer   (2002-12-06 22:42) [19]

ах-да... Шоу мессадж нет в паскале... замени ShowMessage на WriteLn



finger   (2002-12-07 02:09) [20]

Мне бы такие задачи на олимпиаду!



yukka   (2002-12-07 02:33) [21]

В задачнике для лохов Н.КУЛЬТИНА такие задачи
на каждой странице.Посмотри там.



DarkGreen   (2002-12-07 10:07) [22]

2DJ_Sedoy2: А разве в вопросе говорилось о запрете использования встроенного в Борланд Паскаль ассемблера? По моему нет, значит решение правильное :-)



Anatoly Podgoretsky   (2002-12-07 10:25) [23]

Пока вы тут в остроумии упражнялись, мужика отчислили, надеюсь кто нибудь кто нибудь написал ему эти задачи.



DJ_Sedoy2   (2002-12-07 11:09) [24]

DarkGreen ©: Логично :)) Хыхы. Но я думаю препод не поверит в самостоятельность такого решения задачи :)))))) Хотя будуче в школе лет эдак 10 назад, мы работали на УК-НЦ (МС0511, если не ошибаюсь), я там тоже так изголялся над людьми. После "защиты" я от них бегал по всей школе. :))



DarkGreen   (2002-12-07 13:49) [25]

2 Anatoly Podgoretsky ©
Обвинения принимаются, но:
1) Давать готовое решение задачи, решение которой занимает 15 минут я не собираюсь.
2) Условия задачи следует давать точно и без ошибок

> Дана непустая последовательность символов. Требуется построить
> и напечатать два множества, элементами которого являются
> встречающиеся в последовательности.

Что-то я не понял по какому принципу разбивать последовательность символов на два множества.

> Найти параметр десятиугольника, вершины которого имеют соответственно
> coordenadas

Какой п Араметр десятиугольника искать? Или здесь имеется ввиду пЕреметр?
Извеняюсь за резкость.



PaRL   (2002-12-07 15:13) [26]


> Люди, помогите, отчисляют!


Что неужто такие задания задают в универе/техникуме???



Cobalt   (2002-12-07 18:36) [27]

Да, у меня знакомый в Бауманском универе - у него было в том году что-то подобное, я ему помогал...



Mikhail V   (2002-12-07 19:22) [28]

Уважаемые, полагаю, в данном случае надлежит либо полностью и без обсуждений помочь, либо воздержаться от комментариев.



aus   (2002-12-08 10:13) [29]

Ему в самом начале кто-то сказал - пусть отчисляют...
Если нет желания "ковыряться" в прописных истинах, то и обучение в универе будет втягость, и пользы не принесет.



OlDemon   (2002-12-11 07:31) [30]

2 all> да-а, ну люди тут обитают, еще мастакама называются :(((((
Согласен с Mikhail V - нечего языками чесать если помогать не собираетесь. ИМХО "мастер" никогда не будет зря болтать и выкобениваться перед теми кто меньше его знает. Он просто поможет и все.

P.S. Для тех у кого еще осталась хоть капля простой бескорыстной доброты сообщаю я уже отослал ему все 4 задачи. Не волнуйтесь за парня - не отчислят.



Наталия   (2002-12-11 08:37) [31]

>"мастер" никогда не будет зря болтать и выкобениваться перед >теми кто меньше его знает. Он просто поможет и все.
...
>я уже отослал ему все 4 задачи.
То есть ты претендуешь на звание "самого бескорыстного и доброго мастера"?

Вообще-то это называется "медвежья услуга" и "волноваться за парня", ИМХО, никто и не собирался. Зачем он тогда учится, если сам в этом обучении не заинтересован?





Anatoly Podgoretsky   (2002-12-11 09:09) [32]

Точно, так может быть парень устроился по любимому делу, а теперь тяни лямку до окончания института, потом по окончанию еще на работу будет ходить как на каторгу.



Кулюкин Олег   (2002-12-11 09:19) [33]

Все кончилось хорошо.
Мальчика не отчислят, не заберут в армию, страна получит еще одного недоученного специалиста.



zavdim   (2002-12-11 09:21) [34]

Por seguro
вовремя вылететь тоже полезная штука.



Игорь Шевченко   (2002-12-11 11:45) [35]

Kulyukin Oleg © (11.12.02 09: 19)

> Мальчика не отчислят, не заберут в армию, страна получит
> еще одного недоученного специалиста.


Который привыкнет к халяве и на работе все свои проблемы будет решать за чужой счет. Например, на форум писать. А добрый народ вокруг будет говорить, что помогать надо бескорыстно, а если не помогать, то молчать.

Al autor:
Обучение, оно вообще предполагает самостоятельный процесс. В том числе и в выполнении заданий.







Кулюкин Олег   (2002-12-11 11:49) [36]

2 Igor Shevchenko © (11.12.02 11: 45)
> Который привыкнет к халяве и на работе все свои проблемы будет решать за чужой счет. Например, на форум писать.
Si lo sera
А мальчик будет плакать и кричать "вот я бы вам сказал, а вы злые и жадные"

> А добрый народ вокруг будет говорить, что помогать надо бескорыстно, а если не помогать, то молчать.
(((



Groove_   (2002-12-12 16:22) [37]

Да вы чё все так завелись... Нам нихрена не обьясняют и хотят чтобы мы что-то умели, я некоторые задачи зделал сам только потому, что я это изучал в компьютерной школе (на УПК). То что не изучал, так и не понял =((. Да и техникум-это просто, для общего развития =), дальше универ



Ketmar   (2002-12-12 17:14) [38]

>Groove_© (12.12.02 16:22)
>То что не изучал, так и не понял
оно и понятно. если не изучать, то и не поймете. попробуйте изучить...

Satanas Nobiscum! 12-Dec-XXXVII COMO



MegaVolt   (2002-12-12 17:55) [39]

Не научат тебя тут это точно :) Почитай delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1039441512&n=3 и всё поймёшь сам.
А то что например юристов заставляют знать математику (это например)ни кого не волнует. А также технарей учить историю. Так что граждане технари признайтесь чесно ни кто не списывал рефераты из инета практически один к одному? А после этого будете говорить что учится нужно и пр....



Ketmar   (2002-12-12 18:07) [40]

> MegaVolt © (12.12.02 17: 55)
>юристов заставляют знать математику (это например)ни кого не волнует.
волнует. тех юристов, которые ее учат. %-)

Satanas Nobiscum! 12-Dec-XXXVII COMO



zavdim   (2002-12-13 06:32) [41]

2MegaVolt ©
Признаюсь честно - не списывал. И с инетом тогда напряги были, да и не солидно как-то. А учить нужно, как это ни прискорбно.



Игорь Шевченко   (2002-12-13 10:09) [42]

© MegaVolt (12.12.02 17: 55)

А математика, она вообще рулез. В том числе и для юристов.
Так что "учись, сынок, а то так и будешь всю жизнь ключи подавать".



zavdim   (2002-12-13 10:46) [43]

Так получилось - что немного преподавал в Вузах(не физ.мат профиля).
Так там "Высшую математику" - зачастую и математикой назвать трудно, - так какие-то огрызки. Один меня спросил: а вы математики, что сейчас делаете - самое большое число ищите? К сожалению, он не шутил.



Páginas: 1 2 rama entera

Foro: "Grab";
Archivo actual: 2003.01.02;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.73 MB
Tiempo: 0.043 c
4-1938
Kamalov
2002-11-16 13:03
2003.01.02
dime la función ...


14-1881
PaRL
2002-12-12 22:29
2003.01.02
Libro


4-1931
Saniok
2002-11-12 12:22
2003.01.02
IE como IWebBrowser


6-1852
romych
2002-11-05 14:10
2003.01.02
Necesito ayuda, consejo.


3-1762
Nikolai V.
2002-12-11 11:34
2003.01.02
MidasLib





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español