Viết chương trình in trên màn hành 5 chữ o chạy trong vòng 5 giây. (Ở phần mềm Pascal)
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.
Những câu hỏi liên quan
13 tháng 11 2021
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
N
23 tháng 5 2022
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.
18 tháng 4 2017
(* Date & Time: 13/01/13 01:37am
Author: NV Nhan *)
Program doingay_calender;
Uses Crt; {Unit}
Type
kq=string[25];
Var
cont: char; {Variable to repeat program}
d, m, y, j, k: integer;
Function doithu(d, m, y: integer):kq; {Ham nay tra ve thu cua ngay can xem}
Const
ngaythang: array[0..11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
Var tong, i: integer;
Begin
tong := (y-1)*365 + (y-1) div 4;
If (y mod 4) = 0 then ngaythang[1]:=29; {Nam nhuan}
For i:=0 to m-2 do tong := tong + ngaythang[i];
tong := tong+d; {tong so ngay tu 01/01/01 den dd/mm/yyyy}
Case (tong mod 7) of
0: doithu:='Thu Bay';
1: doithu:='Chu Nhat';
2: doithu:='Thu Hai';
3: doithu:='Thu Ba';
4: doithu:='Thu Tu';
5: doithu:='Thu Nam';
6: doithu:='Thu Sau';
End; {End case}
End; {End function}
Function doingayi(d, m, y:integer):integer; {Ham nay tra ve 1 so: neu la t2 thi tra ve 0, t3 thi tra ve 1...}
Const
ngaythang: array[0..11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
Var tong, i: integer;
Begin
tong := (y-1)*365 + (y-1) div 4;
If (y mod 4) = 0 then ngaythang[1]:=29; {Nam nhuan}
For i:=0 to m-2 do tong := tong + ngaythang[i];
tong := tong+d; {tong so ngay tu 01/01/01 den dd/mm/yyyy}
Case (tong mod 7) of
2: doingayi:=0; {Monday}
3: doingayi:=1;
4: doingayi:=2;
5: doingayi:=3;
6: doingayi:=4;
0: doingayi:=5;
1: doingayi:=6; {Sunday}
End; {End case}
End; {End function}
Function max_day(m, y:integer):integer; {Number day of a month in year}
Begin
Case m of
1, 3, 5, 7, 8, 10, 12: max_day:=31;
4, 6, 9, 11: max_day:=30;
2: If y mod 4 = 0 then max_day:=29 else max_day:=28;
End; {End case}
End; {End function}
{Main program}
Begin
Repeat {To repeat application until viewer press 'k'}
Clrscr; {Clear screen}
{Main code}
gotoxy((80-length('Nhap ngay muon xem: ')) div 2, 3); {Center align}
textcolor(white); {Text color}
write('Nhap ngay muon xem: '); read(d, m, y);
If (y<=0) or (m>12) or (m<1) or (d<1) or (d>31) or (((m=4) or (m=6) or (m=9) or (m=11)) and (d=31)) or (((y mod 4)<>0) and (m=2) and (d>28)) or ((m=2) and (d>29)) then {Dong dieu kien ghep kiem tra dung dinh dang ngay}
Begin
gotoxy((80-length('Nhap lai ngay thang nam!')) div 2, 5); {Center Align}
textcolor(3); {Color: aqua}
writeln('Nhap lai ngay thang nam!');
delay(1000);
cont:='c';
End else {When date, month, year are true}
Begin
gotoxy((80-length('Ngay 00/00/0000 la thu xxx ')) div 2, 5); {Center Align}
textcolor(2); {color: Green}
write('Ngay ');
If d<10 then write('0', d) else write(d); write('/');
If m<10 then write('0', m) else write(m); write('/');
write(y, ' la '); {Write Ngay xx/xx/xxx la thu xxx}
textcolor(red); {Color: Red}
write(doithu(d, m, y)); {In ra thu can xem}
textcolor(7); {Color: Gray}
writeln('.');
gotoxy((80-length('-----')) div 2, 6);
write('-----');
gotoxy((80-length('Lich thang xx nam xxxx')) div 2, 7); {Center Align}
writeln('Lich thang ', m, ' nam ', y);
writeln;
gotoxy(28, 9);
textcolor(yellow);
writeln(' 2 3 4 5 6 7 CN'); {Print month's calender}
gotoxy(28, 11);
For j:=0 to doingayi(1, m, y)-1 do write(' ');
For k:=1 to max_day(m, y) do
Begin
If k=d then
Begin
textcolor(red);
write(k:3);
End else
Begin
textcolor(white);
write(k:3);
End;
If doingayi(k, m, y)=6 then
Begin
writeln; writeln; write(' ');
End;
End;
writeln; writeln; {End program and play again?}
write('Muon tiep tuc nua khong? c/k '); cont:=readkey;
End;
Until cont='k'; {End repeat}
End. {End Code}
Cái này mình tham khảo trên mạng nha, ko phải của mình làm!
1 tháng 12 2021
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.
20 tháng 10 2021
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 5 do
write('o');
readln;
end.