Viết chương trình nhập họ tên đầy đủ trong lớp học( không quá 50 người)
VC
Những câu hỏi liên quan
Viết chương trình nhập vào 2 xâu kí tự. Xâu thứ nhất là họ đệm, xâu thứ 2 là tên của 1 người.Đưa ra màn hình tên đầy đủ của người đó.
program ct;
uses crt;
var
s1,s2:string;
begin
clrscr;
write('nhap ho dem: ');
readln(s1);
write('nhap ten: ');
readln(s2);
writeln('ten day du la: ',s1,' ',s2);
readln;
end.
Đúng 2
Bình luận (0)
Sử dụng biến mảng viết chương trình nhập từ bàn phím STT, Họ tên, Điểm trung bình của n học sinh trong lớp (5<n<10). In thông tin được nhập ra màn hình.
uses crt;
var st:array[1..10]of string;
a:array[1..10]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(st[i],a[i]);
for i:=1 to n do
writeln(st[i],' ',a[i]);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập họ và tên của 1 người và xuất ra tên của người đó. Kiểm tra trong tên người đó có chữ cái nào là A hoặc B hay không? Cíu e mn oiwiiiii :<
uses crt;
var st:string;
d,i:integer;
kt:boolean;
begin
clrscr;
readln(st);
writeln('ten cua nguoi do la: ',st);
d:=length(st);
kt:=false;
for i:=1 to d do
if (st[i]='A') or (st[i]='B') then kt:=true;
if (kt=true) then writeln('co')
else writeln('khong');
readln;
end.
Đúng 0
Bình luận (0)
ML
SGK Kết nối tri thức với cuộc sống - Trang 88
17 tháng 7 2023 lúc 15:04
Viết chương trình nhập vào từ bàn phím danh sách tên (không gồm họ và đệm) học sinh cách nhau bởi dấu cách và lưu vào trong một mảng. Giả thiết rằng tên, không gồm khoảng trắng. Sau đó hệ thống kê xem có bao nhiêu tên khác nhau và mỗi tên xuất liện bao nhiêu lần trong danh sách.
ds=list(map(str,input().split()))
c={}
for i in ds:
if i in c:
c[i] =c[i]+1
else:
c[i] = 1
print('số tên khác nhau là',len(c))
print('mỗi tên có số lần xuất hiện là:')
for i in c:
print(i, c[i])
Đúng 0
Bình luận (0)
Hỏi về pascal !!!
Xem chi tiết
Viết chương trình nhập họ tên đầy đủ trong lớp học( không quá 50 người). Hãy sắp xếp họ tên của các học viên theo thứ tự alphabet (nếu tên trùng nhau thì sắp xếp theo tên đệm, nếu tên đệm trùng nhau thì sắp xếp theo tên họ). In ra màn hình danh sách sau khi đã sắp xếp.
uses crt;
type ht=record
ho:string[15];
dem:string[10];
ten:string[10];
end;
var a:array[1..100] of ht;
stmp:ht;
i,j,n,tmp:integer;
s1,s2:string;
begin
clrscr;
write('So hs < 50! so hs=');readln(n);
for i:=1 to n do
begin
write('Ho hs ',i,':');readln(a[i].ho);
write('dem hs ',i,':');readln(a[i].dem);
write('Ten hs ',i,':');readln(a[i].ten);
end;
for i:=1 to n do
for j:=i+1 to n do
begin
if a[i].ten>a[j].ten then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end;
if a[i].ten=a[j].ten then
if a[i].dem>a[j].dem then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end
else if a[i].dem=a[j].dem then
if a[i].ho>a[j].ho then
begin
stmp:=a[i];
a[i]:=a[j];
a[j]:=stmp;
end;
end;
for i:=1 to n do
begin
writeln('Hs ',i,':',a[i].ho,' ',a[i].dem,' ',a[i].ten);
end;
readln;
end.
Đúng 0
Bình luận (0)
Hỏi về pascal !!!
Xem chi tiết
Viết chương trình nhập họ tên đầy đủ trong lớp học( không quá 50 người). Hãy sắp xếp họ tên của các học viên theo thứ tự alphabet (nếu tên trùng nhau thì sắp xếp theo tên đệm, nếu tên đệm trùng nhau thì sắp xếp theo tên họ). In ra màn hình danh sách sau khi đã sắp xếp.
https://hoc24.vn/hoi-dap/question/414599.html
Đúng 0
Bình luận (0)
viết chương trình sử dụng biến mảng, thực hiện các công việc sau:
- Nhập từ bàn phím danh sách HỌ TÊN, điểm trung bình môn TOÁN,VĂN,TIN của các bạn học sinh trong lớp
- Tính điểm trung bình của từng học sinh.
- Tìm học sinh có điểm trung bình cao nhất.
viết chương trình sử dụng biến mảng, thực hiện các công việc sau:
- Nhập từ bàn phím danh sách HỌ TÊN, điểm trung bình môn TOÁN,VĂN,TIN của các bạn học sinh trong lớp
- Tính điểm trung bình của từng học sinh.
- Tìm học sinh có điểm trung bình cao nhất.
Bài toán: Một chương trình yêu cầu nhập vào số lượng học sinh, họ và tên, địa chỉ, chiều cao của các học sinh trong một lớp học.
Hãy cho biết:
- Trong bài toán gồm các biến nào?
- Chọn kiểu dữ liệu cho các biến sao cho phù hợp
- Viết câu lệnh bằng ngôn ngữ lập trình Pascal để khai báo các biến trên.