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.
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
Program Sara_Trang;
Uses crt;
Var x:integer;
Begin
Write('Nhap vao mot so nguyen : '); Readln(x);
If x MOD 2=0 Then
Writeln('So vua nhap vao la so chan')
Else Writeln('So vua nhap vao la so le');
Readln
End.
1.
var a:integer;
Begin
writeln('nhap a'); readln(a);
if a mod 2=0 then write ('so chan') else write ('so le');
readln
end.
a)
Input: số nguyên x
Output: x là lẻ hay chẵn
b) Thuật toán:
B1: Nhập số nguyên x
B2: Nếu x mod 2 bằng 0 thì in ra là số chẵn và kết thúc
B3: Nếu x mod 2 bằng 1 thì in ra là số lẻ và kết thúc
c)
program hotrotinhoc;
var x: integer;
begin
readln(x);
if x mod 2=0 then write('La so chan');
if x mod 2=1 then write('La so le');
readln
end.
a,
input: số x
output: số chẵn hay lẻ
b,
B1: nhập x
B2: nếu x chia 2 có số dư là 0 thì là số chẵn và ngược lại
B3: kết thúc
c,
program ho_tro;
uses crt;
var x: real;
begin
clrscr;
writeln(' nhap so x:'); readln(x);
if ( x mod 2)=0 then writeln(' la so chan:')
else writeln(' la so le:');
readln;
end.
Bài 1.Nhập vào một số n từ bàn phím (n là số nguyên)
a)Viết thuật toán để kiểm tra n là số chẵn hay số lẻ
b)Viết chương trình Pascal
bài làm:
a, b1 nhập số n
b2 , n mod 2 = 0 thì chuyển xuống b4
b3 n mod 2= 1 thì chuyển xuống b5
b4 n là số chẵn
b5 n là số lẻ
b,
program Chan_le;
uses Crt;
var n: integer;
begin
clrscr;
write(´Nhap n=`);
readln(n);
if n mod 2 = 0 then writeln(´n la so chan`) else
writeln(´n la so le`);
readln;
end.
câu 1
program hinh_chu_nhat;
uses crt;
var a,b,CV,S:real;
begin
writeln('nhap chieu dai va chieu rong hinh chu nhat');
readln(a,b);
CV:=(a+b)*2;
S:=a*b;
writeln('dien tich hinh chu nhat la',S:4:2);
writeln('chu vi hinh chu nhat la',CV:4:2);
readln;
end.
câu 2
program cau_2;
uses crt;
var a,b:real;
begin
writeln('trung binh cong cua a va b la',(a+b)/2:4:2);
readln;
end.
câu 3
program hinh_vuong;
uses crt;
var a,CV,S:real;
begin
writeln('nhap do dai canh hinh vuong');
readln(a);
CV:=a*4;
S:=a*a;
writeln('chu vi hinh vuong la',CV);
writeln('dien tich hinh vuong la',S);
readln;
end.
1:
uses crt;
var n:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>0 then
begin
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
end
else writeln('vui long nhap lai');
readln;
end.
2:
uses crt;
var n:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>0 then writeln(n,' la so duong')
else if n<0 then writeln(n,' la so am')
else writeln(n,' khong la so duong cung khong la so am');
readln;
end.
3:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' la so lon nhat');
if b>a then writeln(b,' la so lon nhat');
if a=b then writeln('khong co so lon nhat');
readln;
end.
4: bạn muốn hỏi bài nào? trang mấy? Với lại trang 52, 53 là bài thực hành số 4 nhé bạn
Khi thực hành trên máy thì mình ghi hết vào phải không ạ ?
Câu 1 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal
1.
Var a , b : integer;
S , P : real;
Begin
write (' a = '); read (a);
write (' b = '); read (b);
P : = (a + b) * 2;
S : = a*b ;
write (' chu vi hinh chu nhat la ', P );
write (' dien tich hinh chu nhat la',S);
Readln;
End.
2.
Var a : integer;
P , S : real;
Begin
write (' a = '); read (a);
P : = a * 4 ;
S : = a*a;
write (' chu vi hinh vuong la ', P );
write (' dien tich hinh vuong la',S);
Readln ;
End .
Còn lại tự làm nha
Chúc bạn học tốt
Bài dễ quá mà ko bt làm sao
var R: real;
begin
write('Nhap ban kinh hinh tron R = '); readln(R);
writeln('Chu vi hinh tron la: ',R*2*Pi);
writeln('Dien tich hinh tron la: ',R*R*Pi);
readln;
end.
1.
a) (1/(b+a))*(a*a+c)=5
b) k*k+(k+1)*(k+1)<>(k+2)*(k+2)
c) 8*x-7>1
d) b*2-4*a*c>=0
2.
Bước 1. Nhập 2 số a và b bất kì.
Bước 2. SUM ß a+b.
Bước 3. Thông báo giá trị của SUM và kết thúc thuật toán.
3.
Bước 1. Nhập N
Bước 2. SUM ß 0; i ß 0.
Bước 3. SUM ß SUM + i.
Bước 4. i ß i + 1.
Bước 5. Nếu i N, thì quay lại bước 3
Bước 6. Thông báo giá trị của SUM và kết thúc thuật toán.
4.
program tinh_dien_tich_tam_giac;
uses crt;
var a,h : interger;
S : real;
begin
clrscr;
write(‘Nhap do dai canh day la: ’);
readln (a);
write(‘Nhap do dai chieu cao la: ’);
readln(h);
S:=(a*h)/2;
writeln(‘Dien tich hinh tam giac la: ’,S:4:1);
readln;
end.
Còn lại tự giải nha 
1a,
program hinhvuong;
uses crt;
var canh: real;
begin
clrscr;
write('nhap canh ='); readln(canh);
writeln('chu vi hinh vuong = ', 4*canh :10:2);
writeln('dien tich hinh vuong = ' ,canh*canh :10:2);
readln;
end.
1b
program chunhat;
uses crt;
var a,b: real;
begin
clrscr;
write('nhap canh a ='); readln(a);
write('nhap canh b ='); readln(b);
writeln('chu vi hinh chu nhat = ' ,(a+b)*2 :10:2);
writeln('dien tich hinh chu nhat =' ,a*b : 10:2);
readln;
end.