K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

const fi='vd4.inp';

fo='vd4.out';

var f1,f2:text;

a,b,c,delta:real;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a);

readln(f1,b);

readln(f1,c);

delta:=sqr(b)-4*a*c;

if delta>0 then

begin

writeln(f2,'Nghiem thu nhat cua phuong trinh la: ',((-b)-sqrt(delta))/2*a;

writeln(f2,'Nghiem thu hai cua phuong trinh la: ',((-b)+sqrt(delta))/2*a;

end;

if delta=0 then writeln(f2,'Phuong trinh co nghiem kep la: ',-b/(2*a);

if delta<0 then writeln(f2,'Phuong trinh vo nghiem');

close(f1);

close(f2);

end.

15 tháng 5 2020

Bạn tham khảo câu 2 ở link này nhé Câu hỏi của Lê Tuấn Anh - Tin học lớp 11 | Học trực tuyến

Chương trình dịch là A. Chương trình có chức năng chuyển đổi chương trình được viết bằng ngôn ngữ máy thành ngôn ngữ bậc caoB. Chương trình có chức năng chuyển đổi chương trình được viết bằng ngôn ngữ bậc cao thành chương trình thực hiện được trên máyC. Chương trình dịch ngôn ngữ máy ra ngôn ngữ tự nhiênD. Chương trình dịch ngôn ngữ tự nhiên ra ngôn ngữ máyPascal thuộc...
Đọc tiếp

Chương trình dịch là 

A. Chương trình có chức năng chuyển đổi chương trình được viết bằng ngôn ngữ máy thành ngôn ngữ bậc cao

B. Chương trình có chức năng chuyển đổi chương trình được viết bằng ngôn ngữ bậc cao thành chương trình thực hiện được trên máy

C. Chương trình dịch ngôn ngữ máy ra ngôn ngữ tự nhiên

D. Chương trình dịch ngôn ngữ tự nhiên ra ngôn ngữ máy

Pascal thuộc loại ?

A. Ngôn ngữ máy

B. Hợp ngữ

C. Ngôn ngữ bậc cao

D. A, b, c đều sai

Ngôn ngữ nào phù hợp với đa số người lập trình

A. Hợp ngữ

B. Ngôn ngữ  bậc cao

C. Ngôn ngữ máy

D. Cả a, b, c

Ngôn ngữ máy là:

A. Ngôn ngữ con người dễ hiểu nhất      

B. Ngôn ngữ duy nhất mà máy tính có thể hiểu và thực hiện được

C. Ngôn ngữ nhiều người biết và dễ sử dụng

D. Cả a, b, c đều sai

Hợp ngữ là

A. Ngôn ngữ  trong các lệnh sử dụng một số từ tiếng Anh

B. Ngôn ngữ  máy tính có thể trực tiếp hiểu được

C. Ngôn ngữ  gần với ngôn ngữ tự nhiên, có tính độc lập cao, ít phụ thuộc vào các loại máy cụ thể

D. ngôn ngữ  trong các lệnh sử dụng một số từ tiếng Việt

0
13 tháng 3 2021

Bài 1:

Thuật toán:

B1: Nhập a,b,c

B2: Tính \(\Delta\) = b2-4ac;

B3: Kiểm tra nếu  \(\Delta\) >0 phương trình có 2 nghiệm phân biệt

\(x_1=\dfrac{-b+\sqrt{\Delta}\text{ }}{2a}\)

\(x_2=\dfrac{-b-\sqrt{\Delta}}{2a}\)

B4: Kiểm tra nếu \(\Delta\)<0 thì phương trình vô nghiệm

B5: Kiểm tra nếu \(\Delta\)=0 phương trình có 2 nghiệm kép \(x_1=x_2=-\dfrac{b}{2a}\)

Viết chương trình:

Program HOC24;

var a,b,c: integer;

x1,x2: real;

denta: longint;

begin

write('Nhap a; b; c: '); readln(a,b,c);

denta:=b*b-4*a*c;

if denta>0 then 

begin

write('x1= ',(-b+sqrt(denta))/(2*a):1:2);

write('x2= ',(-b-sqrt(denta))/(2*a):1:2);

end;

if denta<0 then write('Phuong trinh vo nghiem');

if denta=0 then write('x= ',-b/2*a:1:2);

readln

end.

13 tháng 3 2021

Bài 2:

Thuật toán:

B1: Nhập a,b

B2: Kiểm tra nếu a=0 và b=0 thì phương trình có vô số nghiệm

B3: Kiểm tra nếu a=0 thì phương trình vô nghiệm

B4: Kiểm tra nếu a khác 0 thì có nghiệm x=-b/a;

Viết chương trình:

Program HOC24;

var a,b: integer;

x: real;

begin

write('Nhap a; b: '); readln(a,b);

if a=0 and b=0 then write('Phuong trinh co vo so nghiem');

if a=0 then write('Phuong trinh vo nghiem');

if a<>0 then write('x=',-b/a:1:2);

readln

end.

5 tháng 12 2021

tham khao :

https://expressmagazine.net/development/4038/cai-dat-phuong-trinh-bac-hai-bang-chuong-trinh-con-procedure

5 tháng 12 2021

Bài 1: Hãy viết chương trình con thực hiện các công việc sau trên mảng một chiều:

+ Nhập vào 1 mảng

+ In mảng

+ Sắp xếp mảng tăng dần

+ Tính tổng các phần tử trong mảng

+ Đếm các phần tử chia hết cho 3 trong mảng

+ Đếm các số âm, dương trong mảng

Bài 2: Viết chương trình con để tính diện tích các hình sau:

- Diện tích hình tam giác theo công thức herrong khi biết độ dài 3 cạnh a, b, c của tam giác. S=sqrt(p*(p-a)*(p-b)*(p-c)) với p=(a+b+c)/2

- Diện tích hình thang khi biết độ dài chiều cao h và 2 cạnh đáy a, b S=(a+b)*h/2 - Diện tích hình vuông khi biết độ dài cạnh. Bài 10: Viết chương trình giải phương trình bậc 2 sử dụng chương trình con

Bài 1: 

function canbac2(x:longint):real;

begin

canbac2:=sqrt(x);

end;

Bài 2: 

function tong(n:longint):longint;

var s,i:longint;

begin

s:=0;

for i:=1 to n do 

  s:=s+i;

tong:=s;

end;

const fi='dulieu.inp';

fo='kq.inp';

var f1,f2:text;

a,b,c,delta:real;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b,c);

delta:=sqr(b)-4*a*c;

if delta<0 then writeln(f2,'Phuong trinh vo nghiem');

if delta=0 then writeln(f2,'Phuong trinh co nghiem kep la: ',-b/(2*a):4:2);

if delta>0 then 

begin

writeln(f2,'Nghiem thu nhat la: ',(-b+sqrt(delta))/(2*a):4:2);

writeln(f2,'Nghiem thu hai la: ',(-b-sqrt(delta))/(2*a):4:2);

end;

close(f1);

close(f2);

end. 

31 tháng 3 2021

Cảm ơn nha

10 tháng 12 2020

Mk nghĩ B nha

10 tháng 12 2020

B . CS THỂ

3 tháng 12 2021

Help meyeu

#include <bits/stdc++.h>
using namespace std;
double a,b,c,delta,x1,x2;
int main()
{
    //freopen("PTB2.inp","r",stdin);
    //freopen("PTB2.out","w",stdout);
    cin>>a>>b>>c;
    delta=(b*b-4*a*c);
    if (delta<0) cout<<"-1";
    if (delta==0) cout<<fixed<<setprecision(5)<<(-b/(2*a));
    if (delta>0)
    {
        x1=(-b-sqrt(delta))/(2*a);
        x2=(-b+sqrt(delta))/(2*a);
        cout<<fixed<<setprecision(5)<<x1<<" "<<fixed<<setprecision(5)<<x2;
    }
    return 0;
}

 

#include <bits/stdc++.h>

using namespace std;

double b,c;

int main()

{

cin>>b>>c;

if ((b==0) and (c==0)) cout<<"Vo so nghiem";

else if ((b==0) and (c!=0)) cout<<"Vo nghiem";

else cout<<fixed<<setprecision(2)<<-c/b;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

double b,c;

int main()

{

cin>>b>>c;

if ((b==0) and (c==0)) cout<<"Vo so nghiem";

else if ((b==0) and (c!=0)) cout<<"Vo nghiem";

else cout<<fixed<<setprecision(2)<<-c/b;

return 0;

}