мая группа № 13 (Информатика и ИКТ)

21 мая группа № 13 (Информатика и ИКТ)

Урок № 76

Тема программы: Организация ввода-вывода с использованием файлов

Тема урока: Решение задач с использованием ввода-вывода из файлов

Цель: научиться использовать в программах операторы ввода-вывода Write(Writeln) - Read(Readln), научиться решать задачи с использованием файлового ввода-вывода данных.

ПЛАН

1. Повторить теоретический материал по ссылке https://labs-org.ru/pascal-12/

2. Решения задач

3.Самостоятельная работа

Решения задач

1. Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры.

Program qq;
Var a,b,c:integer;
Begin
Writeln ('Vvedite zeloe chislo');
read(a);
while a<>0 do begin;
b:=a mod 10;
a:=a div 10;
if c=b then begin
writeln('da');
end
else
c:=b;
end;
writeln('net');
readln;
end.

2. Есть ли в числе 2 одинаковые цифры

#include<iostream>
using namespace std;
int main()
{
int *Digits=new int[10]();
int d;
cout<<"Enter number:"<<endl;
cin>>d;
do
{
Digits[d%10]++;
d/=10;
}
while(d!=0);
bool flag=false;
d=0;
while((d<10)&&(flag==false))
{
if(Digits[d]>=2) flag=true;
d++;
}
if(flag==true) cout<<"Yes"<<endl;
else cout<<"No"<<endl;
delete []Digits;
getchar();
return 0;
}

3. Даны два натуральных числа a и b, не равные нулю одновременно. Вычис-лить НОД (a,b) - наибольший общий делитель а и b. Делителями называются числа, которые делят без остатка заданное число, кроме единицы и самого этого числа.

var a,b:integer;

min,maxd,i:integer;

begin

write('Введите а ');

readln(a);

write('Введите b ');

readln(b);

if (a=0) or (b=0) then

begin

write('Ошибка! ноль вводить нельзя!');

halt

end;

if a>b then

min:=b

else

min:=a;

maxd:=1;

for i:=1 to min do

if (a mod i = 0) and (b mod i = 0) then

if i> maxd then

maxd:=i;

write('Наибольший общий делитель чисел',a,' и ',b,' равен: ',maxd);

readln;

end.

12 Следующая ⇒