Написать програму вычесления площади и периметра прямоугольника , если извесна длина сторон a, b.(всё это дольжно выгледит програмай для паскаль adc)
204
404
Ответы на вопрос:
Var a,b,p,s: integer; begin writeln('введите а и b'); read(a,b); s: =a*b; p: =(a+b)*2; writeln('периметр равен = ',p); writeln('площадь равна = ',s); end.
Ffunction find(x: integer): boolean; begin if pos('7', inttostr(x)) = 0 then result : = false else result : = true end; const n = 1000; var a: array[1..n] of integer; ii: integer; i, o: text; begin assignfile(i, 'input.dat'); assignfile(o, 'output.dat'); rewrite(o); reset(i); for ii : = 1 to n do readln(i, a[ii]); for ii : = 1 to n do if find(a[ii]) then writeln(o, a[ii]); closefile(i); closefile(o); end. функция find пытается разыскать цифру 7 в целом числе, которое она получает в качестве аргумента. если поиск успешен, возвращается "истинно", если нет - "ложно" - это символизирует успешность поиска. в программе используются два текстовых файла - i, связанный с файлом input.dat, и o, связанный с файлом output.dat. данные из input.dat считываются в целочисленный массив a, содержащий 1000 элементов. затем элементы массива просматриваются, начиная с первого, на предмет наличия в элементе числа, содержащего цифру 7, что проверяется вызовом функции find. каждое число, содержащее цифру 7, выводится в файл output.dat. недостаток программы: если в файле input.dat будет меньше 1000 чисел, программа все равно будет просматривать все 1000 элементов, анализируя оставшийся "мусор". так же есть большая вероятность, что программа будет аварийно завершена, если этот "мусор" не сможет быть интерпретирован, как целые числа.
Популярно: Информатика
-
Матрос57311.09.2022 03:36
-
ЮлияСалт22.06.2023 19:05
-
nonikc119.12.2021 09:59
-
ankavasilenko216.10.2021 04:12
-
Dacha07K26.02.2023 01:06
-
scvdnl21.09.2020 14:35
-
soykaalayaovpiyg11.02.2023 23:07
-
Настя1261112.11.2022 04:59
-
андрей100500ый12.02.2022 20:46
-
лаллах1207.04.2022 09:02