Mai nộp rồi ạ!! Help mee
1, Viết chương trình sắp xếp 2 số nguyên
2, Tìm số nguyên lớn nhất trong 3 số nguyên
3, Giải phương trình bậc nhất của bx+c=0
4, Viết chương trình kiểm tra 2 số có phải là ước của nhau hay không
Giups em với :((
1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.
2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.
3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?
1.
Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.
2.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.
3.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;
Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.
câu 1 tham khảo cái này nhé
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
Readln;
End.
Viết chương trình tìm nghiệm của phương trình bậc nhất bx+c=0. Với b và c
là 2 số nguyên nhập từ bàn phím.
Ví dụ: Nhập số b: 8
Nhập số c: 4
#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;
}
Viết chương trình tìm nghiệm của phương trình bậc nhất bx+c=0. Với b và c
là 2 số nguyên nhập từ bàn phím.
Ví dụ: Nhập số b: 8
Nhập số c: 4
#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;
}
Viết chương trình tìm nghiệm của phương trình bậc nhất bx+c=0. Với b và c
là 2 số nguyên nhập từ bàn phím.
Ví dụ: Nhập số b: 8
Nhập số c: 4
#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;
}
Viết chương trình con tính tổng, tích, tìm số lớn, số bé trong 2 số nguyên. Gọi thực thi chương trình con ở chương trình chính.
mọi người giúp e để mai e kiểm tra với ạ.
uses crt;
var a,b:integer;
{-------------chuong-trinh-con-tinh-tong---------------------}
function tong(x,y:integer):integer;
begin
tong:=x+y;
end;
{-------------chuong-trinh-con-tinh-tich------------------}
function tich(x,y:integer):integer;
begin
tich:=x*y;
end;
{-----------------chuong-trinh-con-so-lon------------------}
function solon(x,y:integer):integer;
begin
if x>y then solon:=x
else solon:=y;
end;
{-----------------chuong-trinh-con-so-be------------------}
function sobe(x,y:integer):integer;
begin
if x<y then sobe:=x
else sobe:=y;
end;
{--------------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln('Tong la: ',tong(a,b));
writeln('Tich la: ',tich(a,b));
writeln('So lon la: ',solon(a,b));
writeln('So be la: ',sobe(a,b));
readln;
end.
Xác định Input và Output của các bài toán sau:
Vd1: Giải phương trình
ax2 + bx + c = 0
Vd2 Kiểm tra số nguyên dương N có phải là số nguyên tố không?
Vd3 : Cho 3 số a, b, c bất kì. Tìm số lớn nhất trong ba số.
Vd4: Tìm giá trị lớn nhất của 1 dãy số nguyên.
vd 5:Cho dãy A gồm N số nguyên a1, a2, a3, …,aN. Cần sắp xếp các số hạng để dãy A trở thành dãy không giảm
Input:
VD1: ba số a,b,c
VD2: số nguyên dương N
VD3: 3 số a,b,c
VD4: dãy số nguyên
VD5: số nguyên N và dãy a1,a2,...,aN
Output:
VD1: Nghiệm x của phương trình ax2+bx+c=0
VD2: N là số nguyên tố, N không phải số nguyên tố
VD3: Số lớn nhất trong 3 số
VD4: Giá trị lớn nhất của dãy
VD5: Dãy số tăng dần
Câu 1: Viết chương trình nhập từ bàn phím số nguyên n (số đối của n<10^9). Kiểm tra n có phải là số nguyên dương và chia hết cho 5.
Câu 2: Viết chương trình nhập từ bàn phím số nguyên n (số đối của n<10^9). Kiểm tra n có phải là số nguyên dương và chia hết cho 3.
Cau 1:
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
Viết chương trình nhập vào từ bàn phím một mảng các số nguyên tìm số lớn nhất trong mảng các số nguyên đó. 2. Viết chương trình tính tổng của tờ = 1 + 1/2 + 1/3 + 1/4 + ... + 1 /100
1:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
2:
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
1)viết chương trình xuất ra các bội số của B trong phạm vị từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím
2) nhập số nguyên n, viết chương trình xem số n có phải là số nguyên tố không
3)viết chương trình kiểm tra C có phải số hoàn hảo hay không
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt=0;
cin>>n;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=1;
if (kt==0) cout<<"YES";
else cout<<"NO";
}