tailieunhanh - Tự học lập trình Pascal tập 4 part 3

Tham khảo tài liệu 'tự học lập trình pascal tập 4 part 3', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 50 Tit If not ss i in dau and i length ss then s concat s ss i Else Begin Val s num cd T T num s ss i End End WWe. Tinhgt T End __ BEGIN Main Program Clrscr Writeln Nhập xâu ST dạng X1 X2 X3 . Xn Writelnftrong đó X1 X2 . Xn lầ các số nguyên1 hoặc số thực Write ST- Readln st If kiemjra st then Begin WritelnCGiá trị của biểu thức ST bằng Writeln tinhgt st 1Ũ 2 End ElseWriteỉn Xâu st không biểu diễn đúng biểu thức của bài toán. Write Nhấn Enter để thoát. Readln End. Phần 2. HƯỜNG DAN 51 8. Đứng. a. Thay While bằng Repeat Ví dụ Đoạn chương trình tính s 1 4 ỉ . . 2 3 n cho đến khi 1 n e e rất nhỏ được nhập từ bàn phím . Dùng While S 0 i 1 Write Epxilon- Readln E While 1 i E do Begin s s 1 i i i 1 End Thay bằng Repeat S 0 i 0 WritefEpxilon- Readln E Repeat inc i If 1 i E then Until 1 i E b. Thay Repeat bằng While Ví dụ 2 Đoạn chương trình tìm ước số chung lớn nhất của hai số a và b dùng Repeat 52 ụ ỈM pÂiỉìt Repeat If b 0 then Begin r a mod b a b b . r End Until b 0 USCLN a Thay bằng While While b 0 do Begin r a mod b a b b r End USClN a 9. Một lệnh For có thể thay thế bằng lệnh While nhưng điểu ngược iại thì có thể không đúng. 10. Program P4110 Var i a integer Stop boolean Begin i 1 Stop False chưa dừng While i 100 and not stop .

TÀI LIỆU MỚI ĐĂNG
37    156    0    27-04-2024
33    125    0    27-04-2024
1    113    1    27-04-2024
24    109    0    27-04-2024
185    99    0    27-04-2024
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.