Меню сайта

Кол-во дней в месяцах.

uses crt-

var m,year:integer-

begin-

clrscr-

writeln(‘Високосный ли год (1-да,0-нет)’)-

readln(year)-

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

readln(m)-

IF m = 1 THENwriteln (‘январь, 31-день’)-

IF (m = 2) AND(year = 0) THEN writeln (‘февраль(невисокосный), 28-дней’)-

IF (m = 2) AND(year = 1) THEN writeln (‘февраль(високосный), 29-дней’)-

(далее…)

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

Угадывание целых чисел.

uses crt-

varnumber,partner:integer-

label 1-

begin-

clrscr-

writeln(‘Первый игрок, введите число’)-

readln(number)-

clrscr-

writeln(‘Второй игрок, ваш ход’)-

1:

readln(partner)-

IF partner &gt-number THEN

-begin

-writeln (‘меньше’)- GOTO 1-

-end-

IF partner &lt-number THEN

-begin

(далее…)

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

Подсчитываниекол-во кругов ученика.

uses crt-

varask,number:integer-

label 1-

begin-

clrscr-

1:

writeln(‘Пробежишь еще кружочек ? (1-да,2-нет)’)-

readln(ask)-

IF ask = 1 THEN

begin

number := number +1- clrscr- GOTO 1-

end-

IF ask = 2 THEN

begin

writeln(‘На нет и суда нет. Ты пробежал ‘, number, ‘ кругов’)-

halt-

end-

(далее…)

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

Дано 3 целых числa. Найти количество положительных в исходном наборе.


Program if_4-

Var a,b,c,k1:integer-

Begin

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

Readln(a)-

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

Readln(b)-

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

Readln(c)-

k1:=0-

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

If b&gt-0 then k1:=k1+1-

If c&gt-0 then k1:=k1+1-

Writeln(‘Количество положительных чисел ‘,k1)-

(далее…)

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

Дано 3 целых числa. Найти количество положительных чисел и количество отрицательных чисел в исходном наборе.


Program if_5-

Var a,b,c,k1,k2:integer-

Begin

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

Readln(a)-

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

Readln(b)-

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

Readln(c)-

k1:=0-

If a&gt-0 then k1:=k1+1 else if a&lt-0 then k2:=k2+1-

(далее…)

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

Дано 2 целых числa. Вывести большее из них.


Program if_6-

Var a,b:integer-

Begin

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

Readln(a)-

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

Readln(b)-

If a&gt-b then Writeln(‘Наибольшее ‘,a) else Writeln(‘Наибольшее ‘,b)

Readln-

End.

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

Дано 2 целых числa. Вывести порядковый номер меньшего из них.


Program if_7-

Var a,b:integer-

Begin

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

Readln(a)-

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

Readln(b)-

If a&lt-b then Writeln(‘Наименьшее 1-е’) else Writeln(‘Наименьшее 2-е ‘)

Readln-

End.

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

Даны 2 переменные целого типа A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения А и B.


Program if_8-

Var a,b:integer-

Begin

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

Readln(a)-

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

Readln(b)-

(далее…)

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

Даны 3 числа. Определить, можно ли построить треугольник с указанными сторонами.


program if_9-

uses crt-

var a,b,c:integer-

begin

clrscr-

writeln (‘Введите стороны треугольника -a,b,c’)-

readln (a,b,c)-

if (a&gt-0) and (b&gt-0) and (c&gt-0) then

if (a&lt-b+c) and (b&lt-c+a) and (c&lt-a+b) then

writeln (‘треугольник существует’)

(далее…)

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

Вычислить значение —cиспользованием функции.


Program func_1-

Uses crt-

Var n,x:real-

function fc(a:real):real-

var y:real-

begin

y:=sqrt(a)+a-

fc:=y-

end-

begin

write(‘введите -n:’)-

readln(n)-

x:=fc(n)-

writeln(‘x=’,x:5:3)-

readln-

end.

Категория: Подпрограммы | Дата: 01.01.13

Страница 40 из 230« Первая...102030...3839404142...506070...Последняя »
Меню раздела
Блок