UC知道谁会Pascal语言？跪求帮忙！
来源：百度知道 编辑：UC知道 时间：2024/05/17 05:34:13
1、 已知一辆自行车的售价是300元，从键盘输入自行车数目a，请编程计算a辆自行车的总价是多少，并输出计算结果。
2、 某梯形的上底、下底
和高分别为8，12，9，求该梯形的面积并输出。
( 梯形面积公式为 S=
3、计算某次考试语文、数学、英语和计算机等四科的总成绩与平均成绩并输出。
(请用输入语句从键盘输入各科成绩分)
4、 服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价
格为80元。编程由键盘输入订购套数，输出应付款的金额数。（if…then…else语句）
5、 输出1至10的立方数表。（while…do语句）
6、 从键盘输入矩形的长和宽，计算并输出该矩形的周长和面积
7、 乘法计算器：编程由键盘输入两个整数a和b，计算并输出它们的乘积。
8、 假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。编程由键盘输入邮件重量，输出应收的邮费。
9、 从键盘输入一个整数，判断其是否是偶数即能否被2整除，如果是输出‘yes’，否则输出‘no’ （提示：整除用mod运算符判断）
10、 输入二个整数a，b，求其中的较小数并输出。
11、从键盘输入三角形的底和高，计算并输出该三角形面积。
12、编写程序，根据输入的考试分数判断等级，如果该分数大于或等于80，则输出“A”；如果该分数大于等于60且小于80则输出“B”；如果该分数小于60则输出“C”。（if…then语句）
=========================
一个朋友的考试题。。帮帮忙。。我只会VB，Pascal没接触过。谢谢了。。谢谢了，祝您鼠年发大财，平平安安！
2、 某梯形的上底、下底
和高分别为8，12，9，求该梯形的面积并输出。
( 梯形面积公式为 S=
3、计算某次考试语文、数学、英语和计算机等四科的总成绩与平均成绩并输出。
(请用输入语句从键盘输入各科成绩分)
4、 服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价
格为80元。编程由键盘输入订购套数，输出应付款的金额数。（if…then…else语句）
5、 输出1至10的立方数表。（while…do语句）
6、 从键盘输入矩形的长和宽，计算并输出该矩形的周长和面积
7、 乘法计算器：编程由键盘输入两个整数a和b，计算并输出它们的乘积。
8、 假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。编程由键盘输入邮件重量，输出应收的邮费。
9、 从键盘输入一个整数，判断其是否是偶数即能否被2整除，如果是输出‘yes’，否则输出‘no’ （提示：整除用mod运算符判断）
10、 输入二个整数a，b，求其中的较小数并输出。
11、从键盘输入三角形的底和高，计算并输出该三角形面积。
12、编写程序，根据输入的考试分数判断等级，如果该分数大于或等于80，则输出“A”；如果该分数大于等于60且小于80则输出“B”；如果该分数小于60则输出“C”。（if…then语句）
=========================
一个朋友的考试题。。帮帮忙。。我只会VB，Pascal没接触过。谢谢了。。谢谢了，祝您鼠年发大财，平平安安！
楼上那位！我发现了一个错！！！！！！
3.program ans3;
var mat,chi,eng,com,to,av:real;
begin
writeln('input:');
readln(mat,chi,eng,com);
to:=mat+chi+eng+com;
av:=to/3;
writeln(to,av:5:2);
end.
===================================
希望考虑周全点，成绩可能是XX.5啊！
（时间紧促没有细看，似乎还有一个错误，试了半天也不对，可就是看不出，请检查一下，谢谢！）
楼上那位，他用的本来就是real小数，有错么？
但是av:=to/3;
应该是av:=to/4;吧？
1.program ans1;
var a,b:integer;
begin
writeln('a:');
read(a);
b:=300*a;
writeln(b);
end.
2.program ans2;
const
a=8;
b=12;
h=9;
var s:real;
begin
s:=(a+b)*c/2;
writeln(c);
end.
3.program ans3;
var mat,chi,eng,com,to:integer;av:real;
begin
writeln('input:');
readln(mat,chi,eng,com);
to:=mat+chi+eng+com;
av:=to/4;
writeln(to,av:5:2);
end.
4 .program ans4;
var a,b:integer;
begin
readln(a);