Var a,b:integer;
c:real;
Begin
writeln ('Сколько своих финансов Вы положили?');
readln (a);
c:=a+(a*0.6)/4;
writeln ('В итоге через 3 месяца забрать можно будет ',c);
end.
10.Розничная цена мужского костюма составляет Р руб. Торговая скидка в пользу магазина Т % розничной цены. Составьте программу определения оптовой цены костюма.
Program lab_rab_110;
uses crt;
Var a,b:integer;
c:real;
Begin
writeln ('Сколько стоит костюм в розницу?');
readln (a);
Writeln ('А скидка какая?');
readln (b);
c:=a-a*b/100;
writeln ('Оптом: ',c);
end.
11.Составить программу, определяющую, сколько времени в минутах затратит школьник на дорогу от школы до стадиона, если известна длина этого расстояния S и средняя скорость движения школьника V км/час. Значения S и V задать с клавиатуры.
Program lab_rab_110;
uses crt;
Var a,b:integer; c:real;
Begin
writeln ('Длина?'); readln (a);
Writeln ('Скорость?'); readln (b); c:=(a/b)*60;
writeln ('Время в минутах: ',c);
end.
12.Составить программу, вычисляющую, сколько процентов от А+В–С приходится на А, на В, на С.
Program lab_rab_104;
uses crt;
var a,b,c:real;
d:real;
Begin
readln (a,b,c);
d:=a+b+c;
a:=a/d*100;
b:=b/d*100;
c:=c/d*100;
writeln ('На а приходится ',a,'%; На b приходится ',b,'%; На с приходится ',c,'%');
end.
13.Составить программу, которая изображает на экране домик:
*
* *
* *
***********
* *
***********
Program za_chto;
uses crt;
begin
writeln (' * ');
writeln (' * * ');
writeln (' * * ');
writeln ('***********');
writeln ('* *');
writeln ('***********');
end.
Разветвленный вычислительный процесс
1.Написать программу-модель анализа пожарного датчика в помещении, которая выводит сообщение «Пожароопасная ситуация», если температура в комнате превысила 60 град. С
Program lab_rab_21;
uses crt; var a:real;
Begin
writeln ('Введите температуру');
readln (a);
if a>60 then writeln ('Пожарная ситуация!');
readln;
end.
2.Написать программу, которая из двух вводимых Вами чисел печатает заключение о том, какое число больше.
Program lab_rab_22;
uses crt;
Var a,b:real;
Begin
writeln ('Введите 2 числа:');
readln (a,b);
if a>b then writeln ('Наибольшее число: ', a)
else writeln ('Наибольшее число: ', b);
readln;
end.
3.Рис расфасован в два пакета. Вес первого – М кг, второго – Н кг. Составить программу, определяющую какой пакет тяжелее – первый или второй.
Program lab_rab_23;
uses crt;
var m,h:real;
Begin
writeln ('Первого пакета и второго вес введи ты, юный падаван!');
readln (m,h);
if m>h then writeln('Первый пакет тяжелее второго у тебя')
else writeln ('Вес второго пакета превысил первый сейчас');
readln;
end.
4.Из пяти чисел A, B, C, D, E выбрать наибольшее.
Program lab_rab_24 ;
uses crt;
var a,b,c,d,e,max: real;
begin
clrscr;
writeln('введите пять чисел');
readln(a,b,c,d,e);
max:=0;
if a>b then max:=a else max:=b;
if c>max then max:=c;
if d>c then max:=d;
if e>d then max:=e;
writeln('максимальное значение ', max:6:0);
end.
5.Составить программу, проверяющую, верно ли утверждение, что введенное целое число делится без остатка на 3.
Program lab_rab_25;
uses crt;
var a:integer;
Begin
writeln ('Введите целое число');
readln (a);
if (a mod 3) =0 then writeln ('Ваше число делится без остатка на 3')
else writeln ('Неа, не делится без остатка на 3 :(');
readln;
end.
6.Написать программу, которая анализирует человека по возрасту и относит его к одной из четырех групп: дошкольник, ученик, работник, пенсионер.
Program lab_rab_26;
uses crt; var a:real;
Begin
writeln ('Введите возраст человека'); readln (a);
if (a>0)and(a<=6) then writeln ('Дошкольник');
if (a>6)and(a<=18) then writeln ('Школьник');
if (a>18)and(a<=65) then writeln ('Работник');
if a>65 then writeln ('Пенсионер'); readln;
end.
7.Составить программу, определяющую, входит ли введенная Вами цифра в десятичную запись введенного Вами трехзначного числа, и печатающую сообщение о том, входит ли эта цифра в запись числа или нет.
Program lab_rab_27;
uses crt;
var a,x,b,c,d:integer;
Begin
writeln ('Введите трёхзначное число');
readln (a);
writeln ('Введите цифру, которую будем искать');
readln (x);
b:= a mod 100;
b:= b mod 10; {Нашли единицу}
c:= (a-b) mod 100;
c:= c div 10; {Нашли десяток,наверное}
d:= (a-b-c) div 100; {Нашли сотню}
if (x=b)or(x=c)or(x=d) then writeln ('Введенная цифра входит в число')
else writeln ('Введенная цифра не входит в число');
readln;
end.
8.Составить программу, реализующую эпизод применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг и сумму денег, внесенную покупателем. Если сдачи не требуется, то на экране печатается «спасибо». Если денег внесено больше, то печатает «возьмите сдачу» и указывает сумму сдачи. Если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы.
Program lab_rab_28;
uses crt;
var a,b,c,d:real;
Begin
write ('Введите стоимость книг '); readln (a);
write ('Введите сумму денег, внесённые вами '); readln (b);
c:=a-b;
d:=b-a;
if a=b then writeln ('Спасибо за покупку! Приходите ещё.');
if a>b then writeln ('К сожалению, вам не достаточно ',c, ' единиц валюты для покупки');
if a<b then writeln ('Возьмите сдачу в кол-ве ', d, ' единиц валюты');
readln;
end.
9.В ПК поступают результаты соревнований по плаванию для трех спортсменов. Составить программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя заплыва.
Program lab_rab_29;
uses crt;
var a,b,c:real;
Begin
writeln ('Введите результаты трёх спортсменов по порядку');
readln (a,b,c);
if (a>b)and(a>c) then writeln ('Победил первый спортсмен');
if (b>a)and(b>c) then writeln ('Победил второй спортсмен');
if (c>b)and(c>a) then writeln ('Победил третий спортсмен');
readln;
end.
10.Написать программу, которая по паролю будет определять степень доступности сотрудника к секретной информации в базе данных. Доступ к базе имеют только 6 человек, разбитых на три группы по степени доступа. Они имеют следующие пароли:
9583, 1747 – доступны модули базы А, Б, С
3331, 7922 – доступны модули базы Б, С
9455, 8997 – доступен модуль базы С.
Program lab_rab_210;
uses crt;
var a,b,c,d:real;
begin
write ('Введите свой пароль:'); readln (a);
if (a=9583) or (a=1747) then writeln ('Доступны модули базы А, Б, С');
if (a=3331 )or (a=7922) then writeln ('Доступны модули базы Б, С');
if (a=9455 )or (a=8997) then writeln ('Доступен модуль базы С');
if (a<>9583)and(a<>1747)and(a<>3331)and(a<>7922)and(a<>9455)and(a<>8997)
then writeln (' Ошибка ввода пароля!');
readln;
end.
11.Составить программу, которая по введенному Вами m-числу грибов печатает фразу «Мы нашли в лесу m грибов», причем согласовывает окончание слова «гриб» с числом m. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры.
Program lab_rab_211;
uses crt;
var a:integer;
begin
readln (a);
if ((a mod 10)=1)and(a<>11) then writeln ('Мы нашли ', a, ' гриб');
if ((a mod 10)>1)and((a mod 10) <5) then writeln ('Мы нашли ', a, ' гриба');
if ((a mod 10)>4)and((a mod 10) <=10) or ((a mod 10)=0) or (a=11)
then writeln ('Мы нашли ', a, ' грибов');
readln;
end.
12.Составить программу, которая для целого числа k (от 1 до 99), введенного Вами, напечатает фразу «Мне k лет», где k – введенное число, при этом в нужных случаях слово «лет», заменяя на слово «год» или «года». Например, при k=70 «Мне 70 лет», при k=15 «Мне 15 лет», при k=23 «Мне 23 года».
Program lab_rab_211;
uses crt;
var a:integer;
begin
writeln ('Каков Ваш возраст?');
readln (a);
if ((a mod 10)=1)and(a<>11) then writeln ('Мне ', a, ' год');
if ((a mod 10)>1)and((a mod 10) <5) then writeln ('Мне ', a, ' года');
if ((a mod 10)>4)and((a mod 10) <=10) or ((a mod 10)=0) or (a=11)
then writeln ('Мне ', a, ' лет');
readln;
end.