Viết chương trình nhập vào 1 số không quá 10.Kiểm tra tính hợp lệ của số vừa nhập.
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Viết chương trình nhập vào 1 dãy gồm N số nguyên(N<=200), sau đó nhập thêm 1 số nguyên m. Kiểm tra xem số nguyên m có thuộc dãy vừa nhập hay không?
#include <bits/stdc++.h>
using namespace std;
long long n,a[1000],m,i;
bool kt;
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cin>>m;
kt=false;
for (i=1; i<=n; i++)
if (a[i]==m) kt=true;
if (kt==true) cout<<"Co";
else cout<<"Khong";
return 0;
}
Program HOC24;
var m,i,n,d: integer;
a: array[1..200] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
write('Nhap M: '); readln(m);
d:=0;
for i:=1 to N do if a[i]=m then d:=d+1;
if d<>0 then (m,' thuoc day vua nhap');
readln
end.
Viết chương trình kiểm tra 3 số a,b,c có là ba cạnh của một tam giác hay ko với a,b,c là số được nhập từ bàn phím
số hợp lệ là số lớn hơn 100 bé hơn 1000.Viết chương trình nhập vào 1 số nguyên từ bàn phím và thông báo số nguyên đó có hợp lệ hay ko?
GIÚP MIK VS Ạ MIK CẦN GẤP
MIK SẮP THI RỒI GIÚP MIK VS
Uses crt;
Var a, b, c:real;
Begin
Readln(a);
Readln(b);
Readln(c);
If (a + b > c) or (a + c > b) or (b + c > a) then writeln('tam giác')
Else writeln('Khong phai tam giac');
Readln
End.
1. Thực hành
Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.
Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.
• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:
• z:=y { gán giá trị số 7 vào biến nhớ z }
• y:=x { gán giá trị số 5 vào biến nhớ y }
• x:=z { gán giá trị số 7 vào biến nhớ x }
Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
X= a + b + c
Y= (a + b)2 / c.
Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
Viết chương trình nhập vào 1 xâu kí tự có lẫn số có 3 chữ số (vd:vev434gvre43) có kiểm tra việt nhập sai, nếu nhập sai cho nhập lại.
kiểm tra số đá có phải số nguyên tố không.
Thuật toán:
B1: Nhập số nguyên n
B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.
B3. Kết thúc
Chương trình:
uses crt;
var n: integer;
begin
write('Nhap so N: '); readln(n);
if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');
end.
Viết chương trình nhập vào 1 dãy số tiếp theo nhập vào 1 số k , hãy kiểm tra k có trong dãy số vừa nhập hay ko?Nếu có thì thông báo vị trí của k, nếu ko thì thông báo k ko có trong dãy số
Viết chương trình nhập vào một số nguyên và kiểm tra xem số vừa nhập là số chẵn hay lẻ. (Sử dụng câu lệnh If … then … else ….)
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
Viết chương trình nhập vào số nguyên B, xuất ra màn hình số nguyên B vừa nhập, kiểm tra xem số nguyên B là số chản hay số lẻ
uses crt;
var b:integer;
begin
clrscr;
readln(b);
writeln(b);
if b mod 2=0 then writeln('la so chan')
else writeln('la so le');
readln;
end.