Задачи...

← →
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]

← →
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)
В чем проблема?
Заплати более подготовленным товарищам по учебе и дело в шляпе.

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

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

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

← →
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 - преобразует букву с указанным номером на большую и сохраняет текст в файл.
В качестве текстового файла использовал блокнот
Если вспомнишь как строчные буквы преобразовать в прописные то будет легче, иначе необходимо описывать каждую букву.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
RichEdit1: TRichEdit;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

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

{$R *.dfm}

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

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

procedure TForm1.Button2Click(Sender: TObject);
begin

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);
end;

end.

← →
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) Условия задачи следует давать точно и без ошибок

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

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

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

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

← →
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]

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

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

Кулюкин Олег © (11.12.02 09:19)

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

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

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

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

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

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

← →
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 A.S.

← →
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 A.S.

Задачи... Найти похожие ветки