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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
KR
1
3 tháng 12 2018
program baitap;
uses crt;
var thanhtien:real;
begin
clrscr;
write (' So tien khach da mua la: '); readln (thanhtien);
if thanhtien>=100000 then thanhtien := (70*thanhtien/100)
else thanh tien := (90*thanhtien/100);
writeln (' So tien khach phai tra la: ',thanhtien:4:2);
readln;
end.
NK
22 tháng 11 2021
Tham khảo:
program gia_tri_tuong_ung;
uses crt;
var x,y,z:integer;
begin
clrscr;
write("Nhap x=");readln(x);
write("Nhap y=");readln(y);
writeln('Hai so nguyen truoc khi hoan doi');
writeln('a=',a);
writeln('b=',b);
z:=x;
x:=y;
y:=z;
writeln('Hai so nguyen sau khi hoan doi');
writeln('a=',a);
writeln('b=',b);
readln;
end.
KR
0
6 tháng 8 2023
Học sinh tạo bài trình chiếu giới thiệu một nội dung Tin học.
QT
Quoc Tran Anh Le
Giáo viên
18 tháng 11 2023
Bài trình chiếu giới thiệu bảng tính điện tử:
NT
1
15 tháng 5 2021
vd:
Program chuongtrinhnhapmang;
var n:integer;
begin
write('Nhap n='); readln(n);
end;
Những từ in đậm là từ khóa
in nghiêng là tên chương trình
HT
1
HT
31 tháng 3 2019
var a,Thunhap_TB:real;i:Integer;
begin
thunhap_tb:=0;
for i:=1 to 50 do
begin
write('thu nhap cua gia dinh thu ',i);
readln(a);
thunhap_tb:= thunhap_tb + a
end;
thunhap_tb:= thunhap_tb/50;
for i := 1 to 50 do begin
write('thu nhap cua gia dinh thu',i) ; readln(a);
write('Do lech o voi thu nhap tb la : ', a - thunhap_tb)
end;
end.
KN
15 tháng 3 2021
a)
- Ví dụ 1:
For i:=1 to 10 do s:=s+i;
- Ví dụ 2:
For i:=1 to 5 do writeln('a');
b)
Dạng tiến: FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <câu lệnh>;
Dạng lùi: FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh>;
15 tháng 3 2021
b) Cú pháp:
-Xuôi: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Giải thích:
-Biến đếm: có thể là kiểu số nguyên hoặc kiểu ký tự
-Giá trị đầu, giá trị cuối có thể là số nguyên hoặc ký tự
program Tinh_tien;
uses crt
var a,b:integer;
T:real;
begin
clrscr;
writeln('Nhap don gia:',a);readln(a);
writeln('Nhap so luong:',b);readln(b);
T:=a*b;
if T>=100000 then T:=T*0.7 else T:=T*0.9
writeln('So tien phai tra:',T);
readln
end.
program Tinh_tien;
uses crt
var a,b:integer;
T:real;
begin
clrscr;
writeln('Nhap don gia:',a);readln(a);
writeln('Nhap so luong:',b);readln(b);
T:=a*b;
if T>=100000 then T:=T*0.7 else T:=T*0.9
writeln('So tien phai tra:',T);
readln
end.