Chuyên đề viết chương trình trong Pascal

KH

Kiêm Hùng

6 tháng 1 2019

Chuyên đề viết chương trình trong Pascal #1 * Ai trả lời đúng + chính xác nhất được Câu hỏi: Viết chương trình biểu thị biểu thức ở dạng Pascal \(\left(1\right)A=\sqrt{\dfrac{15+\sqrt{20-4}}{\sqrt{20-4}}}.\sqrt{\dfrac{11+\sqrt{20-4}}{\sqrt{20-4}}}+\sqrt{20-4}\) _ Thấy mọi người hơi nhàm box Tin đặt cho khuấy động _ Đừng cop mạng vì nó không có :)) ...

Đọc tiếp

#Tin học lớp 8

21

TS

Thời Sênh

6 tháng 1 2019

ờ nhưng tại sao kêu t tag vậy Hùng, m tag ko đc ak ?

@Nguyễn Trần Thành Đạt

Đúng(0)

NN

Ngố ngây ngô

6 tháng 1 2019

Tú Nguyễn B (Erik) Trương Quang Dũng hành động đi các bạn, đây là sân chơi của các bạn, cộng đồng đang chờ bạn, gia đình chờ bạn, bạn bè chờ bạn ><

Đúng(0)

TM

Trương Minh Hiếu

23 tháng 3 2022

Dưới đây là một chương trình viết trong Pascal: program CT_Dau_tien ; Uses crt ; begin writeln ( ‘Toi la Turbo Pascal’ ) end.Tên chương trình là: A begin. B. end C. writeln D....

Đọc tiếp

#Tin học lớp 8

1

KH

Keiko Hashitou

23 tháng 3 2022

1 là bn sửa hình nền

2 là mk gọi admin hoặc giáo viên khác khoá nick bn

Đúng(0)

TM

Trương Minh Hiếu

23 tháng 3 2022

sửa kiểu j vậy?

Đúng(0)

HH

Hà Hoàng

7 tháng 11 2021

viết chương trình tính chu vi tam giác vuông trong pascal

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

7 tháng 11 2021

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

writeln(a+b+c:4:2);

readln;

end.

Đúng(1)

U

UI

15 tháng 11 2016 - olm

Đây là đề có liên quan tới pascal và toán:

Viết chương trình bảng cửu chương in ra bảng cửu chương giữa màn hình.

Mong các pn giúp đỡ

#Toán lớp 7

2

PP

Phat Pham

15 tháng 11 2016

ê mi phải lớp 7a2 khống

Đúng(0)

U

UI

19 tháng 11 2016

ừ ừ có j ák

t có nhìu nik lắm !!!!!!!

Đúng(0)

TC

The Chu Cong

8 tháng 11 2021

Viết chương trình Pascal có khai báo và sử dụng biếnNhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75;...

Đọc tiếp

#Tin học lớp 8

0

DQ

Đỗ Quốc An

4 tháng 12 2016

viết chương trình in lịch lên màn hình trong pascal

#Tin học lớp 8

1

CT

Châu Trần Vũ Ngọc

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!

Đúng(0)

NO

Ngânn Okk

12 tháng 3 2021

viết chương trình số nguyên tố họ hàng trong pascal

vd: (3,7)

#Tin học lớp 8

2

BA

Bùi Anh Tuấn

12 tháng 3 2021

in ra tất cả các số nt họ hàng hay chỉ 2 số liền kề nhau??

Đúng(0)

BA

Bùi Anh Tuấn

12 tháng 3 2021

ngồi vắt óc mãi mới ra

Đúng(0)

U

UI

15 tháng 11 2016 - olm

Đây là đề có liên quan tới pascal và toán:

Viết chương trình bảng cửu chương in ra bảng cửu chương giữa màn hình.

Có thể giúp mik về câu lệnh goto ko

#Toán lớp 7

0

NT

Nguyễn Thuỳ Linh

28 tháng 3 2021

Viết chương trình tính diện tích và chu vi tam giác trong pascal

#Tin học lớp 8

1

NN

Ngọc Nguyễn Thái Khánh

28 tháng 3 2021

Program Hinh_Tamgiac_Program;
Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
Writeln(‘HINH TAM GIAC:’);
Write(‘nhap a =’);readln(a);
Write (‘nhap b =’);readln(b); Write(‘nhap c =’);readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘Chu vi tam giac:’,2*p:4:2) ; Writeln(‘Dien tich tam giac:’,s:4:2);
End
Else
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac’) ;
Readln;
End.

Đúng(2)

S

Susama

8 tháng 2 2022

Viết chương trình tính S=1+2_+100 của chương trình pascal

#Tin học lớp 8

2

NL

Nguyễn Lê Phước Thịnh

8 tháng 2 2022

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+i;

writeln(s);

readln;

end.

Đúng(2)

NH

Nguyễn hoàng anh

8 tháng 2 2022

#include <iostream>

using namespace std;

int main () {

int tong = 0;

for (int i = 1 ; i <= 100; i++) tong = tong + i;

cout << " Tong S = " << tong;

return 0;

}

Chạy chương trình

Tong S = 5050

Đúng(0)

NB

Nguyễn Bá Đức

27 tháng 7 2020 - olm

Viết chương trình tính tổng S=1+2!+3!+.....+n! trong pascal

#Toán lớp 8

0

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP