Pascal/Turbo Pascal - (SENCILLO) AYUDA PROGRAMAS STRING Y ARRAY

   
Vista:

(SENCILLO) AYUDA PROGRAMAS STRING Y ARRAY

Publicado por Malic (7 intervenciones) el 07/05/2016 16:33:13
Hola porfavor ayuda con estos programas facilitos de STRINGS y ARRAYS porfavor muchisimas gracias:
1)program p1:Tenemos dos Strings (s1 y s2).Determine si s1 se contiene en s2

2)program p2;Tenemos un array de numeros enteros y un nr.entero M.Determine el lugar de los componentes con valor menor que M

3)program p3;Tenemos un array de nr.enteros.Determine el lugar de los componentes con valor menor a la media aritmetica de el numero mayor y menor de todo el array

porfavor ayuda quien sepa se lo gradezco mucho
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

(SENCILLO) AYUDA PROGRAMAS STRING Y ARRAY

Publicado por dario (41 intervenciones) el 08/05/2016 07:13:08
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
{Solucion ejercicio Nro 2}
 
uses crt;
const
    max = 8;
var
    lista:array[1..max] of integer;
    num,i,pos:integer;
begin
    clrscr;
    writeln('Programa que muestra los numeros menores y las posiciones');
    writeln('de un numero dado dentro de un array');
    writeln;
    //llenar array
    for i:=1 to max do
    begin
        write('Elemento # ',i,': ');
        readln(lista[i]);
    end;
 
    //leer un numero
    writeln;
    write('Ingrese un numero: ');
    readln(num);
 
    //mostrar los numero y las posiciones
    //de los numeros menores que "num"
    writeln;
    for i:=1 to max do
    begin
        if lista[i] < num then
            writeln('Numero ',lista[i],' posicion ',i);
    end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

(SENCILLO) AYUDA PROGRAMAS STRING Y ARRAY

Publicado por dario (41 intervenciones) el 08/05/2016 16:39:37
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
{Solucion al ejercicio Nro 3}
 
uses crt;
const
	max = 8;
var
	lista:array[1..max] of integer;
	i,mayor,menor:integer;
	media:real;
begin
	clrscr;
	for i:=1 to max do begin
		write('Elemento # ',i,': ');
		readln(lista[i]);
	end;
	mayor:=0;
	menor:=lista[1];
 
	for i:=1 to max do begin
		if lista[i] > mayor then
			mayor:=lista[i]
		else if lista[i] < menor then
			menor:=lista[i];
	end;
	media:=(mayor+menor)/2;
	writeln;
	writeln('Media = ',media:5:2);
 
	writeln;
	for i:=1 to max do begin
		if lista[i] < media then
			writeln('Numero ',lista[i],' posicion ',i);
	end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

(SENCILLO) AYUDA PROGRAMAS STRING Y ARRAY

Publicado por David (145 intervenciones) el 08/05/2016 22:39:52
Aquí la solución al ejercicio 2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Uses CRT;
 
var
  s1,s2:string;
 
begin
  Writeln('Cadena 1: ');
  readln(s1);
  writeln('cadena 2: ');
  readln(s2);
  if pos(s2,s1) > 0 then
    writeln('La cadena ',s2,' est  contenida en la cadena 1');
  readln;
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar