Programacion

1- ☺Escribir un programa en Pascal que calcule las raíces de una ecuación de 2º grado

PROGRAM EJER18;
USES CRT;
VAR a,b,c:REAL;
VAR x1,x2:REAL;

BEGINa:=6;
b:=6;
c:=1;

x1:= (-b + sqrt(sqr(b) - (4 * a * c))) / 2 * a;
x2:= (-b - sqrt(sqr(b) - (4 * a * c))) / 2 * a;

WRITE ('SOLUCION 1:'); WRITELN (x1);WRITE ('SOLUCION 2:'); WRITE (x2);
END.

PROGRAM EJER18B;
USES CRT;
VAR a,b,c:REAL;
VAR resultado1,resultado2:REAL;

BEGIN

{Calcula ecuaciones desegundo grado}

ClrScr;

WRITE ('ESTE PROGRAMA SIRVE PARA CALCULAR ECUACIONES ');
WRITELN ('DE SEGUNDO GRADO');
WRITELN (' ');
WRITELN ('Introduzca: a, by c: ');
WRITELN (' ');
READLN (a);
READLN (b);
READLN (c);

resultado1:=(-b + sqrt(sqr(b) - 4*a*c)) / (2*a);
resultado2:=(-b - sqrt(sqr(b) -4*a*c)) / (2*a);
WRITELN ('RESULTADO DE LA EXPRESION: ');
WRITE ('VALOR 1: '); WRITELN (resultado1:5:2);
WRITE ('VALOR 2; '); WRITE (resultado2:5:2);
END.

#include<stdio.h>
#include <stdlib.h>

int main()
{
int n,i,rep;
float coef,a;
double pol;
rep=1;
printf("PROGRAMA QUE CALCULA POLINOMIOS DE GRADO N EN A\n\n");
while (rep!=0){
pol=0;printf("Introducir n\n");
scanf("%d", &n);
printf("Introducir a\n");
scanf("%f", &a);
for(i=0;i<=n; i++){
printf("Introduzca el coeficiente de grado %d\n", i);
scanf("%f",&coef);
pol=pol+pow(a,i)*coef;
}
printf("El valor es %lf\n", pol);
printf("Si desea calcular de nuevo, pulse 1, si no, pulse 0\n");
scanf("%d", &rep);

}
return 0;
}
2.- ya c como hacer3.- ya c como hacer
4.- ya c como hacer
5.- ya c como hacer
6.- #include <stdio.h>
int main(){
int col1=1, col2=1,col3=1;
int n;
printf("Escriba el número: ");
scanf("%d",&n);...