Viết chương trình C sử dụng các hàm và thủ tục xây dựng ở trên để giải bài toán: Cho tệp dữ liệu TAMGIAC.DAT có cấu trúc như sau:- Dòng đầu tiên chứa số N

Viết chương trình sử dụng các hàm và thủ tục xây dựng ở trên để giải bài toán: Cho tệp dữ liệu TAMGIAC.DAT có cấu trúc như sau:- Dòng đầu tiên chứa số N;- N dòng tiếp theo, mỗi dòng chứa 6 số thực xA, yA, xB, yB, xC, yC là tọa độ 3 đỉnh A(xA, yA), B(xB, yB), C(xC, yC) của tam giác ABCHãy nhập dữ liệu từ tệpđã cho và trong số N tam giác đó, đưa ra tệp TAMGIAC.OUT gồm 3 dòng:- Dòng đầu tiên là số lượng tam giác...

0

NA

Nya arigatou~

4 tháng 4 2021

1

NL

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

4 tháng 4 2021

const fi='tamgiac.dat';

fo='tamgiac.out';

var f1,f2:text;

a,b,c,d,e,f:array[1..100]of integer;

i,n,dem1,dem2,dem3:integer;

ab,bc,ac:real;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do

readln(f1,a[i],b[i],c[i],d[i],e[i],f[i]);

dem1:=0;

dem2:=0;

dem3:=0;

for i:=1 to n do

begin

ab:=sqrt(sqr(a[i]-c[i])+sqr(b[i]-d[i]));

ac:=sqrt(sqr(a[i]-e[i])+sqr(b[i]-f[i]));

bc:=sqrt(sqr(c[i]-e[i])+sqr(d[i]-f[i]));

if (ab>0) and (ac>0) and (bc>0) and (ab+ac>bc) and (ab+bc>ac) and

(ac+bc>ab) then

begin

if (ab=ac) or (ac=bc) then inc(dem1);

if ((ab=ac) and (ab<>bc) and (ac<>bc)) then inc(dem2);

if ((ac=bc) and (bc<>ab) and (ac<>ab)) then inc(dem2);

if ((ac=bc) and (ac<>ab) and (bc<>ab)) then inc(dem2);

if sqr(ab)=sqr(ac)+sqr(bc) then inc(dem3);

if sqr(ac)=sqr(bc)+sqr(ab) then inc(dem3);

if sqr(bc)=sqr(ab)+sqr(ac) then inc(dem3);

end;

writeln(f2,dem1);

writeln(f2,dem2);

writeln(f2,dem3);

close(f1);

close(f2);

end.

Đúng(1)

ND

Ngọc Diệp

12 tháng 5 2021

cho dãy số gồm N số tự nhiên a1,a2,a3,...aN .Viết chương trình in ra trung bình cộng của các phần tử trên .Dữ liệu vào bởi tệp DULIEU.INP có cấu trúc : dòng đầu tiên chứa số nguyên N ,dòng thứ 2 chứa các số a1,a2,a3,...aN các số cách nhau ít nhất một kí tự trống

1

NA

nguyễn an phát

12 tháng 5 2021

program du_lieu;

uses crt;

var i,n:integer;

a:array[1..100]of integer;

tbc:real;

f:text;

begin

clrscr;

assign(f,'DULIEU.INP');reset(f);

readln(f,n);

for i:=1 to n do

begin

read(f,a[i]);

end;

close(f);

for i:=1 to n do

tbc:=tbc+a[i];

writeln(tbc/n);

readln;

end.

DM

Đặng Minh quân

12 tháng 5 2021

Cho dãy gồm N số tự nhiên a1,a2,a3...aN. viết chương trình in ra tổng các số âm,số dương của Dữ liệu vào cho bởi tệp DULIEU.INP có cấu trúc - dòng đầu tiên chứa số N - dòng thứ 2 chứa các số a1,a1,s3...aN các số cách nhau ít nhất 1 kí tự trống

1

NL

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

12 tháng 5 2021

uses crt;

const fi='dulieu.inp';

var f1:text;

a:array[1..100]of integer;

n,i,t1,t2:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

t1:=0;

t2:=0;

for i:=1 to n do

begin

if a[i]>0 then t1:=t1+a[i];

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

close(f1);

readln;

end.

Cho tệp văn bản DAYSO.INP có cấu trúc: + Dòng 1: Ghi số nguyên dương N (0<N<=100) + Dòng 2: Ghi dãy gồm n số nguyên Ai (-30000<=Ai<=30000). Yêu cầu: Viết chương trình đọc dữ liệu từ tệp trên và thực hiện các công việc sau:a) Tính tổng các số ở dòng 2, ghi kết quả vào tệp TONG.OUT theo cấu trúc:+ Dòng 1: Ghi số nguyên S là tổng tìm được b) Tính tổng các số dương ở dòng 2, ghi kết quả vào tệp TD.OUT theo cấu trúc:+ Dòng...

FM

Felix MC-Gamer

10 tháng 5 2023

0

LT

Lê Thị Hồng Trang

31 tháng 3 2022

giả sử trên đĩa E có tệp SO.INP chứa nhiều dòng dữ liệu, mỗi dòng chứa hai số nguyên cách nhau bởi dấu cách. hãy viết chương trình đọc ra mỗi dòng dữ liệu trong tệp SO.INP, sau đó tính trung bình cộng của mỗi dòng và hiển thị kết quả trung bình cộng ra màn hình tương ứng với mỗi dòng dữ liệu? Mn giúp mik vs

1

NL

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

31 tháng 3 2022

uses crt;

const fi='so.inp';

var f1:text;

a,b:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

while not eof(f1) do

begin

readln(f1,a,b);

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

end;

close(f1);

readln;

end.

BÀI TẬP THỰC HÀNH – DỮ LIỆU KIỂU TỆP Câu 1: Cho tệp BAI1.INP có cấu trúc như sau:- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhậtEm hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả in ra màn hình đúng đến 2 chữ số thập phân? Câu 2: Cho tệp BAI2.INP có cấu trúc như sau:- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhậtEm hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả ghi vào...

MH

Minh Hoạt

23 tháng 4 2021

BÀI TẬP THỰC HÀNH – DỮ LIỆU KIỂU TỆP

Câu 1: Cho tệp BAI1.INP có cấu trúc như sau:

- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhật

Em hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả in ra màn hình đúng đến 2 chữ số thập phân?

Câu 2: Cho tệp BAI2.INP có cấu trúc như sau:

- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhật

Em hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả ghi vào tệp BAI2.OUT

đúng đến 2 chữ số thập phân?

Câu 3: Cho tệp BAI3.INP có cấu trúc như sau:

- Gồm N dòng chứa độ dài 2 cạnh của hình chữ nhật

Em hãy lập chương trình tính diện tích hình chữ nhật đó . các kết quả ghi vào tệp BAI3.OUT đúng đến 2 chữ số thập phân?

Câu 4: Cho tệp BAI4.INP chứa 3 số nguyên a,b,c lần lượt là độ dài của 3 cạnh tam giác. Hãy lập chương trình tính chu vi, diện tích của tam giác đó .Kết quả ghi vào tệp BAI4.OUT có cấu trúc như sau:

BAI4.INP

BAI4.OUT

3 4 5

Chu vi=…..

Dien tich =……

Câu 5: Cho tệp BAI5.INP chứa duy nhất số nguyên dương M . Hãy lập chương trình kiểm tra M là số chẵn hay số lẻ .Kết quả ghi vào tệp BAI5.OUT có cấu trúc như sau:

BAI5.INP	BAI5.OUT
7	7 la so le

Câu 6: Cho tệp BAI6.INP có cấu trúc như sau :

-Dòng 1: số nguyên dương N

-Dòng 2: là dãy N số nguyên dương a1, a2, …..an

Hãy lập chương trình ghi vào tệp BAI6.OUT :

-Dòng 1: Dãy số nguyên a1,a2,a3,…,an

-Dòng 2: Các số chẵn của dãy số

-Dòng 3: Số phần tử >10

-Dòng 4: Tổng các phần tử của dãy

BAI6.INP

BAI6.OUT

5

4 6 23 1 5

Dãy số nguyên có dạng :4 16 23 1 5

Các số chẵn của dãy số là 4 16

Số phần tử lớn hơn 10 là: 2

Tổng các phần tử của dãy là: 49

Câu 7: Cho tệp BAI7.INP có cấu trúc như sau :

-Dòng 1: số nguyên dương N

-Dòng 2: là dãy N số nguyên dương a1, a2, …..an

Hãy lập chương trình ghi vào tệp BAI7.OUT :

-Dòng 1: Dãy số nguyên a1,a2,a3,…,an

-Dòng 2: Các số lẻ của dãy số

-Dòng 3: Số phần tử =0

-Dòng 4: Tổng các phần tử của dãy

BAI7.INP

BAI7.OUT

8

4 0 6 23 0 1 5 0

Dãy số nguyên có dạng : 4 0 6 23 0 1 5 0

Các số lẻ của dãy số là 23 1 5

Số phần tử bằng 0 là: 3

Tổng các phần tử của dãy là: 49

7

NL

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

23 tháng 4 2021

Câu 1:

uses crt;

const fi='bai1.inp';

var f1:text;

a,b:real;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln(a*b:4:2);

close(f1);

readln;

end.

NL

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

23 tháng 4 2021

Câu 2:

const fi='bai2.inp';

fo='bai2.out';

var f1,f2:text;

a,b:real;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

writeln(f2,a*b:4:2);

close(f1);

close(f2);

end.

H

hoquanghieu

12 tháng 4 2022

cho mảng số nguyên A gồm n phần tử (N<=100) viết chương trình thực hiện các yêu cầu sau:

-viết thủ tục nhập dữ liệu cho mảng A

-sử dụng thủ tục để sắp xếp lại các mảng theo thứ tự không tăng

2

NG

Nguyễn Giang Ank

12 tháng 4 2022

uses crt;

var a:array[1..100]of integer;

i,n,dem,t,tb:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do

if a[i]>0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('So luong phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);

readln;

end.

H

hoquanghieu

12 tháng 4 2022

đúng không đây ạ

TT

Trần Thị Hương

9 tháng 5 2020

Viết chương trình táo ra một tệp chứa một mảng số nguyên không quá 100 phần tử . Tiến hành mở tệp ra để đọc dữ liệu và tính tổng các phần tử của mảng tất cả đều sử dụng thủ tục để viết chương trình

1

ML

Minh Lệ

10 tháng 5 2020

Program hotrotinhoc_hoc24;

const fi='dlv.inp';

fo='dlr.out';

var i,n,t: integer;

f: text;

a: array[1..100] of integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do read(f,a[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

t:=0;

for i:=1 to n do t:=t+a[i];

write(f,t);

close(f);

end;

begin

ip;

out;

end.

Một CSDL lưu dữ liệu trên hệ thống máy tính dưới dạng các tệp có cấu trúc được thiết kế để nhiều ngưới dùng có thể cùng khai thác dữ liệu trong CSDL đó. Tuy nhiên không phải tất cả người dùng đều biết về cấu trúc các tệp lưu dữ liệu và tự viết chương trình khai thác dữ liệu. Theo em, có thể giải quyết vấn đề này như thế...

ML

Minh Lệ

17 tháng 7 2023

1

TA

Thanh An

22 tháng 8 2023

Lưu dữ liệu dưới dạng 1 phần mềm hệ thống quản trị mà ai cũng có thể dễ dàng khai thác.