Bài 4: Lưu với tên Bai4_a.pas
a/ Hãy viết chương trình và in ra màn hình nội dung sau:
DON XIN PHEP NGHI HOC
Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham
Toi ten la:
Phu huynh cua em:
Hoc sinh lop:
Li do nghi hoc:
Bài 4: Lưu với tên Bai4_a.pas
a/ Hãy viết chương trình và in ra màn hình nội dung sau:
DON XIN PHEP NGHI HOC
Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham
Toi ten la:
Phu huynh cua em:
Hoc sinh lop:
Li do nghi hoc:
uses crt;
begin
clrscr;
writeln('DON XIN PHEP NGHI HOC');
writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');
writeln('Toi ten la:');
writeln('Phu huynh cua em:');
writeln('Hoc sinh lop:');
writeln('Li do nghi hoc:');
readln;
end.
1. Viết chương trình đơn giản: In ra màn hình 2 dòng chữ:
TRUONG THCS ....
CHAO CAC BAN HOC SINH LOP 8
Mik cần gấp lắm ạ huhu
Cảm ơn mn nhiều
begin
write ('TRUONG THCS ...');
write ('CHAO CAC BAN HOC SINH LOP 8');
readln ;
end.
Mình cần viết 2 dòng chữ' chào các bạn' 'mình tên là pascal
Bài 1: Hãy viết chương trình trong Pascal thực hiện các công việc sau:
a) Nhập 2 số thực a và b vào từ bàn phím
b) In ra màn hình tổng của 2 số a,b vừa nhập, với kết quả in ra có 1 chữ số ở phần thập phân
c) Lưu chương trình với tên có dạng hoten-lop
**Lưu ý: Trong chương trình phải sử dụng các lệnh xóa màn hình và dừng màn hình kết quả
------------Mình cần gấp, xin cảm ơn------------
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
program b1;
uses crt;
var a,b,s:real;
begin
clrscr;
writeln('Nhap hai so a va b: ');
readln(a,b);
s:=a+b;
write('Tong cua hai so a va b la: ',s:1:1);
readln;
end.
P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.
Viết chương trình nhập vào một xâu bất kỳ là họ và tên của học sinh. Tính và đưa ra màn hình. +Độ dài của xâu đó (kí hiệu là k) +Chuyển sâu đó thành in hoa và đưa ra màn hình
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
int main()
{
getline(cin,st);
d=st.length()
for (i=0; i<=d-1; i++)
if (('a'<=st[i]) and (st[i]<='z')) st[i]=st[i]+32;
for (i=0; i<=d-1; i++)
cout<<st[i];
return 0;
}
1. Viết chương trình nhập vào 1 xâu họ tên sau đó đưa ra màn hình xâu chứa tên 2. Viết chương trình nhập vào 1 xâu in ra màn hình xâu đó sau khi đã đổi tất cả chữ in thường thành in hoa
Câu 1:
ho_ten = input("Nhập họ tên: ")
tach_ho_ten = ho_ten.split()
if len(tach_ho_ten) > 1:
ten = tach_ho_ten[-1]
print("Tên của bạn là:", ten)
else:
print("Nhập sai định dạng họ tên")
Câu 2:
s = input("Nhập xâu: ")
hoa = s.upper()
print(hoa)
Viết chương trình in ra màn hình các dòng chữ "Xin chao cac ban" và "Moi ban den voi Pascal
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.
Viết chương trình nhập tên và điểm của n học sinh in ra màn hình tên và điểm của học sinh cao nhất
uses crt;
var ten:array[1..50]of string;
diem:array[1..50]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Ten cua hoc sinh thu ',i,' la: '); readln(ten[i]);
write('Diem cua hoc sinh thu ',i,' la: '); readln(diem[i]);
end;
max:=0;
for i:=1 to n do
if max<diem[i] then max:=diem[i];
writeln('Diem cao nhat la: ',max);
for i:=1 to n do
if diem[i]=max then writeln(ten[i]);
readln;
end.
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA