Здесь я буду выкладывать исходники своих программ или исходники участников форума (в ЛС)
Примеры программ
Страница: 1
Сообщений 1 страница 4 из 4
Поделиться102-09-2011 14:47:13
- Администратор
- Зарегистрирован: 30-05-2010
- Приглашений: 0
- Сообщений: 12
- Провел на форуме:
2 часа 0 минут - Последний визит:
06-09-2011 22:58:44
Поделиться202-09-2011 14:57:10
- Администратор
- Зарегистрирован: 30-05-2010
- Приглашений: 0
- Сообщений: 12
- Провел на форуме:
2 часа 0 минут - Последний визит:
06-09-2011 22:58:44
Код:
Тест по таблице умножения
program test;
uses crt;
var s1,s2: integer; {сомножетели}
otvet: integer; {ответ}
begin
clrscr;
randomize;{инициализация случайных чисел}
{s1 и s2 - случайные числа от 2 до 19}
s1:=random(18)+2; s2:=random(18)+2;
write('Сколько будет ',s1,'*',s2,'?: '); readln(otvet);
if otvet=s1*s2 then writeln('Правильно!') else writeln('Неверно');
readln;
end.Поделиться302-09-2011 15:01:58
- Администратор
- Зарегистрирован: 30-05-2010
- Приглашений: 0
- Сообщений: 12
- Провел на форуме:
2 часа 0 минут - Последний визит:
06-09-2011 22:58:44
Вот сделал программу для тех кто не знает как узнать существует ли треугольник с такими-то сторонами:
Код:
program pr;
uses crt;
var a,b,c: real;
begin
clrscr;
write('Введите три действительных числа: '); readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
writeln('Такой треугольник существует!')
else
writeln('Такого треугольника не существует...');
readln;
end.Поделиться402-09-2011 15:05:49
- Администратор
- Зарегистрирован: 30-05-2010
- Приглашений: 0
- Сообщений: 12
- Провел на форуме:
2 часа 0 минут - Последний визит:
06-09-2011 22:58:44
Проверка числа на четность
Код:
program pr2;
uses crt;
var n: integer;
begin
clrscr;
write('Введите число: '); readln(n);
write('Число ',n,' - ');
if n mod 2=0 then writeln('четное') else writeln('нечетное');
readln;
end.Страница: 1