Прокомментировать код

@pokaZuha_boy · Регистрация: 09.11.2011

Author24 — интернет-сервис помощи студентам

Ситуация следующая: знакомый написал программу,которую надо было сросно сдать(для промежуточной аттестации)и уехал в командтровку-на связь не выходит.В итоге у меня на руках идеально работающая программа,но объяснить как я ее решал не могу.
Большая просьба для крутых программеров:объясните в чем общая идея решения для таких задач и по возможности прокомментируйте поэтапно программу(напрмер ввели число и поделили его целочисленно/с остатком для того чтобы..., здесь ипользум оператор с предусловием и т.д.)

Собственно сам материал:
Program Pr21;
1. Вводится целое число, большее 7. Написать программу, которая будет раскладывать введенное число на сумму чисел 5 и 3 таким образом, чтобы количество пятерок в этом разложении было максимальным.

Pascal

Uses crt;
Var x,c,b,f:integer ;
 
begin
  clrscr;
  x:=0;
  while x<8 do
  begin
  writeln('Vvedite chislo bolshe 7');
  readln(x);
  end;
  c:=x div 5;
  b:=x mod 5;
  if b>0 then
       begin
       if b=3 then
       f:=b div 3
       else
          begin
          while x>0 do
          begin
          b:=b+5;
          c:=c-1;
          x:=b mod 3;
          f:=b div 3;
          end;
          end;
       end;
  writeln('Pyaterok: ',c);
  writeln('Troek: ',f);
  write('dlya vihoda davi na Enter');
  readln;
end.

Препод также спросил,почему число больше 7.Я ответил,что по условию.Ее не устроило.
Потом понял,что мы не можем брать числа меньшие семи т.к. потом в программе появятся дроби-прав ли я?

И еще
Кто может укажите ошибки в следующих программах(или предложите альтернативный вариант.)»Плохо» работают или не работают все задачи кроме последней.

2. Найти все положительные четырехзначные числа, для которых одновременно выполняются следующие условия:
• в его состав входят разные цифры;
• разность двух чисел, составленных из первых двух цифр и двух последних, равна сумме его цифр.
Задачу решить, используя в алгоритме наименьшее количество повторов в циклах.

Pascal

program pr2;
uses crt;
var i,n,c1,c2,c3,c4:integer;
begin
n:=0;
for i:=1000 to 9999 do
begin
c1:=i div 1000;
c2:=(i div 100) mod 10;
c3:=(i div 10) mod 10;
c4:=i mod 10;
if(c1=c2)or(c1=c3)or(c1=c4)or(c2=c3)or(c2=c4)or(c3=c4) then continue;
if(10*c1+c2)-(10*c3+c4)=c1+c2+c3+c4 then
writeln(i);
end;
writeln(n);
readln;
end.

3. Найти число "счастливых" билетов в катушке, состоящей из 1000000 билетов с шестизначными номерами. "Счастливым" считается билет, у которого суммы трех первых и трех последних цифр совпадают.

Первый вариант программы

Pascal

rogram Project3;
Uses CRT;
var i,n:longint;
begin
clrscr;
n:=0;
for i:=111110 to 999999 do
if (i mod 10)+((i div 10)mod 10)+((i div 100)mod 10) =
((i div 1000)mod 10)+((i div 10000)mod 10)+(i div 100000)
then inc(n);
writeln(n);
writeln('Davi Enter');
readln;
end.

№4_1
Задан одномерный массив целых чисел. Пользователь вводит число. Выяснить, есть ли это число в массиве. В случае, если заданного пользователем числа в массиве нет, вывести число, ближайшее к введеному в сторону увеличения.

Pascal

Uses crt;
 
var mas: array [1..100] of integer;
    pom: array [1..100] of integer;
    
i,k,j,n,max: integer; ch,bliz,min:integer;
begin
write ('Введите кол-во элементов массива '); readln (n);
Randomize;
for i:=1 to n do begin
mas [i]:=random (50);
write (mas[i],' ');
end;
writeln;
write ('Введите число '); readln (ch);
for i:=1 to n do
if mas[i]=ch then k:=k+1;
if k<>0 then writeln ('Число в массиве есть')  else begin
writeln ('Числа в массиве нет');
j:=0;
for i:=1 to n do
if mas[i]>ch then begin
j:=j+1;
pom[j]:=mas[i];
end;
{writeln (j);
for i:=1 to j do write (pom[i],' ');}
bliz:=pom[1];
for i:=2 to j do
if pom[i]<bliz then bliz:=pom[i];
max:=mas[1];
for i:=2 to n do
if pom[i]>max then max:=pom[i];
if ch>max then writeln ('Число больше максимального в массиве') else writeln ('Ближайшее число: ', bliz);
end;
end.

@SuPeR XaKer · 09.11.2011, 22:05

Комментарий модератора

оформляйте код тегами