Домашняя задача

Домашняя задача на счастливые билеты, которую Паскаль не смог так просто посчитать без переменной типа longint, о котором вы нам не говорили. Это нечестно! Мы не сможем решить задачу, если при совешении команды (666777 div 100000) будет выводиться число 11! Меня обсмеяли дома с моими integer, real и прочими тщетными попытками хоть что-то с этим сделать.

Все действия (вычисление трех переменных в отдельности и их сложение) ради удобства объединила в одно большое вычисление, потому что 6 переменных... Это было очень длинно и некрасиво. Отсюда, кстати, переменная f, которая была последней в изначальном длином списке.

П.с. На втором скриншоте обрезаны все мои провальные вычисления, где при делении 123321 на 10000 получалось 1207 и прочие странные числа.

...

Домашнее задание: задача на степень числа Х.
Program One;
Var x,n,a,b:integer;
begin
writeln('Vvedite x,n');
readln(x,n);
b:=x;
for a:=2 to n do
x:=x*b;
writeln('x^',n,'=',x);
readln;
end.

Задача на треугольники

Program Triangle;

Var a,b,c:integer;

begin

writeln('Vvedite 3 chisla');

readln(a,b,c);

If (a<b+c)and(b<a+c)and(c<a+b) then writeln('F=1')

else writeln('F=0');

readln;

end.

Домашнее задание

1) Полное ветвление программируется с помощью if-then и else, неполное - без использования else. 

2) Составной оператор - последовательность операторов, заключенная между служебными словами begin и end. Он используется, если на какой-то из ветвей оператора ветвления находится несколько последовательных операторов.

Домашнее задание

Мы с Мезенцевой Аленой сделали домашнее задание на уроке - оно сохранено в моей папке на pdc под именами LAB, LAB1 ( или LAB_1, точно не помню).

Домашнее задание

№6

Program One;

Var a,b,c,d,m,n:integer;

begin

writeln('Vvedite znacheniya chislitelya i znamenatelya pervoi drobi');

readln(a);

readln(b);

writeln('Vvedite znacheniya chislitelya i znamenatelya vtoroi drobi');

readln(c);

readln(d);

m:=a*d+c*b;

n:=b*d;

writeln('Summa ravna');

writeln(m,'/',n);

readln;

end.

№7

Program Two;

Var x,y:integer;

begin

writeln('Vvedite znacheniye x');

readln(x);

y:=(1-x*x+5*x*x*x*x)*(1-x*x+5*x*x*x*x);

writeln('y =',y);

readln;

end.

№8

a)Program Three;

Var x,y:integer;

begin

writeln('Vvedite znacheniye x');

readln(x);

y=x*x*x*x*x*x*x*x;

writeln('y =',y);

readln;

end.

b)Program Three_1;

Var x,y:integer;

begin

writeln('Vvedite znacheniye x');

readln(x);

y=x*x*x*x*x*x*x*x*x*x;

writeln('y =',y);

readln;

end.

c)Program Three_2;

Var x,y:integer;

begin

writeln('Vvedite znacheniye x');

readln(x);

y=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;

writeln('y =',y);

readln;

end.

d)Program Three_3;

Var x,y:integer;

begin

writeln('Vvedite znacheniye x');

readln(x);

y=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;

writeln('y =',y);

readln;

end.

№9

Program Four;

Var a,b,c,d:integer;

begin

writeln('Vvedite znacheniya peremennyh');

readln(a);

readln(b);

readln(c);

d:=c;

c:=b;

b:=a;

a:=d;

writeln('A =',a);

writeln('B =',b);

writeln('C =',c);

readln;

end.

P.S. Они все работают! Правда! Я проверяла.