Programas

Escribir un programa en Pascal que calcula el equivalente en grados Fahrenheit o Celsius de las siguientes temperaturas. Temperatura 1 = 32º Fahrenheit Temperatura 2 = 10 º Celsius {Regla de 3: Celsius / 5 = (Fahrenheit – 32) / 9} PROGRAM EJER21; USES CRT; VAR T1,T2:REAL; VAR T1C,T2F:REAL; BEGIN T1:=32; T2:=10; T1C:=T1 - 32; T2F:=T2 + 32; ClrScr; WRITE ('TEMPERATURA EQUIVALENTE: '); WRITE (T1:3:0); WRITE ('º Fahrenheit - '); WRITE (T1C:3:0); WRITELN ('º Celsius'); WRITE ('TEMPERATURA EQUIVALENTE: '); WRITE (T2:3:0); WRITE ('º Celsius - '); WRITE (T2F:3:0); WRITE ('º Fahrenheit'); END.

Escribir un programa en Pascal que calcule el número de horas, minutos y segundos que hay en 3700 segundos. PROGRAM EJER22; USES CRT; VAR horas, minutos, segundos:INTEGER; BEGIN horas:= 3700 div 3600; minutos:= (3700 mod 3600) div 60; segundos:= (3700 mod 3600) - (minutos * 60); ClrScr; WRITELN ('EN 3700 SEGUNDOS HAY: '); WRITE (horas,' hora',' y ',minutos,' minutos ', segundos, ' segundos'); END.

Escribir un programa en Pascal que calcule el capital producido por un capital de 1.000.000 de pesetas, al cabo de un año depositado a un interés del 2%. PROGRAM EJER23; USES CRT;7 VAR capital,tiempo,interes:REAL; VAR capitalproducido:REAL; BEGIN capital:=1000000; tiempo:=1; interes:=2; capitalproducido:= capital * 0.02; ClrScr; WRITE ('En un año se producira un capital de '); WRITE (capitalproducido:5:2); WRITE (' pesetas'); END.

Escribir un programa en Pascal que calcula la siguiente expresión trigonométrica para un valor angular de 90º (sen x * cos x)/(tan x) PROGRAM EJER24B; USES CRT; VAR resultado, resultado2, x:REAL; BEGIN WRITE ('PARA CALCULAR LA EXPRESION: (sin(x) * cos(x)) / tan(x)'); WRITELN (' INTRODUZCA EL VALOR DE X EN RADIANES: '); READLN (x); WRITELN (''); resultado:=(sin(x) * cos(x)) / (sin(x) / cos(x)); WRITE ('El resultado de la expresion (sinx * cosx /tgx) es igual a: '); WRITE (resultado:5:2); END.

Escribir un programa en Pascal que calcule el equivalente en pies de una longitud de 10 metros. 1 metro ------------- 39.27 pulgadas 12 pulgadas -------- 1 pie PROGRAM EJER25; USES CRT; VAR metros,pulgadas,pies:REAL; BEGIN metros:=10; pulgadas:=metros * 39.27; pies:=((1 * metros) * pulgadas) / (12 * metros); ClrScr; WRITE ('El equivalente en pies a una distancia de 10m es de: '); WRITE (pies:3:2); WRITE (' pies'); END.

Escribir un programa en Pascal que calcule el área de un rectángulo a partir de sus coordenadas: x1 = 10 x2 = 20 y1 = 10 y2 = 20 PROGRAM EJER26; USES CRT; VAR lado1,lado2:REAL; VAR area:REAL; BEGIN lado1:=10; lado2:=10; area:= lado1 * lado2; ClrScr; WRITE ('El area del rectangulo es de: '); WRITE (area:5:2); END.

Un coche se mueve, partiendo del reposo, con una aceleración constante de 8 m/s2. Escribir un programa en Pascal que calcule: a) La velocidad instantánea al cabo de5 segundos. b) La velocidad media durante los primeros 5 segundos del recorrido. velocidad instantánea = velocidad inicial + aceleración * tiempo velocidad media = (velocidad inicial + velocidad final)/2 PROGRAM EJER27; USES CRT; VAR velocidad0,aceleracion,tiempo:REAL; VAR velocidad5,velocmedia5:REAL; BEGIN velocidad0:=0; aceleracion:=8; tiempo:=5; velocidad5:=velocidad0 + (aceleracion * tiempo); velocmedia5:= (velocidad0 + velocidad5) / 2; ClrScr; WRITE ('LA VELOCIDAD AL CABO DE 5 s ES DE: '); WRITE (velocidad5:2:0); WRITELN (' m/s'); END.

Un cohete se lanza verticalmente con una velocidad de 500 m/s calcular la velocidad al cabo de 40 segundos mediante un programa en Pascal velocidad instantánea = (velocidad inicial) – (aceleración de la gravedad * tiempo) PROGRAM EJER28; USES CRT; CONST gravedad = 9.81; VAR velocidad0, tiempo, velocidadfinal:REAL; BEGIN velocidad0:=500; tiempo:=40; velocidadfinal:=velocidad0 - (gravedad * 40); ClrScr; WRITE ('La velocidad a los 40 s es de: '); WRITE (velocidadfinal:4:2,' m/s'); END.

Escribir un programa en Pascal que detecte si un número introducido desde le teclado es positivo o negativo. PROGRAM EJER29; USES CRT; VAR num:INTEGER; BEGIN ClrScr; WRITE ('Introduzca un numero entero: '); READLN (num); IF num > 0 THEN WRITE ('El numero es positivo') ELSE IF num < 0 THEN WRITE ('El numero es negativo') ELSE WRITE ('El numero no es positivo ni negativo, es 0'); END.

Escribir un programa en Pascal que detecte si se han introducido en orden creciente tres números introducidos por el usuario. PROGRAM EJER30; USES CRT; VAR num1,num2,num3:INTEGER; BEGIN ClrScr; WRITE ('Introduzca un numero (1) : '); READLN (num1); WRITE ('Introduzca un numero (2) : '); READLN (num2); WRITE ('Introduzca un numero (3) : '); READLN (num3); IF ((num1 < num2) AND (num2 < num3)) THEN WRITE ('Los numeros se han introducido en orden creciente') ELSE WRITE ('Los numeros no se han introducido en orden creciente'); END.

Escribir un programa en Pascal que detecte el carácter introducido por el usuario. PROGRAM EJER31; USES CRT; VAR pato_donald:CHAR; BEGIN ClrScr; WRITE ('Introduzca un caracter alfanumerico: '); READLN (pato_donald); WRITE ('El caracter introducido es -----> ' + pato_donald) END.

Escribir un programa en Pascal que determine si un número leído desde el teclado es par o impar PROGRAM EJER34; USES CRT; VAR num:INTEGER; BEGIN ClrScr; WRITE ('Introduzca un numero entero: '); READLN (num); IF num = 0 THEN WRITE ('El numero introducido no es par ni impar, es 0') ELSE IF ((num mod 2 = 0)) THEN WRITE ('El numero introducido es par') ELSE WRITE ('El numero introducido es impar') END.

Escribir un programa en Pascal que detecte si un número leído desde el teclado es mayor o menor que 100. PROGRAM EJER35; USES CRT; VAR num:INTEGER; BEGIN ClrScr; WRITE ('Escriba un numero entero:'); READLN (num); WRITELN (''); IF num < 100 THEN WRITE ('El numero que ha escrito es menor de 100') ELSE IF num > 100 THEN WRITE ('El numero que ha escrito es mayor de 100') ELSE WRITE ('El numero es 100') END.

Escribir un programa en Pascal que dado un número del 1 a 7 escriba el correspondiente nombre del día de la semana. PROGRAM EJER36; USES CRT; VAR num:INTEGER; BEGIN ClrScr; WRITE ('Escriba un numero para ver con que dia corresponde: '); READLN (num); IF num=1 THEN WRITE ('Lunes'); IF num=2 THEN WRITE ('Martes'); IF num=3 THEN WRITE ('Miercoles'); IF num=4 THEN WRITE ('Jueves'); IF num=5 THEN WRITE ('Viernes'); IF num=6 THEN WRITE ('Sabado'); IF num=7 THEN WRITE ('Domingo'); END.

Escribir un programa en Pascal que lea dos números desde el teclado y si el primero es mayor que el segundo intercambie sus valores. PROGRAM EJER37; USES CRT; VAR num1,num2:INTEGER; BEGIN ClrScr; WRITELN ('Escriba dos numeros: '); READLN (num1); WRITE (''); READLN (num2); WRITELN (''); IF num1 > num2 THEN BEGIN WRITE(num2,' ',num1,'. El primer numero introducido es mayor.'); WRITE(' Se cambia el orden.'); END ELSE BEGIN WRITE(num1,' ',num2,'. El segundo numero introducido es mayor.'); WRITE(' No se cambia el orden.'); END; END.

Escribir un programa en Pascal que una vez leída una hora en formato (horas, minutos, segundos) indique cual será el tiempo dentro de un segundo. PROGRAM EJER40; USES CRT; {Las variables son: horas, minutos y segundos} {Son las horas, minutos y segundos introducidos por el usuario} VAR h, m, s:INTEGER; VAR h2,m2,s2:INTEGER; {Son las horas, minutos y seguntos a los que se les sumara} BEGIN ClrScr; WRITE ('Escriba en formato horas, minutos y segundos'); WRITELN (''); WRITE ('Horas '); READLN (h); WRITE ('Minutos '); READLN (m); WRITE ('Segundos '); READLN (s); WRITELN (''); WRITELN ('Se le sumara un segundo a la hora actual.'); WRITELN (''); s:= s + 1; IF s = 60 THEN s2 := 0 ELSE s2 := s; m:= ((m * 60) + s) div 60; IF m = 60 THEN m2 := 0 ELSE m2 := m; h2:=((h * 60) + m) div 60; IF h2 = 24 THEN h2 := 0; WRITELN (h2,':',m2,':',s2); END.

Escribir un programa en Pascal que realice un bucle con While y muestre en pantalla del 1 al 10. PROGRAM EJER42; USES CRT; VAR x:INTEGER; BEGIN x:=0; ClrScr; WHILE X <= 10 DO BEGIN WRITELN (x); x:=x+1; END; END.

Escribir un programa en Pascal que realice un bucle con Repeat y muestre en pantalla del 1 al 10. PROGRAM EJER43; USES CRT; VAR x:INTEGER; BEGIN x:=0; ClrScr; REPEAT WRITELN (x); x:=x+1; UNTIL x=10; END.

Escribir un programa en Pascal que realice un bucle con For y muestre en pantalla del 1 al 10. PROGRAM EJER44; USES CRT; VAR x:INTEGER; BEGIN ClrScr; FOR x:=0 TO 10 DO WRITELN (x); END.

Escribir un programa en Pascal que visualice en pantalla los números pares entre 1 y 25. PROGRAM EJER45; USES CRT; VAR num:INTEGER; BEGIN num:=2; ClrScr; REPEAT WRITELN (num); num:= num + 2; UNTIL num= 26; END.

Escribir un programa en Pascal que visualice en pantalla los números múltiplos de 5 comprendidos entre 1 y 100. PROGRAM EJER46; USES CRT; VAR num:INTEGER; BEGIN num:= 5; ClrScr; WHILE num <= 100 DO BEGIN WRITELN (num); num:= num + 5; END; END.

Escribir un programa en Pascal que sume los números comprendidos entre 1 y 10. PROGRAM EJER47; USES CRT; VAR num, x:INTEGER; BEGIN ClrScr; num:=1; x:=1; WHILE num <= 10 DO BEGIN WRITELN (x); num:= num + 1; x:= x + num; END; END.

Escribir un programa en Pascal que genere la tabla de multiplicar de un número introducido por el teclado. PROGRAM EJER48; USES CRT; VAR tabla, x, num:INTEGER; BEGIN ClrScr; WRITE ('Introduzca un numero para hacer su tabla de multiplicar: '); READLN (num); WRITELN (''); REPEAT WRITELN (tabla); x:= x + 1; tabla:= num * x; UNTIL x=11; END.

Escribir un programa en Pascal que realice la pregunta ¿Desea continuar S/N? y que no deje de hacerla hasta que el usuario teclee N. PROGRAM EJER49; USES CRT; VAR respuesta:CHAR; BEGIN ClrScr; REPEAT WRITELN ('DESEA CONTINUAR: S/N '); READLN (respuesta); UNTIL respuesta='N'; END.

Escribir un programa en Pascal que calcule cuantos años tarda en duplicarse un capital depositado al 5% de interés anual. PROGRAM EJER50; USES CRT; VAR tiempo:REAL; VAR cap_ini,cap_fin:REAL; CONST interes = 0.05; BEGIN ClrScr; WRITE ('Intruduzca el capital para calcular cuanto tardara '); WRITE ('en duplicarse, con un interes del 5%: '); READLN (cap_ini); WRITELN (''); IF cap_ini < 0 THEN BEGIN WRITE ('No se puede incluir un capital negativo'); EXIT; END; tiempo:=0; cap_fin:= cap_ini; REPEAT cap_fin:=cap_fin + (cap_fin * interes); tiempo:= tiempo + 1; UNTIL cap_fin > (cap_ini * 2); WRITELN ('Tardara',tiempo:3:0,' años en duplicarse'); WRITELN ('Capital final: ',cap_fin:5:2,' pts'); END.

Escribir un programa que calcule la suma de los números hasta un número dado (introducido por el usuario). PROGRAM EJER51; USES CRT; VAR x, y, num:INTEGER; BEGIN ClrScr; WRITE ('Este programa calcula la suma de los numeros hasta uno '); WRITE ('introducido por el usuario: '); READLN (num); WRITELN (''); x:=0; WHILE num >= 0 DO BEGIN WRITELN (x); x:= x + num; num:=num - 1; END; END.

Escribir un programa que pida un número y si el que se introduce por el teclado es menor de 100 que vuelva a solicitarlo. PROGRAM EJER52; USES CRT; VAR num:INTEGER; BEGIN {Este programa no finaliza hasta que se escribe un numero mayor a 100} ClrScr; REPEAT WRITELN ('Introduzca un numero: '); READLN (num); UNTIL num > 100; END.

Escribir un programa en Pascal que calcule el factorial de un número. PROGRAM EJER53; USES CRT; VAR factorial, x, num, y:REAL; BEGIN {Este programa hace el factorial de un numero} ClrScr; WRITE ('Introduzca un numero para hacer su factorial: '); READLN (num); WRITELN (''); x:=1; WHILE num > 1 DO BEGIN x:=x * num; num:=num - 1; WRITELN (x); END; END.

Escribir un programa en Pascal que calcule la media de 5 números introducidos por el teclado. PROGRAM EJER54; USES CRT; VAR n1, n2, n3, n4, n5:REAL; VAR resultado:REAL; BEGIN ClrScr; WRITELN ('Introduzca 5 numeros para hacer su media'); WRITELN (''); WRITE ('Nø 1: '); READLN (n1); WRITE ('Nø 2: '); READLN (n2); WRITE ('Nø 3: '); READLN (n3); WRITE ('Nø 4: '); READLN (n4); WRITE ('Nø 5: '); READLN (n5); WRITELN (''); resultado:= (n1 + n2 + n3 + n4 + n5) / 2; WRITE (resultado:5:2); END.

Escribir un programa en Pascal que calcule el salario neto semanal de un trabajador en función del número de horas trabajadas y la tasa de impuestos de acuerdo a las siguientes hipótesis. · Las primeras 35 horas se pagan a tarifa normal · Las horas que pasen de 35 se pagan 1.5 veces la tarifa normal · Las tasas de impuestos son: a: Los primeros 50 dólares son libres de impuestos b: Los siguientes 40 dólares tienen un 25% de impuestos c: Los restantes de 45% de impuestos PROGRAM EJER55; USES CRT; VAR sns:REAL; {salario neto semanal} VAR h_trabajadas, h_extra:REAL; VAR precio_h, precio_h_extra:REAL; VAR total:REAL; VAR impuestos0,impuestos25,impuestos45:REAL; {Impuestos con cada % correspondiente} BEGIN ClrScr; WRITELN ('INTRODUZCA LOS DATOS PARA CALCULAR EL SALARIO NETO SEMANAL'); WRITELN (''); WRITE ('Las horas trabajadas semanales son 35, las demas debe '); WRITELN ('considerarlas como horas extra. Escriba en dolares.'); WRITELN (''); WRITE ('Horas trabajadas: '); READLN (h_trabajadas); WRITE ('Horas extra: '); READLN (h_extra); WRITE ('Precio por cada hora: '); READLN (precio_h); WRITELN (''); precio_h_extra:=precio_h * 1.5; sns:=(h_trabajadas * precio_h) + (h_extra * precio_h_extra); impuestos0:=0; impuestos25:=sns - ((sns - 50) * 0.25); impuestos45:=sns - ((sns - 90) * 0.45); IF sns <= 50 THEN WRITELN ('El salario neto semanal es: ',sns:5:2) ELSE IF sns < 90 THEN WRITELN ('El salario neto semanal es: ',impuestos25:5:2) ELSE IF sns > 90 THEN WRITELN ('El salario neto semanal es: ',impuestos45:5:2); END.

Escribir un programa en Pascal que detecte si un número es primo o no. Un número es primo si sólo es divisible por sí mismo y por la unidad. Ejemplo: 2,3,4,7,11,17,19 son números primos 9 no es número primo, es divisible por 1, 9, 3 El algoritmo para resolver este problema pasa por dividir sucesivamente el número estudiado por 2,3,4, etc., hasta el propio número. {Se puede hacer únicamente dividiento por 2,3 y 5. El 4 tambien se hace en el ejercicio, no se quita para no liar el ejercicio, ya que son ejercicios para aprender, ya habra tiempo de perfeccionar nuestro codigo} PROGRAM EJER56; USES CRT; VAR num, x:INTEGER; VAR primo:INTEGER; BEGIN ClrScr; WRITELN ('Introduzca un numero para comprobar si es primo.'); WRITELN (''); x:=1; WRITE ('Introduzca el numero: '); READLN (num); WRITELN (''); REPEAT x:= x + 1; primo:= num mod x; WRITELN (primo); UNTIL x = 5; WRITELN (''); WRITELN ('Si ninguno de los resultados es 0, el numero es primo.'); WRITELN ('Si alguno es 0, el numero no es primo.'); END.

Escribir un programa en Pascal que calcule la depreciación de un objeto según el métodode la línea recta. Calcular el número de años que tarda en hacerse 0. En este método el valor original del objeto se divide por su vida (número de años). El cociente resultanteserá la cantidad en la que el objeto se deprecia anualmente. Por ejemplo, si un objeto se deprecia 8000 dólares en diez años, entonces la depreciaciónanual será 8000/10=800 dólares. Por tanto, el valor del objeto habrá disminuido en 800 dólares cada año. Nótese que la depreciación anual es la misma cada año cuando se utiliza este método. PROGRAM EJER57; USES CRT; VAR annos, valor:REAL; VAR depreciacionanno:REAL; VAR x:INTEGER; BEGIN ClrScr; WRITELN ('Escriba los datos para conocer la depreciacion anual'); WRITELN (''); WRITE ('Valor original: '); READLN (valor); WRITE ('Numero de años: '); READLN (annos); WRITELN (''); depreciacionanno:= valor / annos; x:=0; WHILE valor > 0.1 DO BEGIN valor:=valor - depreciacionanno; x:= x + 1; WRITELN ('AÑO ',x:2,': ',valor:8:0,' pts.'); END; END.

Escribir un programa en Pascal que calcule la depreciación de un objeto según el método del balance doblemente declinante. En este método, el valor del objeto disminuye cada año en un porcentaje constante. Por tanto, la verdadera cantidad depreciada, en dólares, variara de un año al siguiente. Para obtener el factor de depreciación, dividimos por dos la vida del objeto. Este factor se multiplica por el valor del objeto al comienzo de cada año (y no el valor del original del objeto) para obtener la depreciación anual. Supongamos, por ejemplo que deseamos depreciar un objeto de 8000 dólares por diez años; el factor de depreciación será 2/10=0.2.Por tanto, la depreciación el primer año será 0,2 X 8000 = 1600 dólares, la depreciación del segundo año será 0,2 X 6400=1280 dólares; la depreciación del tercer año será 0,2 X 5120 = 1024 dólares, y así sucesivamente. PROGRAM EJER58; USES CRT; VAR fdd:REAL; {Factor de depreciacion} VAR vidaobj:REAL; {Vida del objeto = años} VAR depreciacionanno:REAL; VAR valorobj:REAL; {Valor del objeto} VAR x:INTEGER; BEGIN ClrScr; WRITE ('PARA CALCULAR LA DEPRECIACION POR EL METODO DEL BALANCE '); WRITELN ('DOBLEMENTE DECLINANTE ESCRIBA LOS DATOS:'); WRITELN (''); WRITE ('VALOR DEL OBJETO: '); READLN (valorobj); WRITE ('AñOS: '); READLN (vidaobj); WRITELN (''); fdd:= 2 / vidaobj; x:=1; REPEAT depreciacionanno:= fdd * valorobj; valorobj:=valorobj - depreciacionanno; WRITELN ('AñO ',x:2,': ',valorobj:8:2,' pts.'); x:= x + 1; UNTIL x > vidaobj; WRITELN (''); x:= x - 1; WRITELN ('EL VALOR A LOS ',x,' AñOS SERA DE: ', valorobj:6:2,' pts.'); END.

Escribir un programa en Pascal que sume dos cadenas. (los datos vienen en el cuerpo del ejercicio). PROGRAM EJER60; USES CRT; VAR tit_pel1:STRING; VAR tit_pel2:STRING; VAR tit_pel3:STRING; BEGIN tit_pel1:='Alien'; tit_pel2:='Blade '; tit_pel3:='Runner'; ClrScr; WRITELN ('TITULOS DE PELICULAS'); WRITELN (tit_pel1); WRITELN (tit_pel2 + tit_pel3); END.

A partir de las cadenas de caracteres 70809207 y Q, construir y visualizar en la pantalla la cadena 70809207-Q. PROGRAM EJER61; USES CRT; VAR numero:LONGINT; VAR letra:STRING; BEGIN ClrScr; numero:=56789312; letra:='F'; WRITE ('EL NUMERO DEL DNI ES: '); WRITE (numero,'-',+ letra); END.

Transformar la cadena "Esto es una prueba", en la cadena "Esto es prueba". Utilizar la función DELETE(S,P,N) que elimina N caracteres de la cadena S, a partir de la posición P. PROGRAM EJER62; USES CRT; VAR frase:STRING; BEGIN ClrScr; {Transforma la cadena "Esto es una prueba" en "Esto es prueba"} WRITELN ('Este programa suprime un numero determinado de letras'); WRITELN (''); frase:='Esto es una prueba'; WRITELN (frase); DELETE (frase,9,4); WRITELN (frase); END.

Transformar la cadena Curso de Pascal en la cadena Curso de Programación en Pascal. Utilizar la función INSERT(SO,SD,P) que inserta la cadena SO en la cadena SD a partir de la posición P. PROGRAM EJER63; USES CRT; VAR frase1:STRING; VAR frase2:STRING; BEGIN ClrScr; {Este programa inserta la frase2 en la frase1} WRITELN ('Se introducira la frase2 en la frase1'); WRITELN (''); frase1:='Curso de Pascal'; frase2:='Programacion en '; WRITE ('Frase1: '); WRITELN (frase1); WRITE ('Frase2: '); WRITELN (frase2); WRITELN (''); insert (frase2,frase1,10); WRITELN (frase1); END.

Transformar los valores 91 y 8631217 almacenados en dos variables de tipo REAL en la cadena 91-8631217. Previamente transformar los dos valores numéricos a variables tipo cadena con la función STR(X,S) que almacena en S, como una cadena alfanumérica, el valor X. PROGRAM EJER64; USES CRT; VAR valor1, valor2:REAL; VAR valor_1, valor_2:STRING; BEGIN ClrScr; valor1:=91; valor2:=5550908; STR(valor1:5:2, valor_1); STR(valor2:10:2, valor_2); WRITELN (valor_1,' - ', + valor_2); END.

Concatenar las cadenas El, hombre, invisible en una sola el hombre invisible. Utilizar la función CONCAT (S1,S2,S3...) que retorna la concatenación de todas las cadenas pasadas como parámetros. PROGRAM EJER65; USES CRT; VAR S1, S2, S3:STRING; VAR cadena_final:STRING; BEGIN ClrScr; S1:='El'; S2:=' hombre'; S3:=' invisible'; cadena_final:=CONCAT(S1,S2,S3); WRITE (cadena_final); END.

Extraer la cadena SOFIA de la cadena FILOSOIA. Utilizar la función COPY(S,P,N), que devuelve una subcadena de S, de N caracteres, el primero de los cuales ocupa la posición P de S. PROGRAM EJER66; USES CRT; VAR S1,S2:STRING; BEGIN ClrScr; S1:='FILOSOFIA'; S1:=COPY (S1,5,5); {'SOFIA'} WRITE (S1); END.