1/ Vì sao cần phải viết chương trình máy tính?
2/ Viết chương trình in ra màn hình 1 danh thiếp đơn giản tự giới thiệu về mình theo mẫu sau:
MẤY BN ƠI GIÚP MK VS ĐÂY LÀ ĐỀ KT 1 TIẾT CỦA MK ẤY.LM GIÙM MK 1 CÂU CX ĐC CẢM ƠN TRC
1. Viết chương trình đơn giản: In ra màn hình 2 dòng chữ:
TRUONG THCS ....
CHAO CAC BAN HOC SINH LOP 8
Mik cần gấp lắm ạ huhu
Cảm ơn mn nhiều
begin
write ('TRUONG THCS ...');
write ('CHAO CAC BAN HOC SINH LOP 8');
readln ;
end.
Mình cần viết 2 dòng chữ' chào các bạn' 'mình tên là pascal
viết chương trình máy tính nhập 10 số tự nhiên bất kì và in lên màn hình bằng chương trình pascal
(đơn giản thôi nhé mn :''> )
cảm ơn ạ !
var i, so: integer;
begin
writeln('Nhap vao 10 so tu nhien:');
for i := 1 to 10 do
begin
write('So thu ', i, ': ');
readln(so);
writeln('So vua nhap la: ', so);
end;
readln;
end.
Viết chương trình nhập vào máy tính số tự nhiên N in ra màn hình các ước của N và số lượng các ước bằng bao nhiêu?
Thược hiện bằng phần mềm free pascal
Program HOC24;
var i,n,d: integer;
begin
write('Nhap N: '); readln(n);
write('Cac uoc cua 'n,' la: ');
for i:=1 to n do if i mod n = 0 do then
begin write(i,' '); d:=d+1; end;
writeln;
write('Co ',d,' so la uoc cua ',n);
readln
end.
Viết chương trình pascal nhập vào một sâu kí tự sau đó máy tính đưa ra màn hình máy tính số lượng kí tự là dấu cách trong câu
var st:string;
i,dem:integer;
begin
write('Nhap xau ki tu: ');readln(st);
for i:=1 to length(st) do
if st[i]=' ' then dem:=dem+1;
write('so ki tu la dau cach la ',dem);
readln;
end.
Viết chương trình in ra màn hình 2 dòng gồm: Họ tên và lớp của em.
tên mình Nguyễn Mai Phương
Lớp 8a4
các bn lm dùm mik vs mik cần gấp
trên pascal ạ
uses crt;
var st1,st2:string;
begin
clrscr;
readln(st1);
readln(st2);
writeln('Ten minh ',st1);
writeln('Lop ',st2);
readln;
end.
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập chẵn hay lẻ, chẳng hạn “5 là số lẻ”, “8 là số chẵn”. Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
- Thuật toán chương trình:
Bước 1: Nhập một số tự nhiên n và một biến d;
Bước 2: Gán giá d=n mod 2;
Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;
Bước 4. Kết thúc thuật toán;
- Chương trình Pascal:
- Kết quả:
Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
Bài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình
+ Dòng 1: Các ước của n
+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n
+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n
+ Dòng 4: Tổng các ước của n
( 2 bài khác nhau mọi người làm riêng ra giúp mình ạaaaaaa)
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Câu 2:
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
write('Tong cac so chan la: ',t);
readln
end.
Câu 3:
Program HOC24;
var i,t,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if n mod i=0 then t:=t+i;
write('Tong cac uoc cua ',n,' la: ',t);
readln
end.