Программирование 10 класс. Язык паскаль.
10-11 класс
|
В зависимости от количества введенных лет (от 1 до 20) вывести сообщение типа:
мне 3 года
мне 15 лет
мне 1 год
Program k1;
var a: integer;
begin
writeln ('Введите число От 1 до 20');
readln (a);
if a = 1 then
writeln('Мне 1 год');
if a = 2 then
writeln('Мне 2 года');
if a = 3 then
writeln('Мне 3 года');
if a = 4 then
writeln('Мне 4 года');
if a = 5 then
writeln('Мне 5 лет');
if a = 6 then
writeln('Мне 6 лет');
if a = 7 then
writeln('Мне 7 лет');
if a = 8 then
writeln('Мне 8 лет');
if a = 9 then
writeln('Мне 9 лет');
if a = 10 then
writeln('Мне 10 лет');
if a = 11 then
writeln('Мне 11 лет');
if a = 12 then
writeln('Мне 12 лет');
if a = 13 then
writeln('Мне 13 лет');
if a = 14 then
writeln('Мне 14 лет');
if a = 15 then
writeln('Мне 15 лет');
if a = 16 then
writeln('Мне 16 лет');
if a = 17 then
writeln('Мне 17 лет');
if a = 18 then
writeln('Мне 18 лет');
if a = 19 then
writeln('Мне 19 лет);
if a = 20 then
writeln('Мне 20 лет');
end;
Эту программу можно было легче через оператор CASE делать) но мы не ищем легких путей
Другие вопросы из категории
решить задачу:
Для
данного x вычислить значение функции, заданной системой:
ab!cd+!abc!d+!ab!cd+!abcd+abcd+!ab!cd
а) 143
б)270
в)311
Читайте также
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
уменьшается в 10 раз. На языке паскаль
10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за N дней? Разработать схему алгоритма для решения этой задачи.

2. Выпишите недопустимые имена переменных:
a) Nomer;
b) S34;
c) И92;
d) Kol_vo54;
e) 45_A;
i) fg-л23
3. Установите соответствие (с помощью стрелок) между переменной и типом данных:
а) A:=3.234 а) Integer
b) Z:=14 b) Real
c) B:=10351 c) Byte
d) K:=-0.2 d) Word
e) C:= 64000
4. Запишите инструкцию:
а) присваивающую переменной V значение 7;
б) увеличивающую значение переменной Z на 30;
в) вычисляющую значение переменной R по формуле (X2+Y2):2;
5. Опишите переменные, необходимые для вычисления:

при x=-5.3, y=7.42
6. Напишите инструкцию вывода на экран:
а) вашего имени б) числа 400 в) значения выражения 7,3(3,22+8,61)
7. Определите, какое значение примет переменная С в результате выполнения данной последовательности операторов присваивания:
a:=8; b:=a/2; c:=43 mod a; a:=(b+c) div 6; b:=b+1; c:=sqrt(abs(a*b-14));
8. Установите соответствие между служебными словами и названиями разделов программы:
а) Var а) Раздел операторов
b) Program b) Раздел имени программы
c) Uses c) Раздел описания переменных
d) Begin …end d) Раздел описания библиотечных модулей
9. Найдите ошибки в записях оператора:
a) Write ©;
b) Writeln;
c) Writeln (Введите любое число);
d) Write X,Y;
e) WRITELN (‘воскресенье, нерабочий день’);
10. Какая структура программы верная:
begin
program MyFirst;
X:=Y+195;
end.
program MyProg;
begin
Writeln (‘Привет’);
end.
11. Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма:
1) S:=a*h;
6) var a,b,h,p,s: integer;
2) end.
7) readln;
3) program pr;
8) Writeln(‘p=’,p,’ s=’,s);
4) p:=2*(a+b);
9) a:=6;b:=3;h:=4;
5) Uses crt;
10) clrscr;
11) begin
12. Дан текст программы в таблице с ошибками:
исправьте ошибки в программе;что выведется на экран в результате выполнения программы?
Программа с ошибками
Программа без ошибок
На экране будет напечатано:
War: a,b,c – integer, x: real;
Bigin
A=7, b=3,2, c:=a+b;
Writln (summa=, c);
C:=c/2; x:=a-c;
Writeln(‘x=’ , x, ‘kvadrat=’, x*x);
and
13. Перевести блок-схему на язык Паскаль.
Вычисление расстояния между точками А и B.