Pascal/Turbo Pascal - Pasar código de c++ a Pascal

 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 9 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Pasar código de c++ a Pascal

Publicado por Renato (1 intervención) el 21/06/2020 11:43:30
Buenas, necesito urgente pasar este código de c++ a Pascal fc:

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
#include <iostream>
using namespace std;
 
int main(){
 
    int anchura;
    cout<<"Ingresar el ancho del rectangulo (como minimo 2): ";
    cin>>anchura;
 
    int altura;
    cout<<"Ingresar la altura del rectangulo (como minimo 2): ";
    cin>>altura;
 
    if((anchura < 2) || (altura < 2)){
        cout<<"Error, datos incorrectos"<<endl;
    } else {
        for(int i = 1; i <= anchura; i++){
            cout<<"*";
        }
        for(int i = 2; i < altura; i++){
            cout<<"\n*";
            for(int espacios = 2; espacios < anchura; espacios++){
                cout<<" ";
            }
            cout<<"*";
        }
        cout<<""<<endl;
        for(int i = 1; i <= anchura; i++){
            cout<<"*";
        }
    }
}

La sentencia es
Realiza un programa que pinte por pantalla un rectángulo hueco hecho con asteriscos. Se debe pedir al usuario la anchura y la altura. Hay que comprobar que tanto la anchura como la altura sean mayores o iguales que 2, en caso contrario se debe mostrar un mensaje de error.

Disculpen si pido un código, es que necesito para presentar, yo recién he dejado el curso de c++ y mi profesor me ha puesto eso y solo pude hacerlo en c++, en pascal no me sale, gracias
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
sin imagen de perfil
Val: 112
Bronce
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Código traducido y resultados

Publicado por juanba (40 intervenciones) el 23/06/2020 06:21:49
Bueno, parece que nadie se anima con este ejercicio. Y eso que es fácil.

Aquí tienes la traducción de ce_plus_plus a pascalés. Es casi literal.

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
program C_Pas;
 
var i, anchura, altura, espacios: Integer;
 
begin
  Write('Ingresar el ancho del rectangulo (como minimo 2): ');
  Readln(anchura);
  Write('Ingresar la altura del rectangulo (como minimo 2): ');
  Readln(altura);
  if (anchura < 2) or (altura < 2) then
    Writeln('Error, datos incorrectos')
  else begin
    for i := 1 to anchura do
      Write('*');
    for i := 2 to altura-1 do
    begin
      Writeln;
      Write('*');
      for espacios := 2 to anchura - 1 do
        Write(' ');
      Write('*');
    end;
    Writeln;
    for i := 1 to anchura do
      Write('*');
  end;
  Readln;   // Me he permitido añadir este Readln a tu código para que el
            // rectangulo permanezca en pantalla
end.

Y aquí tienes el resultado tanto en Unbuntu:

Captura-de-pantalla-Linux

como en Win10:

Captura-de-pantalla-Win10

Suerte y feliz programacion en C++.
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