pascal 8

N

nicklily

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 1:nhập từ bàn phím tuổi cha và tuổi con(hiện tại tuổi cha lớn hơn 2 lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25).Đưa ra màn hình câu trả lời cho câu hỏi"bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con.(Có kiểm tra số tuối nhập vào nếu không đúng điều kiện thì thông báo:bạn
nhập sai!Moi ban nhap lai so tuoi cua con va cha dam bao dieu kien).
Bài 2:Nhập vào một số tự nhiên n và nhập vào m(m<=số chữ số của n có kiêm tra nhập vào,nếu m>số chữ số của n thì yêu cầu nhập lại),sau đó tính tổng m các số tận cùng của n(vd:n=23456;m=3 thì tổng =4+5+6=15).
Bài 3:Viết chương trình nhập vào 2 mảng A và B,thực hiện các yêu cầu sau:
a.tìm đoạn con của mảng A có m phantu (m nhỏ hơn hoặc bằng số phần tử nhỏ nhất của A) sao cho tổng các phần tử nhỏ nhất,in ra đoạn con đó.
b.trộn mảng A và B thành mảng C sao cho các phần tử của mảng C cũng sắp xếp theo thứ tự tăng dần(không đc trộn roi ms xếp)

giup minh may bai nay vs!!!!!!!!!!!!!!!
 
H

huutuanbc1234

uses crt;

var tcha,tcon:integer;

begin
clrscr;

while ((tcha<2*tcon) or (tcha-tcon<25)) do
begin
write('Nhap tuoi cha: '); readln(tcha);
write('Nhap tuoi con: '); readln(tcon);
if ((tcha<2*tcon) or (tcha-tcon<25)) then
writeln('Du lieu nhap chua dung. Nhap lai');
end;

if (tcha=2*tcon) then
write('Hien nay tuoi cha gap 2 lan tuoi con')
else
write('Sau ',tcha-2*tcon,' nam thi tuoi cha gap 2 lan tuoi con');
readln;
end.
 
S

syphuongcuong3

nicklily said:
Bài 2:Nhập vào một số tự nhiên n và nhập vào m(m<=số chữ số của n có kiêm tra nhập vào,nếu m>số chữ số của n thì yêu cầu nhập lại),sau đó tính tổng m các số tận cùng của n(vd:n=23456;m=3 thì tổng =4+5+6=15).
Bấm để xem đầy đủ nội dung ...

PHP: 
USES crt;
VAR n,m,S,i:WORD;
    temp:BYTE;
    st:STRING;
BEGIN
    clrscr;
    REPEAT
    write('Nhap n: ');readln(n);
    write('Nhap m: ');readln(m);
    str(n,st);
    UNTIL m<=length(st);
    FOR i:=1 TO m DO
        BEGIN
            temp:=n MOD 10;
            n:=n DIV 10;
            S:=S+temp;
        END;
    write('Tong ',m,' so tan cung: ',S);
    readln;
END.
Bài 3:Viết chương trình nhập vào 2 mảng A và B,thực hiện các yêu cầu sau:
a.tìm đoạn con của mảng A có m phantu (m nhỏ hơn hoặc bằng số phần tử nhỏ nhất của A) sao cho tổng các phần tử nhỏ nhất,in ra đoạn con đó.
b.trộn mảng A và B thành mảng C sao cho các phần tử của mảng C cũng sắp xếp theo thứ tự tăng dần(không đc trộn roi ms xếp)
Bấm để xem đầy đủ nội dung ...
PHP: 
USES crt;
VAR summin,sumtmp:INTEGER;
    i,j,n,pos_start,pos_end:INTEGER;
    A:ARRAY[1..1000] OF INTEGER;
BEGIN
    clrscr;
    write('Nhap n: ');readln(n);
    FOR i:=1 TO n DO
        BEGIN
            write('a[',i,']= ');readln(A[i]);
        END;
    summin:=0;
    FOR i:=1 TO n DO
    BEGIN
        sumtmp:=0;
        FOR j:=i TO n DO
        BEGIN
            sumtmp:=sumtmp+a[j];
            IF (sumtmp<summin) THEN
            BEGIN
                summin:=sumtmp;
                pos_start:=i;
                pos_end:=j;
            END;
       END;
    END;
    FOR i:=pos_start TO pos_end DO
        write(A[i],' ');
    readln;
END.
 
Last edited by a moderator:
You must log in or register to reply here.
Top Bottom