... tiên, ví d: txtWelcome.
5. Viết code
5.1. Viết code cho nút lệnh btnDisplay
Ta m ca s so n tho Code Editor bng cách kt vào nút Display. Trong ca
s Code, C# n ... sang kiểu
Convert.ToBoolean(Giatri)
Boolean
Convert.ToByte(Giatri)
Byte
Convert.ToDateTime(Giatri)
Date
Convert.ToDouble(Giatri)
Double
Convert.ToInt16(Giatri)
Integer 2 byte
Convert.ToInt32(Giatri) ... s Solution Explorer có hai thành phn hay dùng là View Code và View Designer.
View Code: có tác dng hin th ca s so n tho mã lc chn. Ngoài
hin th ca s so n...
...
i:=i+1;
4
else i:=i+1;
if kt then
writeln('Day tao thanh cap so cong')
else
writeln(‘Day khong tao thanh cap so cong');
readln;
End.
Chọn câu trả lời đúng:
A. chương trình báo ... báo lỗi ngữ pháp
Câu 20:
Cho khai báo sau trong ngôn ngữ Pascal:
TYPE a=record
Hoten:array[0 40] of char;
Tuoi:integer
END;
Pt=^b;
b=RECORD
info:a;
last:pt;
next:pt;
END;
VAR p1,p2:pt; x:a; ... báo lỗi runtime.
9. Xét chương trình sau:
type chi _so= 1 4;
MI=array[chi _so] of byte;
Var i:byte;
X: mi;
Function Min(x:Mi):byte;
Var i:chi _so; tam:byte;
Begin
Tam:=x[1];
For i:=2 to 4 do
If x[i]<tam...
... phải lên Form, ContextMenu sẽ hiện ra (xem hình). Xử lý
các sự kiện trên ContextMenu tương tự như trên MenuStrip “Màu sắc” đã
mô tả.
Bài 2:
Viết chương trình tạo 1 Form chứa control TreeView...
... Nhap_xet _so;
Var so: integer;
Begin
Writeln(’moi vao mot so nguyen khac 0:’); Readln (so) ;
If so < 0 then writeln(’ so ba vua nhap la so am’);
If so > 0 then writeln(’ so ban vua nhap la so duong);
Readln
End.
Phạm ... dẫn:
Program xet _so;
Var a: word;
Begin
Writeln(’moi nhap vao mot so nguyen duong:’);
Readln(a);
If a mod 2 = 0 then writeln( so ban vua nhap la so chan’)
Else writeln( so ban vua nhap la so le’);
Readln
End.
Bài ... a,b,x:real;
Begin
Writeln(’moi nhap vao hai so a va b:’);
Readln(a,b);
If ((a=0) and (b=0)) then
writeln(’phuong trinh bac nhat co vo so nghiem’);
If ((a=0) and (b<>0)) then
writeln(’phuong trinh bac nhat vo...
... <conio.h>
void timmax (float *a, int n, int k)
{float *max = k;
for (int i = 1; i<=n; i++)
{ if (*max < *(a+i))
*max = *(a+i);
}
if (*max==k)
printf (" trong day khong coso ... b.
BG:
#include <stdio.h>
#include <conio.h>
main ()
13
printf ("\nTich cac phan tu cua mang la: %f", tich);
printf ("\n co %d so 0 trong mang a vua nhap", dem0);
if ... tu cua mang la: %f", tong);
printf ("\n co %d so 0 trong mang a vua nhap", dem0);
if (demduong==0)
printf ("\nMang khong co phan tu duong nao ca!");
else
printf("\nTong...
... cho SoMin
Nhập Số (thứ hai)
Nếu So > SoMax thì gán So cho SoMax
Nếu So < SoMin thì gán So cho SoMin
Nhập số (thứ ba)
Nếu So > SoMax thì gán So cho SoMax
Nếu So < SoMin thì gán So ... ‘(‘,ThuaSo,’^’,SoMu,’)’.
(* Lấy ThuaSo kế tiếp *)
23
Nhập: so1 ,so2 ,so3
Xuất: Thông báo
Giải thuật:
1. Nhập so1 , so2 , so3
2. Nếu so1 +so2 > ;so3 và so2 +so3 > ;so1 và so3 +so1 > ;so2
3. Hiển thị “Đó là tam ... XXXX
Thuong = XXXX
Du = XXXX
Hướng dẫn
Nhập :So1 , So2
Xuất: Tong, Hieu, Tich, Thuong,Du
Giải thuật:
1. Nhập: So1 , So2
2. Tính Tong = So1 +So2
Hieu = So1 -So2
Tich = So1 *So2
8
c. K:=5;
For I:=-2 to 3 do
Begin
Writeln(I+K:2);
K:=1;
End;
d....
... Tô Oai Hùng
24
So Sánh
switch
Với if-else
y Khi sử dụng lệnh if-else lồng nhau
thì:
- Nếu chọn mục đầu tiên, cần 1 phép
so sánh.
- …
- Nếu chọn mục cuối cùng, cần 12
phép so sánh.
y Khi ... hiện.
Cơ Sở
Lập Trình
ThS.GVC Tô Oai Hùng
24
Bảo Trì
cout << "Nhập bán kính quả
cầu:
";
double radius;
cin >> radius;
cout << "Nhập tỷ
trọng quả
cầu: ";
double ...
một
hay
nhiều
các
trường
hợpcódạng:
case ConstantValue:
Mỗi
case_list
là
một
hay
nhiều
các
trường
hợpcódạng:
case ConstantValue:
Mỗi
statement_list
đượckếtthúcbằng
...
... m=6&3;
cout<<m<<endl;
cout<<" ;So so chan la: "<<d2<<endl
<<" ;So so le la: "<<1000-d2<<endl
<<" ;So so chia het ... d2++;
if((a[i]&7)==0) d8++;
}
cout<<" ;so so chan la: "<<d2
<<"\nso so le la: "<<n-d2
<<"\nso so chia het cho 8 la: "<<d8<<endl; ... if(d<0) cout<<"Phuong trinh vo nghiem.";
if(d==0) cout<<"Phuong trinhco nghiem kep:x1=x2="<<b/a;
if(d>0)
{
d=sqrt(d);
cout<<"Phuong trinh...
... tháng, hệ số phụ cấp
- Xuất ra màn hình những thông tin sau:
Ong/Ba: ?
So ngay lam viec trong thang: ?
He so phu cap: ?
So tien duoc nhan: ?
Công thức tính số tiền được nhận là:
Số ngày làm...
... write(out,0;
Writeln(out);
End;
End;
End;
Close(out);
End;
Begin
ClrScr;
Writeln('Chuong trinh bat daú);
ReadData;
Solve;
Các bạn tự lập chương trình giải bài toán 1 vớin,m và trạng thái ban đầu của ... chương trìnhPascal đầy đủ như sau:
Program Party;
Uses Crt;
Type t= Set Of 1 4
Var c,i1,i2,i3,i4,j,k,m,n:integer;
On,off,s:T;
X:Array [ 1 50 ] Of Integer;
Writeln('Chuong trinh ket thuc');
Readln.
End.
... Integer;
Writeln('Chuong trinh ket thuc');
Readln.
End.
End;
Close(inp);
End;
Procedure Solve {Thu tuc tim cac trang thai N den thoa man}
Begin
Asign(out,'a:pasparty.out');rewrite(out);
For...