Условный оператор и оператор выбора. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (→Ссылки) |
Mikst (обсуждение | вклад) Нет описания правки |
||
(не показано 13 промежуточных версий этого же участника) | |||
Строка 1: | Строка 1: | ||
__NOTOC__ | __NOTOC__=== Минимум из двух значений === | ||
=== Минимум из двух значений === | |||
<source lang="Delphi">var | <source lang="Delphi">var | ||
x,y: integer; | x,y: integer; | ||
Строка 62: | Строка 61: | ||
end.</source> | end.</source> | ||
=== Наименование сезона по номеру месяца === | === Наименование сезона по номеру месяца === | ||
<source lang="Pascal">var | |||
Month: integer; | |||
Season: string; | |||
begin | |||
write('Введите номер месяца: '); | |||
readln(Month); | |||
if (Month=1) or (Month=2) or (Month=12) then | |||
Season := 'Зима' | |||
else if (Month=3) or (Month=4) or (Month=5) then | |||
Season := 'Весна' | |||
else if (Month=6) or (Month=7) or (Month=8) then | |||
Season := 'Лето' | |||
else Season := 'Осень'; | |||
writeln('Это ',Season) | |||
end.</source> | |||
=== Определение четверти, в которой находится точка === | === Определение четверти, в которой находится точка === | ||
<source lang="Delphi">var | |||
x,y: integer; // Координаты точки | |||
Quater: integer; // Номер четверти | |||
begin | |||
write('Введите координаты точки: '); | |||
readln(x,y); | |||
if x>0 then | |||
if y>0 then | |||
Quater := 1 | |||
else Quater := 4 | |||
else | |||
if y>0 then | |||
Quater := 2 | |||
else Quater := 3; | |||
writeln('Номер четверти = ',Quater); | |||
end.</source> | |||
=== Нахождение корней квадратного уравнения === | === Нахождение корней квадратного уравнения === | ||
=== Словесное наименование | <source lang="Delphi">var | ||
a,b,c: real; | |||
x1,x2,D: real; | |||
begin | |||
writeln('Введите коэффициенты a,b,c квадратного уравнения a*x*x+b*x+c=0: '); | |||
readln(a,b,c); | |||
D := b*b - 4*a*c; | |||
if D<0 then | |||
writeln('Корней нет') | |||
else if D=0 then | |||
begin | |||
x1 := -b/2/a; | |||
writeln('Корни совпадют: x1=x2=',x1); | |||
end | |||
else | |||
begin | |||
x1 := (-b-sqrt(D))/2/a; | |||
x2 := (-b+sqrt(D))/2/a; | |||
writeln('Корни: x1=',x1:0:3,' x2=',x2:0:3); | |||
end; | |||
end.</source> | |||
=== Словесное наименование сезона по номеру месяца === | |||
<source lang="Pascal">var | |||
Month: integer; | |||
Season: string; | |||
begin | |||
write('Введите номер месяца: '); | |||
readln(Month); | |||
case Month of | |||
1,2,12: Season := 'Зима'; | |||
3..5: Season := 'Весна'; | |||
6..8: Season := 'Лето'; | |||
9..11: Season := 'Осень'; | |||
else Season := 'Вы ввели неверный номер месяца'; | |||
end; | |||
writeln('Это ',Season) | |||
end.</source> | |||
=== Определение того, является ли символ цифрой или буквой === | === Определение того, является ли символ цифрой или буквой === | ||
<source lang="Delphi">var | |||
Symbol: char; | |||
begin | |||
write('Введите символ: '); | |||
readln(Symbol); | |||
case Symbol of | |||
'a'..'z': writeln('Это маленькая английская буква'); | |||
'A'..'Z': writeln('Это большая английская буква'); | |||
'0'..'9': writeln('Это цифра'); | |||
end; | |||
end.</source> | |||
== Ссылки == | == Ссылки == | ||
[[ | *[[Программы для начинающих]] | ||
*[http://pascalabc.net/ru/programmyi-i-algoritmyi-dlya-nachinayuschih.html Сайт PascalABC.NET: Программы и алгоритмы для начинающих] |
Текущая версия от 21:33, 2 февраля 2010
Минимум из двух значений
var
x,y: integer;
min: integer;
begin
write('Введите x и y: ');
readln(x,y);
if x<y then
min := x
else min := y;
writeln('Минимум = ',min);
end.
Определение четности числа
var x: integer;
begin
write('Введите x: ');
readln(x);
if x mod 2 = 0 then
writeln('Это четное число')
else writeln('Это нечетное число');
end.
Состоит ли двузначное число из одинаковых цифр
Код на PascalABC.NET:
var x: integer;
begin
write('Введите двузначное число: ');
readln(x);
var c1 := x div 10;
var c2 := x mod 10;
if c1=c2 then
writeln('Цифры числа совпадают')
else writeln('Цифры числа не совпадают');
end.
Упорядочение двух значений по возрастанию
var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
if x>y then
begin
v := x;
x := y;
y := v
end;
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
Проверка числа на двузначность
var x: integer;
begin
write('Введите x: ');
readln(x);
if (x>=10) and (x<=100) then
writeln('Двузначное число')
else writeln('Не двузначное число')
end.
Наименование сезона по номеру месяца
var
Month: integer;
Season: string;
begin
write('Введите номер месяца: ');
readln(Month);
if (Month=1) or (Month=2) or (Month=12) then
Season := 'Зима'
else if (Month=3) or (Month=4) or (Month=5) then
Season := 'Весна'
else if (Month=6) or (Month=7) or (Month=8) then
Season := 'Лето'
else Season := 'Осень';
writeln('Это ',Season)
end.
Определение четверти, в которой находится точка
var
x,y: integer; // Координаты точки
Quater: integer; // Номер четверти
begin
write('Введите координаты точки: ');
readln(x,y);
if x>0 then
if y>0 then
Quater := 1
else Quater := 4
else
if y>0 then
Quater := 2
else Quater := 3;
writeln('Номер четверти = ',Quater);
end.
Нахождение корней квадратного уравнения
var
a,b,c: real;
x1,x2,D: real;
begin
writeln('Введите коэффициенты a,b,c квадратного уравнения a*x*x+b*x+c=0: ');
readln(a,b,c);
D := b*b - 4*a*c;
if D<0 then
writeln('Корней нет')
else if D=0 then
begin
x1 := -b/2/a;
writeln('Корни совпадют: x1=x2=',x1);
end
else
begin
x1 := (-b-sqrt(D))/2/a;
x2 := (-b+sqrt(D))/2/a;
writeln('Корни: x1=',x1:0:3,' x2=',x2:0:3);
end;
end.
Словесное наименование сезона по номеру месяца
var
Month: integer;
Season: string;
begin
write('Введите номер месяца: ');
readln(Month);
case Month of
1,2,12: Season := 'Зима';
3..5: Season := 'Весна';
6..8: Season := 'Лето';
9..11: Season := 'Осень';
else Season := 'Вы ввели неверный номер месяца';
end;
writeln('Это ',Season)
end.
Определение того, является ли символ цифрой или буквой
var
Symbol: char;
begin
write('Введите символ: ');
readln(Symbol);
case Symbol of
'a'..'z': writeln('Это маленькая английская буква');
'A'..'Z': writeln('Это большая английская буква');
'0'..'9': writeln('Это цифра');
end;
end.