ЛАБОРАТОРНАЯ РАБОТА 1. Регистрации, настройки, апробация сред обучения

1. Зарегистрируйтесь на сайте it-starter.ru;
2. Выполните задания, указанные во "Введении для первокурсников 2020" (размещение пробного поста и "Красивого кода");
3. Откройте этот вот он-лайн компилятор (Паскаль, Питон) и используя в качестве справочных ресурсов, например, ПАСКАЛЬ и ПИТОН, апробируйте его сначала набрав и запустив программу сложения двух чисел, а затем рассмотренный нами на лекции 1 алгоритм Евклида.
4. Сохраните где-то у себя выше указанные три ссылки, которые мы в дальнейшем будем использовать под именами, соответственно:
1) Он-лайн компилятор;
2) Паскаль-учебник;
3) Питон-учебник.
Примечание. Дополнительно, Вы можете на своём компьютере или смартфоне установить или использовать уже установленную любую систему программирования на ЯП ПАСКАЛЬ и ПИТОН, которая Вам привычна или кажется удобной.

Задание на дом:
1. Составить таблицу трассировки процесса выполнения алгоритма Евклида для пары чисел НОД(28, 34) по образцу той, что была предложена на лекции1;
2. Решить в языках ПАСКАЛЬ и ПИТОН, а так же апробировать в он-лайн компиляторе решения первых трёх из тех задач, которые были предложены в Анкете (см. в конце "Введения для первокурсников 2020"). При этом, циклы не использовать!

5
Your rating: Нет Average: 5 (2 votes)

Комментарии

Алёна Соммер аватар

program sum;var

  1. program sum;
  2.    var a,b,c:integer;
  3. begin
  4.    writeln('введите два числа a,b');
  5.    readln(a,b);
  6.    c:=a+b;
  7.    writeln('сумма=',c);
  8. end.

Лукьянов Сергей (python 3.7)

Сумма 2-х чисел

  1. a = int(input())
  2. b = int(input())
  3. print(a+b)

Алгоритм Евклида
  1. a = int(input())
  2. b = int(input())
  3. while a != b:
  4.     if a > b:
  5.         a = a-b
  6.     else:
  7.         b = b-a
  8. print(a)

Байков Иван аватар

Алгоритм Евклида Python

Python

  1. m = int(input())
  2. n = int(input())
  3. while m != n:
  4.     if m > n:
  5.         m = m - n
  6.     else:
  7.         n = n - m
  8. print(m)

Паскаль
  1. program Evklid;
  2. var m,n : integer;
  3. begin
  4.     readln(m,n);
  5.     while m <> n do begin
  6.         if m > n then
  7.             m := m -n
  8.         else
  9.             n := n - m;
  10.     end;
  11.     write (m);
  12. end.

Джанет Кунижева аватар

КунижеваДжанет

  1. Кунижева
  2. Джанет

Джанет Кунижева аватар

КунижеваДжанет

  1. # НОД - алгоритм Евклида
  2. m=int(input())
  3. n=int(input())
  4. while m!=n:
  5.   if m > n:
  6.     m-=n
  7.   if n > m:
  8.     n-=m
  9. print(m)

Джанет Кунижева аватар

КунижеваДжанет

  1. print("Введите два числа")
  2. a=int(input())
  3. b=int(input())
  4. c=a+b #сумма двух чисел
  5. print(c)

Емиж Ислам

  1. # алгоритм Евклида
  2. a = int(input())
  3. b = int(input())
  4. while a != b:
  5.     if a > b:
  6.         a -= b
  7.     else:
  8.         b -= a
  9. print(a)

Кулакова Анастасия

  1. program sum;
  2. var a,b,c:integer;
  3. begin
  4.     readln(a,b);
  5.     c:=a+b;
  6.     writeln(c);
  7. end.

Кулакова Анастасия

  1. program euclid;
  2. var a,b : integer;
  3. begin
  4.     readln (a,b);
  5.     while (a <> b) do begin
  6.         if (a > b) then begin
  7.             a := a-b
  8.         end else begin
  9.             b := b-a
  10.         end;//if
  11.     end;//while
  12.     write (a);
  13. end.

Алгоритм Евклида

Джаудат Мая
Python3

  1. m = int(input("введите первое ч-ло: "))
  2. n = int(input("введите второе ч-ло: "))
  3.  
  4. while m != n:
  5.     if m > n:
  6.         m -= n
  7.     else:
  8.         n -= m
  9.  
  10. print(f"ответ: {m}")

Сметанин Викентий

  1. x1 = int(input())
  2. x2 = int(input())
  3.  
  4. print('Сумма чисел: ', x1 + x2)
  5. while x1 != x2:
  6.     if x1 > x2:
  7.         x1 -= x2
  8.     else:
  9.         x2 -= x1
  10. print('НОД чисел: ', x1)

Кирилл Соловьев аватар

Соловьев Кирилл Сергеевич

Сумма 2-х чисел

  1. program sum;
  2. var
  3.     m,n,rez:integer;
  4. begin
  5.     readln(n,m);
  6.     rez:=n+m;
  7.     writeln(rez);
  8. end.

Евклид

  1. program evk;
  2. var
  3.     m,n:integer;
  4. Begin
  5.     readln(m,n);
  6.     while m<>n do begin
  7.       if m>n then
  8.           m:=m-n
  9.       else
  10.             n:=n-m;
  11.     end;  
  12.         writeln(m);    
  13. end.

Program EVKLID; var M,N :

  1. Program EVKLID;
  2. var M,N : integer;
  3.   begin
  4.    readln(M,N);
  5.   while M <> N do begin
  6.    if M > N then
  7.      M := M -N
  8.    else
  9.      N := N - M;
  10.  end;
  11.    writeln (M);
  12.  end.

Задачи

Сумма двух чисел:

  1. print(int(input()) + int(input()))

Алгоритм Евклида:

  1. a = int(input())
  2. b = int(input())
  3.  
  4. while a > 0 and b > 0:
  5.     if a > b:
  6.         a = a % b
  7.     else:
  8.         b = b % a
  9.        
  10. print(max(a, b))

ВавиловМаксим

Алгоритм Евклида

  1. # Алгоритм Евклида
  2.  
  3. a = int(input("Введите первое число: "))  # Введение первого числа
  4. b = int(input("Введите второе число: "))  # Введение второго числа
  5.  
  6. while (a != b):
  7.     if (a > b):  # Если a>b, то переобозначить как a = a-b
  8.         a -= b
  9.     else:  # Если a>b, то переобозначить как b = b-a
  10.         b -= a
  11.  
  12. print("НОД двух введенных чисел равен: " + str(a))

Алгоритм НОД

  1. var m,n :integer;
  2.  
  3. Begin
  4.     Read (m,n);
  5.     While m<>n do
  6.        Begin
  7.            if m>n then m:=m-n;
  8.            if n>m then n:=n-m;
  9.        end;
  10.     WriteLn (m);  
  11. end.

m= int(input()) n=

  1. m= int(input())
  2. n= int(input())
  3. while m != n:
  4.     if m > n:
  5.         m-=n
  6.     else:
  7.         n-=m
  8. print (m)

Сложение двух

Сложение двух чисел
Pascal:

  1. program Sum;
  2. var
  3.     a,b : integer;
  4. begin
  5.     writeln('Введите числа a и b');
  6.     readln(a,b);
  7.     a += b;
  8.     writeln('Сумма равна ', a);
  9. end.

Python

  1. print('Введите 2 числа')
  2. a = int(input())
  3. b = int(input())
  4. a += b
  5. print(a)

Алгоритм Евклида
Pascal:

  1. program Ev;
  2. var
  3.     m,n : integer;
  4. begin
  5.     writeln('Введите числа m и n');
  6.     readln(m, n);
  7.     while m <> n do
  8.     begin
  9.         if m > n then
  10.         begin
  11.             m -= n;
  12.         end
  13.         else
  14.         begin
  15.             n -= m;
  16.         end;
  17.     end;
  18.     writeln('НОД ', m);
  19. end.

Python

  1. print('Введите m и n ')
  2. m = int(input())
  3. n = int(input())
  4. while m != n:
  5.     if m > n:
  6.         m -= n
  7.     else:
  8.         n -= m
  9. print('НОД ', m)

pascal: program nod; var

pascal:

  1. program nod;
  2. var m:integer;
  3. n:integer;
  4. begin
  5.     writeln('enter two numbers');
  6.     readln(m,n);
  7.     while m<>n do
  8.     begin
  9.     if m>n then
  10.     m:=m-n;
  11.     else begin
  12.     n:=n-m;
  13.     end;
  14.     end;
  15.     writeln(m);
  16. end.

python
  1. print("enter two numbers")
  2. m=int(input())
  3. n=int(input())
  4. while m!=n:
  5.     if m>n:
  6.         m-=n
  7.     else:
  8.         n-=m
  9.     print(m)

Евклид

  1. first = int(input())
  2. second = int(input())
  3. while first != second:
  4.     if first > second:
  5.         first = first - second
  6.     else:
  7.         second = second - first
  8. print(first)

Мартынова Виктория аватар

Euclid

  1. program Euclid;
  2.   Var x,y: Integer
  3. begin
  4.     Readln(x,y);
  5.     While x<>y Do Begin
  6.        If x>y Then
  7.           x:=x-y
  8.        Else Begin
  9.           y:y-x
  10.        End;
  11.      End;
  12.     Writeln(x)
  13. end.

Беданокова Мадина аватар

Беданокова Мадина Вячеславовн

  1. Беданокова
  2. Мадина
  3. Вячеславовна

Беданокова Мадина аватар

Сумма двух чисел

  1. print("Введите два числа")
  2. n=int(input())
  3. m=int(input())
  4. s=n+m #сумма двух чисел
  5. print(s)

Eucluid

program Eucluid;
var
m,n:integer;
begin
writeln('Введите 2 числа-');
readln (m,n);
while m<>n do begin
if (m>n) then
m:=m-n
else
n:=n-m;
end;
writeln ('общий делитель-', m);
end.

Софья Сафаргалеева аватар

program EVKLID; var m,n:

  1. program EVKLID;
  2. var m,n: integer;
  3. begin
  4. readln (m,n)  ;
  5. while m<>n do begin ;
  6. if m>n then
  7. m:=m-n;
  8. else begin
  9. n>m
  10. n:=n-m
  11. end;
  12. end;
  13. writeln(m)
  14. end.

И ЗДЕСЬ ПОВТОРЮСЬ!

Почти все здесь с заданием о "красивом коде" программы справились. Поздравляю!
Именно так теперь Вы должны ВСЕГДА оформлять программный код.
Но и о правильной структуре (рельефе) программы (со всеми необходимыми отступами) Вы должны думать.
И с этим тоже у большинства здесь отметившихся всё в порядке!

Например, алгоритм Евклида на ПАСКАЛЕ не правильно записать так:

  1. program Euclid;
  2. Var x,y: Integer
  3. begin
  4. Readln(x,y);
  5. While x<>y Do Begin
  6. If x>y Then
  7. x:=x-y
  8. Else Begin
  9. y:=y-x
  10. End;
  11. End;
  12. Writeln(x)
  13. end.

Хотя программа эта работать будет правильно, понять ее структуру из-за отсутствия рельефа, наглядно отражающего вложенности конструкций друг в друга, очень сложно.

А правильно её следовало бы структурировать вот так:

  1. program Euclid;
  2.   Var x,y: Integer
  3. begin
  4.      Readln(x,y);
  5.      While x<>y Do Begin
  6.          If x>y Then
  7.              x:=x-y
  8.          Else Begin
  9.              y:=y-x
  10.          End;
  11.      End;
  12.      Writeln(x)
  13. end.

Именно в таком виде представленные ваши программы я впредь только и буду рассматривать.
Алёна, Аскер, muhab joumaa, Софья - повторите попытку!

Сумма двух

Сумма двух чисел:
Python

  1. a=int(input())
  2. b=int(input())
  3. rez=a+b
  4. print(rez)

Pascal
  1. program summa;
  2.  var a, b, rez: integer;
  3. begin
  4.  readln(a, b);
  5.  rez:=a+b;
  6.  writeln(rez)
  7. end.

Алгоритм Евклида:
Python
  1. m=int(input())
  2. n=int(input())
  3. while m !=n:
  4.  if m>n:
  5.   m=m-n
  6.  else:
  7.   n=n-m
  8. print(m)

Pascal
  1. program Euclid;
  2.  VAR m, n: integer;
  3. begin
  4.  readln(m, n);
  5.  while(m<>n);
  6.   if (m>n) then
  7.    m:=m-n
  8.   else
  9.    n:=n-m
  10.  end;
  11.  write(m);
  12. end.

3 задачи

  1. #Задача 1
  2. print('Введите число x которое будет использовано в примере x^16+10x-1')
  3. chislo = int(input())
  4. y = chislo*10
  5. x = pow(chislo, 16)
  6. otvet = x + y
  7. print(otvet - 1)

  1. #Задача 2
  2. print('Введите 3 числа через Enter и я назову наименьшее')
  3. M = input()
  4. N = input()
  5. K = input()
  6. if M < N and M < K:
  7.     print('Наименьшее число: '+ M)
  8. elif N < M and N < K:
  9.     print('Наименьшее число: '+ N)
  10. elif K < M and K < N:
  11.     print('Наименьшее число: '+ K)

  1. #Задача 3
  2. print('Я запишу твоё число задом наперёд')
  3. chislo = list(input())
  4. chislo.reverse()
  5. print(''.join(chislo))

Карев Дима

Единственное замечание - впредь увеличить отступы (не 1, а 2-3 позиции), тогда будет наглядней.

Михаил.

1. Домашнее задание сюда выкладывать не следует.
2. Задачи необходимо решить на ДВУХ языках. Причем, особую ценность представляет решение на "чужом" языке.
3. Не выдержаны все ограничения на условия задач (кстати эти условия следует тут же приводить в качестве комментария к соответствующим решениям, тогда можно указать Ваши упущения предметней).
ИТОГ - ДЗ не выполнено.

Беданокова Мадина аватар

Алгоритм Евклида

  1. program Euclid
  2.     Var x,y: Integer
  3. begin
  4.           Readln(x,y)
  5.           While x<>y Do Begin
  6.                 If x>y Then
  7.                      x:=x-y
  8.                 Else Begin
  9.                      y:=y-x
  10.                  End
  11.            End
  12.            Writeln(x)
  13. end

Eвклид

  1. a=int(input())
  2. b=int(input())
  3. while a!=b:
  4.     if a>b:
  5.         a-=b
  6.     else:
  7.         b-=a
  8. print(a)

pascal
  1. program E;
  2.     Var a,b: Integer
  3. begin
  4. read(a,b);
  5. while (a<>b) do begin
  6. if (a>b) then
  7.    a:a-b
  8. else b:=b-a
  9. end;
  10. writeln(a);
  11. end.

Решетников Максим аватар

Лиза, лучше оформить так:

  1.    
  2. program E;
  3.     Var a,b: Integer; // '';'' в конце строк
  4. begin
  5.     read(a,b);
  6.     while (a<>b) do begin
  7.         if (a>b) then begin
  8.            a:= a - b // тут забыла "="
  9.         end  
  10.         else begin
  11.            b:= b - a
  12.         end;
  13.     end;
  14.     writeln (a);
  15. end.

Алгоритм Евклида

  1. program Evklid;
  2. var m,n : integer;
  3. begin
  4.     readln(m,n);
  5.     while m <> n do begin
  6.         if m > n then
  7.             m := m -n
  8.         else
  9.             n := n - m;
  10.     end;
  11.     write (m);
  12. end.

Софья Сафаргалеева аватар

program EVKLID;   var m,n:

  1. program EVKLID;
  2.    var m,n: integer;
  3. begin
  4.      readln (m,n)  ;
  5.      while m<>n do begin ;
  6.        if m>n then begin
  7.           m:=m-n;
  8.        end; //конец if
  9.        else begin;
  10.           n>m ;
  11.           n:=n-m;
  12.        end; // конец else
  13.      end; //конец while
  14.      writeln(m)
  15. end.

Егор Вячеславов Вячеславович

  1. Егор
  2. Вячеславов
  3. Вячеславович

.

.

КолесникЕленаВикторовна

  1. Елена
  2. Викторовна
  3. Колесник

Вячеслав Кушнарев аватар

.

1. Кушнарев
2. Вячеслав
3. Евгеньевич

Алгоритм Евклида

Python
  1. #python 3.8
  2.  
  3. '''
  4. Реализация алгоритма Евклида на языке Python
  5. '''
  6.  
  7. N = int(input())
  8. M = int(input())
  9.  
  10. while N != M:
  11.         if N > M:
  12.                 N -= M
  13.         else:
  14.                 M -= N
  15.  
  16. print(N)

Pascal
  1. // Реализация алгоритма Евклида на языке Pascal
  2.  
  3. program NOD;
  4. Var N, M: Integer;
  5.  
  6. Begin
  7.     Readln(N, M);
  8.  
  9.     While N <> M Do
  10.     Begin
  11.         If N > M Then N:= N-M
  12.         Else M:= M-N
  13.     End;
  14.  
  15.     Writeln(N);
  16. End.

Алгоритм Евклида

Paskal

  1. program nod;
  2. var M,N:integer;
  3. begin
  4.     readln(M,N);
  5.     while M <> n do begin
  6.         if M > n then
  7.             M := M -N
  8.         else
  9.             N := N - M;
  10.     end;
  11.     write (M);
  12. end.

Python

  1. M = int(input())
  2. N = int(input())
  3. while M != N:
  4.     if M > N:
  5.         M = M - N
  6.     else:
  7.         N = N - M
  8. print(M)

Алгоритм Евклида на языке pascal

  1. program Evklid;
  2. var x,y:integer;
  3. begin
  4.         readln(x,y);
  5.         while x<>y do
  6.                 begin
  7.                         if x>y then
  8.                                 x:=x-y
  9.                         else
  10.                                 y:=y-x
  11.                 end;
  12.         writeln(x);
  13. end.

Алгоритм Евклида на языке python

  1. x=int(input())
  2. y=int(input())
  3. while x!=y:
  4.     if x>y:
  5.         x-=y
  6.     else:
  7.         y-=x
  8. print(x)

Алгоритм Евклида Paskal

Paskal

  1.  
  2. program nod;
  3. var M,N:integer;
  4. begin
  5.  readln(M,N);
  6.  while M <> n do begin
  7.  if M > n then
  8.  M := M -N
  9.  else
  10.  N := N - M;
  11.  end;
  12.  write (M);
  13. end.

Алгоритм Евклида Python

Python

  1. M = int(input())
  2. N = int(input())
  3. while M != N:
  4.  if M > N:
  5.  M = M - N
  6.  else:
  7.  N = N - M
  8. print(M)

алгоритм Евклида

Python:

  1. M = int(input())
  2. N = int(input())
  3. while M != N:
  4.     if M > N:
  5.         M -= N
  6.     else:
  7.         N -= M
  8. print(M)

Pascal:
  1. program constant;
  2. var
  3.   a, b: integer;
  4. begin
  5.   readln(a);
  6.   readln(b);
  7.   while a <> b do begin
  8.     if b > a then
  9.       b := b - a;
  10.     if a > b then
  11.       a := a - b;
  12.   end;
  13.   writeln(b)  
  14. end.

Алгоритм Евклида Паскаль

  1. Program EUCLID; //вычисление НОД (a,b)
  2.   Var a,b: integer;
  3. Begin
  4.    Readln(a,b);
  5.   While a<>b do begin;
  6.     if a>b then
  7.        a:=a-b
  8.     else
  9.        b:=b-a;
  10.     End;  
  11.  Writeln(a);
  12. End.

Алгоритм Евклида

Python

  1. print('Введите 2 числа через Enter')
  2. M = int(input())
  3. N = int(input())
  4. while M != N:
  5.     if M > N:
  6.         M -= N
  7.     else:
  8.         N -= M
  9. print(M)

Pascal

  1. program evk;
  2.  
  3. var M,N : Integer;
  4.  
  5. begin
  6.  
  7.   writeln('Введите 2 числа и я посчитаю их НОД');
  8.   writeln('Введите 1-ое число');
  9.   readln(M);
  10.   writeln('Введите 2-ое число');
  11.   readln(N);
  12.  
  13.   while M <> N do
  14.     begin
  15.        if M>N then
  16.          M:=M-N
  17.        else
  18.           N:=N-M;
  19.    end;
  20.    
  21.   writeln('Наибольший общий делитель = ',M);
  22.  
  23. end.

Сумма 2-х чисел

Python

  1. print('СУММА 2-Х ЧИСЕЛ')
  2. print('Введите 1-ое число')
  3. M = int(input())
  4. print('Введите 2-ое число')
  5. N = int(input())
  6. print('Сумма этих чисел: ',M+N)

Pascal

  1. program summa;
  2.  
  3. var M,N : Integer;
  4.    
  5. begin
  6.  
  7.    writeln('Введите 1-ое число');
  8.    readln(M);
  9.    writeln('Введите 2-ое число');
  10.    readln(N);
  11.    writeln('Сумма этих чисел: ',M+N);
  12.    
  13. end.

.

  1. 1.Begin
  2. 2. Readln (a,b)
  3. 3. While a<>b Do Begin
  4. 4.      If a>b Then
  5. 5.          a:=a-b
  6. 6.      Else Begin
  7. 7.         b:=a-b
  8. 8.      End;
  9. 9.  End;
  10. 10. Writeln (a);
  11. 11.End