Đề tài: giúp mình lập chương trình bài toán pascal lớp 11 này!!

Sao hỏi toàn những bài cơ bản vậy?

Thui thì pác cứ chỉ cho bạn ấy đi cơ bản lần làn mới lên cao đc chứ phải hem ^^
var i:integer;
begin
i:=1;
while i<=100 do
begin
write(i:5);
i:=i+1;
end;
readln;
end.

Còn dùng for nè(Bạn tham khảo nha).
var i:integer;
begin
for i:=1 to 100 do
write(i:5);
readln;
end.

các pro giải gioumf em bài này nhé
vừa gà vừa chó
bó lại cho tròn
36 con
100 chân chẵn
thank

var ga,cho:integer;
begin
for ga:=0 to 36 do
begin
cho:=36-ga;
if ga*2+cho*4=100 then writeln('ga= ',ga,' cho = ',cho);
end;
readln;
end.

anh chi nao giup em lam bai nay kai'.em dang can` gap'
Viet' pt, ve~ hinh chu nhat va hinh vuong bang cac dau' "$" trong do' ve hinh dac voi hinh vuong. moi hinh cach nhau 5 dong trong'.lam` thanh nhieu chuong trinh con va goc. lai thanh 1 chuong trinh hoan chjnh? sau do' soan thao? va` trinh` chjeu'

viet chuong trinh nhap vao tu man hinh 1 day n so nguyen.cho biet trong day so do co bao nhieu so chia het cho 7

công nhận nhìu người pro ghê, pascal khó ơi là khó mà giải hay quá luôn

Rimocchino

bài 1 theo C++ :
#include "stdio.h"
#include "conio.h"
void main()
{
int a[50],n,i,max;
clrscr();
printf("Nhap so phan tu , n = ");scanf("%d",&n);
for(i=1;i<=n;i++)
printf("Nhap gia tri cua a[%d] =",i);scanf("%d",&a[i]);
max=a[1];
for(i=1;i<=n;i++)
if (max<a[i])max = a[i];
printf("Gia tri lon nhat = %d",max);
getch();
}
(bài này bạn có thể nhập tối đa 50 phần tử chứ ko phải chỉ có 3 phần tử nữa)

sao lai fai for(i=1; i< =n; i++) cho for(i=2; i<=n; i++) dam han mot phep so sanh

---------- Bài thêm lúc 14:47 ---------- Bài trước là lúc 14:44 ----------

minh khong duoc hoc pascal hic ,gio dang hoc java hic

gemini5156

1. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c đưa ra màn hình giá trị max trong 3 số ( dùng 2 câu lệnh if dạng thiếu )

2. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c sao cho chúng là 3 cạnh tam giác.
Thanks!

1 program vd;
var a,b,c,max:real;
begin
writeln('nhap a,b,c'); readln(a,b,c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln('max=',max);
readln;
end.

gemini5156

1. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c đưa ra màn hình giá trị max trong 3 số ( dùng 2 câu lệnh if dạng thiếu )

2. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c sao cho chúng là 3 cạnh tam giác.
Thanks!

2.
var a,b,c:byte;

begin
write('nhap vao ba canh cua tam giac:');
readln(a);
readln(b);
readln(c);
if (a>0) and (b>0) and(c>0) and(a+b>c) and (a+c>b) and (b+c>a) then
write('vay ba canh ban vua nhap la mot tam giac va co chu vi la:',(a+b+c)/2');
readln'
end.
con bai mot thi co nhieu ban jai rui>
co len nhe!!

lam giup minh bai pascal nay nha: viet chuong trinh nhap vao 1 day n so. sau do loc ra cac so duong in tren 1 dong, cac so am duoc in tren 1 dong tiep theo
thanks

---------- Bài thêm lúc 16:29 ---------- Bài trước là lúc 16:25 ----------

bạ nay nua nha: cho 1 xau ki tu, viet chuong trinh tinh co bao nhieu ki tu la so, bao nhieu ki tu la chu cai
hjhj thanks

---------- Bài thêm lúc 16:34 ---------- Bài trước là lúc 16:29 ----------

ca bai nay nua nha: viet chuong pascal trinh nhap tu ban phim so C, sao cho thuc hien cac yeu cau sau:

+) cho day so: -5, 3, -2, 0, 4, 1, 2, 7, -3.
+) dem xem co bao nhieu so thoa man:
-lon hon C
-nho hon C
-bang C
giup minh giai nhanh minh 3 bai nay nha
thanks thanks thanks

hoc sinh ca biet

lam giup minh bai pascal nay nha: viet chuong trinh nhap vao 1 day n so. sau do loc ra cac so duong in tren 1 dong, cac so am duoc in tren 1 dong tiep theo

Code:

uses crt;
var a: array [1..50] of integer;
    n, i: integer;

begin
 clrscr;
 write('Nhap so phan tu cua day so, N= ');
 readln(n);
 for i:=1 to n do
 begin
  write('Phan tu thu ',i,' = ');
  readln(a[i]);
 end;
 for i:=1 to n do
  if a[i]>0 then
   write(a[i],' ');
 writeln;
 for i:=1 to n do
  if a[i]<0 then
   write(a[i],' ');
 readln;
end.

hoc sinh ca biet

bai nay nua nha: cho 1 xau ki tu, viet chuong trinh tinh co bao nhieu ki tu la so, bao nhieu ki tu la chu cai

Code:

uses crt;
var st: string;
 i, c, s: integer;
BEGIN
 clrscr;
 write('Nhap mot xau ki tu : '); Readln(st);
 s:=0;c:=0;
 for i:=1 to length(st) do
 if st[i] in ['0'..'9'] then
  s:=s+1
 else
  c:=c+1;
 writeln('So chu so trong xau: ',s);
 writeln('So chu cai trong xau: ',c);
 readln ;
END.

co ạ giai giup minh bai con lai kia ho minh cại

---------- Bài thêm lúc 21:34 ---------- Bài trước là lúc 21:19 ----------

ah con 1 bai nua:
program VD1;
var f:text;
n, mx, k: longint;
begin
assign(f,'INPUT.DAT');
reset(f);
mx:=-2147483647;
while not eof(f) do
begin
read(f,n);
If n> mx then
begin
mx:=n;
k:=1;
End;
else If n:=mx then k:=k+1;
End;
close(f);
writeln(mx, ' '. k);
End.
cho biet chuong trinh tren thuc hien viec gi?
giup minh nha. thanhks thanks thanks

---------- Bài thêm lúc 22:05 ---------- Bài trước là lúc 21:35 ----------

co ai giup duoc minh 2 bai con lai kia duoc khong?

---------- Bài thêm lúc 22:06 ---------- Bài trước là lúc 22:05 ----------

Help me. Help me

hoc sinh ca biet

ca bai nay nua nha: viet chuong pascal trinh nhap tu ban phim so C, sao cho thuc hien cac yeu cau sau:

+) cho day so: -5, 3, -2, 0, 4, 1, 2, 7, -3.
+) dem xem co bao nhieu so thoa man:
-lon hon C
-nho hon C
-bang C
giup minh giai nhanh minh 3 bai nay nha

Code:

uses crt;
const a: array [1..9] of integer=(-5,3,-2,0,4,1,2,7,-3);
var i,c,d1,d2,d3: integer;

begin
 clrscr;
 write('Nhap C: ');
 readln(c);
 d1:=0;d2:=0;d3:=0;
 for i:=1 to 9 do
 begin
  if a[i]>c then inc(d1);
  if a[i]<c then inc(d2);
  if a[i]=c then inc(d3);
 end;
 writeln('Cac so > c: ',d1);
 writeln('Cac so < c: ',d2);
 writeln('Cac so = c: ',d3);
 readln;
end.