Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
uses crt;
var a:array[1..100]of integer;
n,i,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so nguyen duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('Cac so nguyen to la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of integer ;
i,n,max : integer ;
begin
write('Nhap n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:= 1 to n do if max<a[i] then max:=a[i];
write('So lon nhat la:',max');
readln
end.
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
demtu:=1;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
bài này mới đúng nè bạn:
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
X:=X+' ';
demtu:=0;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
delete(X,length(X),1);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
Program trung_binh_cong;
uses crt;
var a,b,c: real;
begin
clrscr;
write('nhap so a , b , c =' ,); readln(a,b,c):
writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3;
readln;
end.
Program trung_binh_cong;
uses crt;
var a,b,c: real;
begin
clrscr;
write('nhap so a , b , c =' ,); readln(a,b,c):
writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3);
readln;
end.
TK:
Ví dụ: Với 10 thì tổng các số tự nhiên sẽ là.
Để hiểu được bài này, các bạn cần có kiến thư căn bản trong Java:
Nhập xuất trong Java.Vòng lặp trong Java.Tính tổng các số tự nhiên bằng vòng lặp for JavaĐầu tiên ta cần xác định được số cần tính tổng các số tự nhiên bằng cách sử dụng class Scanner. Người dùng sẽ nhập vào một số, khi đó ta thực hiện tính tổng từ 1 đến số đó.
Bài viết này được đăng tại [free tuts .net]
Khai báo một đối tượng sc thuộc class Scanner, sau đó sử dụng nó để lấy dữ liệu từ bàn phím.
Scanner sc = new Scanner(System.in); System.out.println("Nhập vào một số: "); num = sc.nextInt();
Bây giờ sử dụng một vòng lặp for lặp từ 1 đến số num vừa nhập, khi đó tổng sum = sum + i.
for(int i = 1; i <= num; ++i) { // sum = sum + i; sum += i; }
Để kiểm tra kết quả ta chỉ cần hiển thị sum.
Full code:
import java.util.Scanner; public class Main { public static void main(String[] args) { int num, sum = 0; Scanner sc = new Scanner(System.in); System.out.println("Nhập vào một số: "); num = sc.nextInt(); for(int i = 1; i <= num; ++i) { // sum = sum + i; sum += i; } System.out.println("Tổng các số tự nhiên từ 1 đến "+ num +" là: "+sum); System.out.println("------------------------------------"); System.out.println("Chương trình này được đăng tại Freetuts.net"); } }
Kết quả:
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,h,s;
int main()
{
cin>>n;
t=0; h=0; s=1;
for (i=1; i<=n; i++)
{
cin>>x;
t+=x;
h-=x;
s*=x;
}
cout<<t<<endl;
cout<<h<<endl;
cout<<s<<endl;
return 0;
}
de 1:
huong dan
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
de 3,
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
S=1/2.a.h
Program DIEN_TICH_TAM_GIAC;
uses crt;
var a,h,s:integer;
begin
clrscr;
Write('Nhap canh day:'); Readln(a);
Write('Nhap chieu cao:'); Readln(h);
s:=(a*h)/2;
Writeln('Dien tich cua hinh tam giac la:',s);
Readln
End.
xin lỗi bạn
mình xin sửa lại
uses crt;
var a,h:integer;
s:real;
begin
clrscr;
Write('Nhap canh day:'); Readln(a);
Write('Nhap chieu cao:'); Readln(h);
s:=(a*h)/2;
Writeln('Dien tich cua hinh tam giac la:',s:4:2);
Readln
End.
Nguyễn Lê Phước Thịnh Sara Trang Nguyễn Minh Lệ giup e aj
@HISINOMA KINIMADO Tick hộ bn này giùm cj với!
Cảm ơn bn nhé! <3
Cảm ơn bạn nhiều nha!!! ( Dù h cx ko cần nx :))
fuck
uses crt;
var a,h,s:integer;
begin
clrscr;
Write('Nhap canh day:'); Readln(a);
Write('Nhap chieu cao:'); Readln(h);
s:=(a*h)/2;
Writeln('Dien tich cua hinh tam giac la:',s);
Readln
End.
@Vũ Minh Tuấn Nhờ bn tick cho bn này giùm mik cái. Hứa sẽ trả.