Pascal

TRABAJO DE INFORMÁTICA

Realizar el Diseño de Solución, Pseudocódigo, Diagrama de Flujo, Codificación, Prueba de Escritorio y la CLAVE para resolver los siguientes ejercicios:

Ejercicio 1
Unvendedor de ropa recibe un sueldo base más el 10% de extras por comisiones de sus ventas. El vendedor desea saber cuanto obtendrá por concepto de comisiones por las ventas que realizó en el mes, asícomo el total que recibirá. (sueldo + comisiones).

Diseño de Solución

s: sueldo base
c: comisiones (10% de las ventas)
v: ventas
t: total (sueldo base + comisiones)

Pseudocódigo:
Inicio
Leersueldo (s)
Leer ventas (v)
c ← v*10/100;
t ← s+c;
Mostrar comisión (c), total (t)
Fin

Codificación:

program ventas;
uses crt;
var
s,c,v,t:real;
beginclrscr;
writeln('Ingresar Sueldo Base:');
readln(s);
writeln('Ingresar el valor de las Ventas:');
readln(v);
c:=v*10/100;
t:=s+c;writeln('Comisión: ',c:3:2);
writeln('Total a recibir: ',t:3:2);
readkey;
end.

Prueba de Escritorio:

s | v | c | t |
200 | 100 | 10 | 210 |

Clave:
Obtener el 10 % de lasVentas y aplicar la formula del total a recibir (sueldo + comisiones).

Ejercicio 2:
Obtener el valor equivalente en dólares, pesos colombianos, libras esterlinas y marcos alemanes de una cantidaden sucres ingresada por teclado. Alimente el programa con las cotizaciones actuales.

Diseño de Solución

d: valor en dólares
p: valor en pesos colombianos
l: valor en libras esterlinas
m: valor enmarcos alemanes

Pseudocódigo:

Inicio
Leer dólares (d)
p ← d*1959.43
l ← d/1959.43
m ← d/1.58
Mostrar dólares (d), pesos colombianos (p), libras esterlinas(l), marcos alemanes (m)
Fin

Codificación:

program cambio;
uses crt;
var
d,p,l,m:real;
begin
clrscr;
writeln('Ingresar el valor en Dólares:');
readln(d);...