50 ! ! необходимо написать программу на языке с++! : реализовать программу «телефонный справочник» с использованием структур (struct требования к программе: ● максимальное количество записей в справочнике - 20. ● каждый запись должна содержать следующую информацию: имя (до 10 символов включительно), фамилия (до 20 символов), номер телефона (до 12 цифр). все поля являются обязательными (не могут быть пустыми). ● ключевое поле - номер телефона (в справочнике может существовать только один запись с указанным номером). ● структура хранения записей в справочнике - массив. ● после запуска программа выводит на экран меню: 1. добавить запись 2. удалить запись 3. найти запись 4. показать все записи 5. выйти по программе и просит пользователя сделать выбор. ● после выбора пользователя программа при необходимости может пригласить дополнительную информацию (например, номер телефона для удаления записи). ● после выполнения операции, вызвал пользователь, программа сообщает о результате (успешное завершение или ошибка), просит пользователя нажать любую клавишу для продолжения. затем снова выводит на экран меню. ● для удаления записи необходимо указать номер телефона. ● для поиска записи необходимо указать фамилию. ● программа должна контролировать ввода данных пользователем и сохранять работоспособность при введении сознательно неверных данных (например, слишком длинной строки в качестве имени или неразрешенных символов в номере телефона).
Ответы
1) var f: text; a: array[1..7] of real; i,k,c,x: integer; s: string; begin for i: =1 to 7 do begin readln(x); a[i]: =x; end; assign(f,'file.txt'); rewrite(f); for i: =1 to 7 do begin str(a[i],s); writeln(f,s); end; close(f); reset(f); k: =0; while not eof(f) do begin readln(f,s); val(s,x,c); if x< 0 then k: =k+1; end; close(f); if k< > 0 then writeln('в массиве ',k,' отрицательных элемента(ов)'); else writeln('в массиве нет отрицательных элементов'); erase(f); end. 2) var a,b,c,d: integer; function max(a,b: integer): integer; begin if a> b then max: =a else max: =b; end; begin readln(a,b,c,d); a: =(max(a,b)); b: =(max(c,d)); writeln('max=',max(a,b)); end.
Type num=1..999; var x: num; k,y: integer; begin write('x='); readln(x); y: =x; k: =0; while y< > 0 do begin y: =y div 10; k: =k+1; end; if (x mod 2)=0 then write('четное ') else write('нечетное '); if k=1 then write('однозначное ') else if k=2 then write ('двухзначное ') else write('трехзначное '); writeln('число'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Зклавіатури вводиться натуральне число k. обчислити 2 в степіні k;
Автор: ariyskayaa5
С ЗАДАЧЕЙ ПО ИНФОРМАТИКЕ НА ПАСКАЛЕ">
Автор: si0000
Составить алгоритм чертёжника буквы в по программе кумир?
Автор: konnovakat1
максимальное количество записей в справочнике -20.