Viết chương trình in ra màn hình 3 dòng chữ:
- Chào các bạn
- Mình tên là ...
- Mình học lớp ...
Những câu hỏi liên quan
câu 1
Viết - chạy - sửa lỗi ( nếu có ) chương trình in ra trên màn hình dòng chữ " lớp 8A chào bạn ! "
câu 2
Viết chương trình ghi và in ra màn hình kết quả tổng 2 số tự nhận a, b nhập vào từ bàn phím
câu 3
Viết chương trình tính s và chu vi hình chữ nhật biết 2 cạnh nhập từ bàn phím . Lưu tệp với tên HCN . Pas
Câu 3:
program cauba;
int chieudai, chieurong, chuvi, dientich :real;
begin
write('Chieu dai la: '); Readln(chieudai);
write('Chieu rong la: '); Readln(chieurong);
chuvi = (chieudai + chieu rong)*2;
dientich= chieudai*chieurong;
writeln('Chu vi la: ',chuvi);
writeln('Dien tich la: ',dientich);
end.
Đúng 0
Bình luận (0)
Caua1:
program caumot;
begin
writeln('lop 8A chao ban!');
end.
Câu 2:
program cauhai;
int a,b,c :real;
begin
write('a='); readln(a);
write('b='); readln(b);
c= a+b;
write('Tong hai so a b la:',c);
end.
Đúng 0
Bình luận (0)
em hãy viết chương trình in ra phép toán và dòng chữ sau:
12+20=32
chào các bạn mình là học sinh lớp 9
uses crt;
begin
clrscr;
writeln('12+20=',12+20);
writeln('chao cac ban minh la hoc sinh lop 9');
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình in ra màn hình 2 dòng gồm: Họ tên và lớp của em.
tên mình Nguyễn Mai Phương
Lớp 8a4
các bn lm dùm mik vs mik cần gấp
trên pascal ạ
uses crt;
var st1,st2:string;
begin
clrscr;
readln(st1);
readln(st2);
writeln('Ten minh ',st1);
writeln('Lop ',st2);
readln;
end.
Đúng 0
Bình luận (1)
Bài tập: Viết chương trình nhập và in ra màn hình danh sách tên các lớp 9 trong năm học 2021 – 2022
uses crt;
var a:array[1..100]of string;
i,n:integer;
begin
clrscr;
write('nhap so lop='); readln(n);
for i:=1 to n do
begin
write('Nhap ten lop thu ',i,'='); readln(a[i]);
end;
writeln('Danh sach cac lop 9 la: ');
for i:=1 to n do
writeln(a[i]);
readln;
end.
Đúng 1
Bình luận (0)
Sử dụng câu lệnh lặp For...do để viết chương trình nhập tên và hiển thị ra màn hình lời chào cho 20 bạn trong lớp em.
uses crt;
var i:integer;
a:array[1..20]of string;
begin
clrscr;
for i:=1 to 20 do readln(a[i]);
for i:=1 to 20 do
writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);
readln;
end.
Đúng 0
Bình luận (0)
Sử dụng câu lệnh lặp For...do để viết chương trình nhập tên và hiển thị ra màn hình lời chào cho 20 bạn trong lớp em.
Program Hoc24;
var i: byte;
begin
for i:=1 to 20 do
writeln('Chao ban thu ',i);
readln
end.
Đúng 2
Bình luận (2)
Với câu lệnh lặp for i:10 to 20 do Writeln(‘Chào các bạn lớp 8’); kết quả in ra màn hình là gì? A. 11 dòng chữ ‘Chào các bạn lớp 8” B. 10 dòng chữ ‘Chào các bạn lớp 8 ‘ C. 1 hàng gồm 10 chữ ‘Chào các bạn lớp 8’ D. 11 chữ ‘Chào các bạn lớp 8’
Đọc tiếp
Với câu lệnh lặp for i:=10 to 20 do Writeln(‘Chào các bạn lớp 8’); kết quả in ra màn hình là gì? A. 11 dòng chữ ‘Chào các bạn lớp 8” B. 10 dòng chữ ‘Chào các bạn lớp 8 ‘ C. 1 hàng gồm 10 chữ ‘Chào các bạn lớp 8’ D. 11 chữ ‘Chào các bạn lớp 8’
Sử dụng biến mảng viết chương trình nhập điểm học kỳ 1 và học kỳ 2 sau đó in ra màn hình điểm khả năng học của các bạn trong lớp( theo công thức: điểm cả năm=( điểm học kỳ 1+ điểm học kỳ 2 ×2)/3)
Giúp mình nha
uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.
Tham khảo! Làm hơi ngắn
Đúng 1
Bình luận (0)
Viết chương trình nhập điểm các bạn trong lớp.Sau đó in ra màn hình học sinh giỏi,khá,trung bình
Giúp mình với ạ, cần gấp.
Tham khảo
program oken;
uses crt;
var a: array [1..100] of real;
i,n,dy,dtb,dk,dg:integer;
begin
clrscr;
write('Co bao nhieu ban can nhap diem: '); readln(N);
for i:=1 to n do
begin
write('nhap diem ban thu ',i,': ');
readln(a[i]);
if a[i]<5 then
dy:=dy+1
else if a[i]<6.4 then
dtb:=dtb+1
else if a[i]<7.9 then
dk:=dk+1
else
dg:=dg+1;
end;
writeln('So ban hoc yeu: ',dy);
writeln('So ban hoc trung binh: ',dtb);
writeln('So ban hoc kha: ',dk);
writeln('so ban hoc gioi: ',dg);
readln;
end.
Đúng 2
Bình luận (0)
program Phanloai;
uses crt;
Var i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
Begin
clrscr;
write('Nhap so cac ban trong lop, n = '); readln(n);
writeln('Nhap diem:');
For i:=1 to n do Begin write(i,'.'); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
end;
writeln('Ket qua hoc tap:');
writeln(Gioi,' ban hoc gioi');
writeln(Kha,' ban hoc kha');
writeln(Trungbinh,' ban hoc trung binh');
writeln(Kem,' ban hoc kem');
readln
End.
Đúng 0
Bình luận (0)