VCT gpt ax^2 + bx + c = 0 (a,b,c nhập từ bàn phím)
Bài 1: VCT kiểm tra 1 số nguyên nhập từ bàn phím có phải số nguyên tố không?
Bài 2: VCT tìm ước chung lớn nhất của 2 số nguyên a, b được nhập từ bàn phím?
1 không
2
Program UCLN;
uses crt;
var a,b : integer;
begin
write ('nhap so a la ');readln (a);
write ('nhap so b la ');readln (b);
while a < > b do
if a >b then a := a - b else b := b - a ;
write ( ' UCLN la :' , a );
readln
end.
1:
#include <bits/stdc++.h>
using namespace std;
int n,i;
bool kt;
int main()
{
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true && n>1) cout<<"La so nguyen to";
else cout<<"Khong la so nguyen to";
return 0;
}
VCT nhập 3 số a,b,c từ bàn phím. Tìm số lớn nhất trong 3 số đó
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
write('Nhap c:'); readln(c);
max:=-32000;
if max<a then max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln(max);
readln;
end.
uses crt;
var a,b,c,max:integer;
begin
clrscr;
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln(max);
readln;
end.
Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình
Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình
Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình
( làm giúp em lẹ ạ, mai e phải nộp rồi )
Bài 1:
program in_phan_tu;
uses crt;
var n,i:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:3);
readln;
end.
Bài 2:
program tong_phan_tu;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Bài 3:
program tong_phan_tu_chan;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Viết chương trình nhập tọa độ điểm A(Ax,AY) ,B(Bx,By),C(Cx,Cy) từ bàn phím và kiểm tra xem chúng có tạo thành tam giác không . Ngôn ngữ C
var ax,ay,bx,by,cx,cy,a,b,c : real;
begin
writeln('nhap toa do A', ax,ay);
writeln('nhap toa do B',bx,by);
writeln('nhap toa do C',cx,cy);
c:=sqrt(sqr(ax-bx) + sqr(ay-by));
b:=sqrt(sqr(ax-cx)+sqr(ay-cy));
a:=sqrt(sqr(bx-cx)+sqr(by-cy));
if (a+b>c) and (a+c>b) and (b+c>a) then write('Ba diem A,B,C tao thanh tam giac) else ('Ba dinh A,B,C khong tao thanh tam giac);
readln
end.
Giải thích : Sử dụng tọa độ để tính độ dài AB = c, AC = b, BC=a
Nếu tổng của 2 trong 3 số a,b,c lớn hơn số còn lại thì ta được tam giác, nếu không thì không tạo thành ta giác
#include <bits/stdc++.h>
using namespace std;
double ax,ay,bx,by,cx,cy,a,b,c;
int main()
{
cin>>ax>>ay>>bx>>by>>cx>>cy;
a=sqrt((ax-bx)*(ax-bx)+(ay-by)*(ay-by));
b=sqrt((ax-cx)*(ax-cx)+(ay-cy)*(ay-cy));
c=sqrt((bx-cx)*(bx-cx)+(by-cy)*(by-cy));
if (a+b>c && b+c>a && c+b>a) cout<<"Yes";
else cout<<"No";
return 0;
}
Viết chương trình: Tìm nghiệm x của phương trình ax2 + bx + c = 0 với a, b, c nhập từ bàn phím (các trường hợp 2 nghiệm, nghiệm kép, vô nghiệm)
--------------------------
Mọi người giúp em với ạ, em cảm ơn
import math
a = float(input("Nhập a: "))
b = float(input("Nhập b: "))
c = float(input("Nhập c: "))
d = b**2 - 4*a*c
if d > 0:
x1 = (-b + math.sqrt(d)) / (2*a)
x2 = (-b - math.sqrt(d)) / (2*a)
print("Phương trình có hai nghiệm: x1 =", x1, "và x2 =", x2)
elif d == 0:
x = -b / (2*a)
print("Phương trình có nghiệm kép: x =", x)
else:
print("Phương trình không có nghiệm thực."
VCT đếm các phần tử là số nguyên dương lẻ của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình
Bài 2: VCT tính tích các phần tử là số chẵn của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình
Viết chương trình giải phương trình ax+b=0 với a,b khác 0 được nhập vào từ bàn phím
uses crt;
var a, b: logint;
Begin
write('nhap so a ='); Readln(a);
write('nhap so b ='); readln(b);
If (a = 0 and b = 0)
then write ('pt co nghiem x thuoc R')
else
(C++)
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
double x;
cin >> a >> b;
cout << a << "x+" << b << "=0";
cout << "\n<=> x=" << (double)-b/a << endl;
return 0;
}
Chúc bn học tốt!
Bài đầy đủ hơn của mk (bn có thể tham khảo):
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
double x;
cin >> a >> b;
if(a==0) {
{if(b!=0)
cout << "Phuong trinh vo nghiem" << "\n";}
{if(b==0)
cout << "Phuong trinh co vo so nghiem" << "\n";} }
if (a!=0) {
{ if(b!=0)
{cout << a << "x+" << b << "=0";
cout << "\n<=> x=" << (double)-b/a << "\n";} }
{
if(b==0) {
{
cout << "x=0" << endl;}
}
}
}
return 0;
}
Chúc bn học tốt!
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy n số nguyên từ bàn phím. Sau đó in kết quả ra màn hình Bài 2:VCT tính tổng các phần tử chia hết cho 5 của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình Bài 3: VCT tính tích các phần tử là số chẵn của dãy n nhập từ bàn phím và in kết quả r màn hình (Giúp mik vs ạ)
Bài 1:
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;
write('Co ',d,' so nguyen am chan trong day so');
readln
end.
Bài 2:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];
write(Tong la: ',t);
readln
end.
Bài 3:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=1;
for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];
write('Tich la: ',t);
readln
end.
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy b số nguyên từ bàn phím. Sau in kết dãy số và kết quả r màn hình
Bài 2: VCT tính tổng các phần tử chia hết cho 5 của dãy n sô nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình
(Giúp mik vs ạ)
Để viết chương trình giải phương trình bậc hai có dạng: ax2 + bx + c=0 (a#0), em cần phải thực hiện lệnh nhập vào từ bàn phím các biến nào sau đây:
A. readln(a, b, c, x1, x2);
B. readln(a, b, c);
C. readln(x1, x2);
D. readln(a, b, c, x);