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:
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
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
0
