20 ! составить программу на языке с++! реализовать программу «телефонный справочник» с использованием двусвязного списка требования к программе: ● максимальное количество записей в справочнике ограничено. ● каждый запись должна содержать следующую информацию: им 'я (до 10 символов включительно), фамилия (до 20 символов), номер телефона (до 12 цифр все поля обязательно 'обязательными (не могут быть пустыми). ● ключевое поле - номер телефона (в справочнике может существовать только одна запись с указанным номером). ● структура хранения записей в справочнике - двозвьязний список. ● после запуска программа выводит на экран меню: 1. добавить запись 2. удалить запись 3. найти запись 4. показать все записи 5. сортировать записи 6. сохранить в файле 7. скачать с файла 8. выйти из программы и просит пользователя сделать выбор. ● после выбора пользователя программа при необходимости может запросить дополнительную информацию (например, номер телефона для удаления записи). ● после выполнения операции по запросу пользователя программа сообщает о ее результат (успешное завершение или ошибка), просит пользователя нажать любую клавишу для продолжения. затем снова выводит на экран меню. ● для удаления записи необходимо указать номер телефона. ● для поиска записи необходимо указать фамилию или номер телефона. ● сортировка записей выполняется по фамилии и имени. ● имя 'я файла для хранения данных справочника - phone.dat программа должна контролировать ввода пользователем и сохранять работоспособность при введении сознательно неверных данных (например, слишком длинной строки как имени или неразрешенных символов в номере телефона).
Ответы
Program chik; var a: array[1..1000]of integer; h,i,n,x: integer; begin read(n); h: =0; for i: =1 to n do begin read(a[i]); end; read(x); for i: =1 to n do begin if(a[i]=x*x)then h: =h+1; end; write(h); end. 2) program chik2; var a,h: integer; begin a: =5; h: =0; while a< > 0 do begin read(a); if(a< 0)then h: =h+1; end; write(h); end. 3)program chik3; var a,h,s,p: real; begin a: =5; h: =0; while a< > 0 do begin read(a); s: =s+a; h: =h+1; end; p: =s/h; write(p); end. 4)program chik4; var n,j,i: longint; begin read(n); for i: =1 to n do begin for j: =1 to i do begin write(j,' '); end; writeln; end; end. удачи!
Var a,b,c: real; begin repeat write('введите длины сторон треугольника a,b,c '); readln(a,b,c); until (a> 0) and (b> 0) and (c> 0); if (a=b) and (b=c) then writeln ('равносторонний') else writeln('не равносторонний или такой треугольник не существует'); end. тест №1 введите длины сторон треугольника a,b,c 5 5 -5 введите длины сторон треугольника a,b,c 5 5 5 равносторонний тест №2 введите длины сторон треугольника a,b,c 5 6 5 не равносторонний или такой треугольник не существует
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
