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

KH

Kiêm Hùng

7 tháng 1 2019

Chuyên đề viết chương trình trong Pascal #2 * Ai trả lời + chính xác nhất được 3 GP Câu hỏi: \(C=\sqrt{\dfrac{5.\sqrt{3}-9.\sqrt{2}}{\sqrt{3}-\sqrt{2}}}-\sqrt{\dfrac{6}{\sqrt{15}+3x}}+9x^2-\sqrt{9+5}+\sqrt{\dfrac{6+\sqrt{x}}{\sqrt{90-x}}}\) _ Part trước 1 GP thuộc về Đoàn Gia Khánh ( vì tl hơi nhiều, chưa chính xác hoàn toàn) _ Có vẻ như vẫn chưa có ai để ý tới lắm !!!! _ Trả lời càng ít lần thì càng được tối đa...

Đọc tiếp

#Tin học lớp 8

10

NN

Ngố ngây ngô

7 tháng 1 2019

Đam mê nhỉ ><

@Luân Đào Tú Nguyễn B (Erik) Trương Quang Dũng

Đúng(0)

KH

Kiêm Hùng

7 tháng 1 2019

đoán xem !!!

Đú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...

Đọ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);...

Đọ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;

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