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]

¡Gente, ayuda, deduce!
En general, las tareas deben resolverse en Pascal. Resolví casi todo, solo quedan 4 tareas =)
quien no es difícil de ayudar

1)
Es necesario crear los archivos de texto con anticipación en el editor PASCAL (u otro) y realizar las acciones requeridas con ellos.

Dan texto Conviértalo, reemplazando todas las letras pequeñas con las mismas letras grandes.

2)
Dada una secuencia de caracteres no vacía. Se requiere construir e imprimir dos conjuntos, cuyos elementos se encuentran en secuencia. Al ingresar desde el teclado, verifique si las letras de "A" a "Z" y los números de "0" a "5" son válidos

3)
(repita las partes del programa en forma de procedimiento o función. Implemente todas las formas posibles de formalizar parámetros: valores, variables, constantes, procedimiento de parámetros, función de parámetros)
Se dan los números reales x1, y1, x2, y2, ... x10, y10. Encuentre el parámetro de decágono cuyos vértices tienen las coordenadas (x1, y1), (x2, y2), ... (x10, y10), respectivamente. Defina la función de calcular la distancia entre dos puntos dada por sus coordenadas)

4) Escriba un programa que implemente información en un registro y cree un archivo de 10 registros.

Información sobre la cantidad de productos recolectados por los ensambladores del taller por semana. Cada registro contiene campos: el nombre del recolector, el número de productos recolectados por él diariamente durante la semana de seis días, es decir. por separado, los lunes, martes, etc.



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

Creo que no es por nada que son expulsados.



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

Intenta pensar un poco



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

Me pareció que las preguntas estaban siendo escritas aquí para que pudieran tratar de responderlas, y no para entretener a aquellos que saben la respuesta, pero están en silencio (soy yo TTcustomMaster "y Snap" y). Contestaré la primera pregunta (dado el conocimiento no demasiado profundo del interlocutor, no tendré tiempo para responder todas las preguntas hasta la mañana). Entonces, si entendí correctamente las condiciones de la tarea # 1, entonces se nos da un archivo de texto en el que las letras deben hacerse grandes. Esto es MUY simple: para todas las líneas de un archivo ANSIUPPERCASE(s:string) Esta función devuelve una cadena convertida a mayúsculas. Se supone que Croove_ sabe cómo abrir un archivo, leer una línea, etc.



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

A



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

pavel_ak © (01.12.02/21/18 3:XNUMX p.m.) es necesario conocer tales preguntas a los XNUMX meses del primer año del departamento de sistemas de control automatizado, Sapr. para otros, listos para dar alivio.

Me temo que no responderán. : - ((, esto es simpatía por el autor. despídase de la beca.

PD: no hay una función ANSIUPPERCASE en pascal, UpCase es máximo, me temo que será un error durante mucho tiempo. Aunque hay muchos pascales, aprendí turbo-paskal, y ahora puede estar en FreePascal.



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

pavlenok

> ANSIUPPERCASE (s: cadena)

¿Pascal realmente existe?



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

Necesita un turbopascal, bueno, ayuda ...
Estudio in absentia en techie + en la escuela + cursos + Iré a la universidad en verano, pero aquí el techie puede ser útil, antes del verano debes terminar este *****, pero no nos explican nada =)
Vobschem ayuda quién sabe y puede




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

2 Groove_ © (02.12.02/11/54 XNUMX:XNUMX)
¿Cuál es el problema?
Pague a compañeros más capacitados y la cosa está en el sombrero.

PD: ¿Cómo vas a estudiar en la universidad?



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

para calmar
Te aseguro que no puedo estudiar como dijiste.
Y a expensas de preparados ... no los tenemos =))



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

Toma el libro sobre Pascal. Estos son ejemplos de la categoría de libros. Aunque siento pena por ti, pero si ya haces esto por ti, ¡morirás como estudiante! (Tachar lo necesario)



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

2 Groove_ © (02.12.02/15/12 XNUMX:XNUMX)

> Te aseguro que, como dijiste, no puedo.

Por qué Oh bueno ...

Otra opción: ir a cualquier oficina donde programen y pedir que lo hagan. Creo que unas pocas botellas / botellas de cerveza son suficientes.

Si fuera estudiante, probablemente ayudaría, pero no tengo tiempo, lo siento.



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

A expensas de la primera tarea:
¿Cómo reemplazar un carácter (si solo se conoce el número de caracteres en orden) en un archivo de texto (en Turbo-pascal "e) con el mismo tamaño grande?



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

Poner en el formulario 2 Edit-a, 2 Button, RichEdit.
Edit1 - nombre del archivo
Edit2: el número de la letra que se va a cambiar
Botón1: inserta texto RichEdit1 de un archivo de texto
Botón2: convierte la letra con el número especificado en grande y guarda el texto en un archivo.
Utilicé el bloc de notas como archivo de texto
Si recuerda cómo convertir minúsculas a mayúsculas, será más fácil; de lo contrario, debe describir cada letra.



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: archivo de texto;
i, ii, a, iii, aaa: cadena;
aa: entero;
implementación

{$ R * .dfm}

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


reinicio (s);
leer (s, i);
RichEdit1.Text: = i;
Cerrar archivo (s);
fin;

procedimiento TForm1.Button2Click (Sender: TObject);
comenzar

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



si aaa = "a" entonces aaa: = "A";
si aaa = "b" entonces aaa: = "B";
si aaa = "en" entonces aaa: = "en";
...Venta de Casas y Condominios en Calgary. Fernando Aramburu agente inmobiliario
si aaa = "y" entonces aaa: = "y";
si aaa = "I" entonces aaa: = "I";






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


Borrar (s);
reescribir (s);
escribir (s, ii);
Cerrar archivo (s);
fin;

fin.



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

2 abcccc> Algo no es muy similar al código de TurboPascal :))
2 Groove_> Escucha, te ayudaría. No es nada difícil para mí (después de todo, 2 lugar en el área de programación), pero no tengo programación Pascal por 3 años. Por supuesto que buscaré algo, pero no lo prometo. Será mejor que me encuentres. Y las condiciones de la tarea no son muy claras. ¿Pueden enviarme más detallados? 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: Y sigue bromeando :)) Pura turbo-pascal :))

Entonces, tal vez soy realmente tonto, pero ¿por qué no?
línea [número_caracteres]: = chr (línea [número_caracteres] - (97-65));
- Esto es para el alfabeto latino.



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

Naroooood es PASKAL, no asm !!!! ¿Has leído para qué necesita algo?



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

1ra tarea:
Una manera tonta, pero debería funcionar ... tal vez esté mal, lo escribí aquí, no lo comprobé ...

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]

oh sí ... Mostrar mensaje no está en pascal ... reemplazar ShowMessage con WriteLn



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

¡Tendría tales tareas para los Juegos Olímpicos!



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

En el libro de problemas para tontos N. KULTIN tales tareas
en cada página. Mira allí.



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

2DJ_Sedoy2: ¿Pero fue la pregunta sobre la prohibición del uso del ensamblador Pascal incorporado a Borland? En mi opinión, no, entonces la solución es correcta :-)



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

Mientras practicabas ingenio aquí, el campesino expulsó, espero que alguien le haya escrito estas tareas.



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

DarkGreen ©: Lógicamente :)) Hyhy. Pero creo que el maestro no creerá en la independencia de tal solución al problema :)))))) Aunque más tarde en la escuela hace unos 10 años, trabajamos en UK-SC (MC0511, si no me equivoco), tenía tanta hambre de personas allí. Después de la "defensa", huí de ellos por toda la escuela. :))



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

2 Anatoly Podgoretsky ©
Se aceptan cargos, pero:
1) No voy a dar una solución preparada a un problema cuya solución lleva 15 minutos.
2) Las condiciones del problema deben darse con precisión y sin errores.

> Dada una secuencia de caracteres no vacía. Construir requerido
> e imprime dos conjuntos cuyos elementos son
> ocurriendo en secuencia.

Algo que no entendí con qué principio dividir una secuencia de personajes en dos conjuntos.

> Encuentre el parámetro de decágono cuyos vértices tienen respectivamente
> coordenadas

Que n А¿Tamaño de decágono a buscar? ¿O significa una medida?
Lo siento por la dureza.



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


> ¡Gente, ayuda, deduce!


¿Qué tareas realmente se establecen en la universidad / colegio?



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

Sí, tengo un amigo en la Universidad de Bauman, tuvo algo similar ese año, lo ayudé ...



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

Estimado, creo que en este caso es necesario ya sea completamente y sin ayuda de discusión o abstenerse de comentar.



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

Al principio, alguien le dijo: que sea expulsado ...
Si no hay deseo de "hurgar" en las verdades, entonces estudiar en la universidad será una atracción y no traerá ningún beneficio.



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

2 todos> sí, bueno, la gente vive aquí, incluso los mastakama se llaman: ((((((
Estoy de acuerdo con Mikhail V: no hay nada que te rasque la lengua si no vas a ayudar. En mi humilde opinión, "maestro" nunca hablará en vano y noqueará ante aquellos que lo conocen menos. Simplemente ayuda y eso es todo.

PD: Para aquellos que todavía tienen al menos una gota de bondad desinteresada, les informo que ya le he enviado las 4 tareas. No te preocupes por el chico, no lo expulses.



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

> "maestro" nunca hablará en vano y rockeará> aquellos que lo conocen menos. Simplemente ayuda y eso es todo.
...Venta de Casas y Condominios en Calgary. Fernando Aramburu agente inmobiliario
> Ya le envié las 4 tareas.
Es decir, ¿reclamas el título de "el maestro más desinteresado y amable"?

En realidad, esto se llama un "servicio de oso" y "preocuparse por un chico", en mi humilde opinión, nadie iba a hacerlo. ¿Por qué entonces estudia si él mismo no está interesado en este entrenamiento?





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

Exactamente, esta puede ser la forma en que el chico consiguió un trabajo en su trabajo favorito, y ahora tira de la correa hasta la graduación, luego, después de la graduación, irá a trabajar como un trabajo duro.



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

Todo terminó bien.
El niño no será expulsado, no serán llevados al ejército, el país recibirá un especialista más poco capacitado.



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

Por seguro
a tiempo de volar también es algo útil.



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

Kulyukin Oleg © (11.12.02 09: 19)

> El niño no será expulsado, no será llevado al ejército, el país recibirá
> otro especialista pre-entrenado.


Quien se acostumbra a un obsequio y en el trabajo resolverá todos sus problemas a expensas de los demás. Por ejemplo, escriba al foro. Y las buenas personas alrededor dirán que necesitas ayudar desinteresadamente, y si no ayudas, entonces calla.

Al autor:
Entrenamiento, generalmente implica un proceso independiente. Incluido en el desempeño de tareas.







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

2 Igor Shevchenko © (11.12.02 11: 45)
> Quien se acostumbra a un obsequio y en el trabajo resolverá todos sus problemas a expensas de otra persona. Por ejemplo, escriba al foro.
Si lo sera
Y el niño llorará y gritará: "Ahora te diría que estás enojado y codicioso".

> Y las buenas personas alrededor dirán que necesitas ayudar desinteresadamente, y si no lo haces, calla.
(((



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

¿Por qué estás tan molesto ... No nos explican el nicromo y quieren que podamos hacer algo, yo mismo hice algunas tareas solo porque lo estudié en una escuela de informática (en el CPC). Lo que no estudié, no lo entendí = ((. Y la escuela técnica es solo para desarrollo general =), entonces la universidad



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

> Groove_ © (12.12.02 16:22)
> Lo que no estudié, no lo entendí
Es entendible. si no estudias, no lo entenderás. intenta aprender ...

Satanas Nobiscum! 12-Dec-XXXVII COMO



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

Seguro que no te enseñarán aquí :) Lee delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1039441512&n=3 y entenderás todo por ti mismo.
Y el hecho de que, por ejemplo, los abogados se vean obligados a saber matemáticas (por ejemplo) no molesta a nadie. Así como los técnicos aprenden historia. Entonces, ¿los ciudadanos tecnólogos admiten honestamente que nadie descartó ensayos de Internet casi uno a uno? Y después de eso dirás que necesitas estudiar, etc.



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

> MegaVolt © (12.12.02 17: 55)
> los abogados se ven obligados a saber matemáticas (por ejemplo) a nadie le importa.
preocupaciones esos abogados que le enseñan. % -)

Satanas Nobiscum! 12-Dec-XXXVII COMO



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

2MegaVolt ©
Admito honestamente, no descarté. Y luego hubo tensiones con Internet, y de alguna manera no sólidamente. Y necesitas aprender, lamentablemente.



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

© MegaVolt (12.12.02 17: 55)

Y las matemáticas, ella generalmente gobierna. Incluso para abogados.
Entonces, "estudia, hijo, de lo contrario estarás dando llaves toda tu vida".



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

Sucedió que enseñó un poco en las escuelas secundarias (no un perfil físico de matemáticas).
Así que hay "Matemáticas superiores", a menudo difíciles de llamar matemáticas, así que algunas partes. Uno me preguntó: ¿qué estás haciendo en matemáticas ahora? ¿Estás buscando el mayor número? Lamentablemente, no estaba bromeando.



Páginas: 1 2 rama entera

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

arriba





Memoria: 0.72 MB
Tiempo: 0.036 c
3-1746
SergeySubbotin
2002-12-11 16:06
2003.01.02
Trabajar con DataSet


8-1841
Sergey.
2002-09-16 15:35
2003.01.02
¿Cómo instalar la imagen en el escritorio?


3-1756
Opryshok
2002-12-11 14:26
2003.01.02
Cómo trabajar con un conjunto de datos en un conjunto de datos


6-1844
Kalishenko
2002-11-05 13:52
2003.01.02
Trabajo con sockets


1-1837
Maxon
2002-12-20 10:09
2003.01.02
Excel





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 French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano 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