Viết chương trình in ra máy với nội dung 15*2
Những câu hỏi liên quan
1. Viết chương trình nhập vào máy 1 mảng số nguyên bất kỳ, thống kê và in ra số phần tử âm trong mảng.
2. Viết chương trình nhập vào máy 1 mảng số nguyên bất kỳ, thống kê và in ra số phần tử dương trong mảng.
Mn giúp mình với!!!!!!
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (1)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Em hãy viết chương trình sủ dụng ngôn ngữ lập trình pascal để in ra màn hình nội dung sau:
Nhập giá trị hai biến a,b
Tính tổng hai biến đó (c:=a+b)
Bài 4: Lưu với tên Bai4_a.pas
a/ Hãy viết chương trình và in ra màn hình nội dung sau:
DON XIN PHEP NGHI HOC
Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham
Toi ten la:
Phu huynh cua em:
Hoc sinh lop:
Li do nghi hoc:
uses crt;
begin
clrscr;
writeln('DON XIN PHEP NGHI HOC');
writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');
writeln('Toi ten la:');
writeln('Phu huynh cua em:');
writeln('Hoc sinh lop:');
writeln('Li do nghi hoc:');
readln;
end.
Đúng 1
Bình luận (0)
Bài 4: Lưu với tên Bai4_a.pas
a/ Hãy viết chương trình và in ra màn hình nội dung sau:
DON XIN PHEP NGHI HOC
Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham
Toi ten la:
Phu huynh cua em:
Hoc sinh lop:
Li do nghi hoc:
uses crt;
begin
clrscr;
writeln('DON XIN PHEP NGHI HOC');
writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');
writeln('Toi ten la:');
writeln('Phu huynh cua em:');
writeln('Hoc sinh lop:');
writeln('Li do nghi hoc:');
readln;
end.
Đúng 3
Bình luận (0)
Viết chương trình nhập từ bàn phím một mảng số nguyên. In ra tiệp output.txt lưu ở ổ đĩa D với nội dung: a/ Các phần tử có chỉ số là số lẻ b/ Các phần tử là số lẻ
uses crt;
const fi='output.txt'
var f1:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
assign(f1,fi); rewrite(f1);
for i:=1 to n do
if i mod 2=1 then write(f1,a[i]:4);
writeln(f1);
for i:=1 to n do
if a[i] mod 2<>0 then write(f1,a[i]:4);
close(f1);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình quả lý điểm của một lớp với nội dung sau:
a,Nhập hồ sơ sinh viên bao gồm họ tên,năm sinh,quê quan,môn 1, môn 2,môn 3,tổng điểm
b,tổng điểm bằng tổng của môn 1,môn 2,môn3
c,In ra danh sách sinh viên tổng điểm theo trật tự giảm dần
viết chương trình in ra hàng ngang từ 20 đến 15 với ạ, mọi người giúp em với em cảm ơn ạ
#include <bits/stdc++.h>
using namespace std;
long long i;
int main()
{
for (i=20; i>=15; i--) cout<<i<<" ";
return 0;
}
Đúng 1
Bình luận (0)
viết chương trình in ra số lớn hơn trong hai số( được nhập từ bàn phím máy tính)
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a)
else if a<b then writeln(b)
else writeln('Hai so bang nhau');
readln;
end.
Đúng 1
Bình luận (0)
Em thích nội dung nào em đã học?Vì sao?(Ghi rõ tên bài và ND mình thích)
Những bài mình đã học: Máy tính và chương trình máy tính, làm quen với ngôn ngữ lập trình, dữ liệu và biến trong chương trình, bài toán và thuật toán, cấu trúc tuần tự
cái này hỏi cảm nghĩ của bạn mà bạn lại đi hỏi người khác. Ai biết bạn thích phần nào mà trả lời
Đúng 0
Bình luận (0)