Меню сайта

Дано целое число. Если оно является положительным, то прибавить к нему 1- в противном случае не изменять его. Вывести полученное число.


Program if_1-

Var a:integer-

Begin

Writeln(‘Введите число’)-

Readln(a)-

If a&gt-0 then a:=a+1-

Writeln(‘Полученное число ‘,a)-

Readln-

End.

Категория: Разветвляющиеся программы | Дата: 10.01.13

Дано число. Определить, оканчивается ли данное число на цифру 7.


Program If_10-

var a,b:integer-

Begin

writeln (‘Введите число’)-

readln (b)-

a:=b mod 10-

if (a=7) then writeln (‘Число оканчивается на — 7’) else writeln (‘Число не оканчивается 7’)-

Readln-

end.

Категория: Разветвляющиеся программы | Дата: 10.01.13

Дано число. Определить, является ли данное число четным или нечетным.


Program If_11-

var a:integer-

Begin

writeln (‘Введите число’)-

readln (b)-

if a mod 2 =0 then writeln (‘Число — четное’) else writeln (‘Число нечетное’)-

Readln-

end.

Категория: Разветвляющиеся программы | Дата: 10.01.13

Дано целое число К. Вывести строку-описание оценки, соответствующей числу К( 1- «плохо», 2 –«неудовлетворительно», 3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично». Если К не лежит в диапазоне 1-5, вывести «ошибка».


Program case_1-

Var k:integer-

Begin

Writeln(‘введите оценку’)-

Readln(k)-

Case k of

1:Writeln(‘плохо’)-

(далее…)

Категория: Разветвляющиеся программы | Дата: 09.01.13

Дан номер месяца – целое число в диапазоне 1-12( 1- январь, 2 –февраль и т.д.). Вывести название времени года («зима», «весна», «лето», «осень»).


Program case_3-

Var k:integer-

Begin

Writeln(‘введите номер месяца -‘)-

Readln(k)-

Case k of

1,2,12:Writeln(‘зима’)-

3-5:Writeln(‘весна’)-

6..8:Writeln (‘лето’)-

(далее…)

Категория: Разветвляющиеся программы | Дата: 09.01.13

Ввести возраст от 1 до 99. В зависимости от введенного возраста вывести фразу «Мне…лет(год, года)»


Program case_4-

Var k:integer-

Begin

Writeln(‘Введите возраст’)-

Readln(k)-

Case — k mod 10 of

1:Writeln(‘Мне ‘,k,’ год’)-

2..4:Writeln(‘Мне ‘,k,’ года’)-

0,5..9:Writeln (‘Мне ‘,k,’лет’)-

Else Writeln(‘такого возраста не существует’)-

(далее…)

Категория: Разветвляющиеся программы | Дата: 09.01.13

Ввести номер месяца. Определить по введенному номеру – квартал.


Program Case_5- —

var — — — -n:integer- —

begin

write(‘Введите номер месяца:’)-

readln(n)-

case n of

1..3 :writeln(‘Первый квартал’)- —

4..6 :writeln(‘Второй квартал’)-

7..9 : writeln(‘Третий квартал’)-

10..12: writeln(‘Четвертый квартал’)
(далее…)
Категория: Разветвляющиеся программы | Дата: 08.01.13

Некоторыйавтомат может запросить два числа и выполнить 3 команды. — Команда а преобразует имеющуюся пару чисел(х,у) в пару (х-у,у) команда б преобразует пару чисел (х,у) в пару (х+у,у)команда с преобразует пару (ч,у) в (у,х) Составьте алгоритм и программу работыавтомата.

uses crt-

varx,y,number:integer-

(далее…)

Категория: Разветвляющиеся программы | Дата: 08.01.13

Составьтеалгоритм и программу выбирающую из трех чисел то которое лежит между двумядругими.

uses crt-

vara,b,c,low,high,mid:integer-

begin-

clrscr-

writeln(‘Введите три числа(после каждрого ENTER)’)-

readln(a)-

readln(b)-

readln(c)-

low:=a-

high:=a-

IF b &lt- low THENlow:=b-

IF c &lt- low THENlow:= c-

IF b &gt- high THENhigh := b-

(далее…)

Категория: Разветвляющиеся программы | Дата: 08.01.13

Определитьв какие отряды распределят детей.

uses crt-

var adge:integer-

begin-

clrscr-

writeln(‘Введите возраст ребенка’)-

readln(adge)-

IF (adge &gt- 5)and (adge &lt-= 7) THEN writeln(‘5-й отряд’)-

IF (adge &gt- 7)AND (adge &lt-= 9) THEN writeln(‘4-й отряд’) —

IF (adge &gt- 9)AND (adge &lt-= 11) THEN writeln(‘3-й отряд’) —

(далее…)

Категория: Разветвляющиеся программы | Дата: 07.01.13

Страница 1 из 41234
Меню раздела
Блок