Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
1 / 1 / 0
Регистрация: 30.01.2012
Сообщений: 19
1

Записи. Определить, есть ли в записной книжке телефон некоторого человека

19.03.2012, 18:38. Просмотров 1931. Ответов 1
Метки нет (Все метки)

№1. В записной книжке указаны фамилии и номера телефонов 30-ти человек. Составить программу:
а) которая определяет, есть ли в записной книжке телефон некоторого человека, и, если есть, печатает номер его телефона;

№2. Известны данные об n странах: название и часть света. Вывести данные на экран в табличной форме:
* Страна * Часть света *
*********************************
* Германия * Европа *
* Китай * Азия *
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2012, 18:38
Ответы с готовыми решениями:

Структуры в С++. Определить, есть ли информация в записной книжке.
7. В записной книжке указаны фамилии и номера телефонов 10 человек. Определить, есть ли в записной...

Определить, есть ли в записной книжке NB сведения о знакомом F
I) Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с одной буквы...

Определить, есть ли в записной книжке z сведения о знакомом с фамилией f
помогите пожалуйста решить задачку в турбо паскале, очень прошу, вот: type slovo=packed array...

Найти в записной книжке телефон по фамилии
5 В записной книжке указаны фамилии и номера телефонов 30-ти человек. Составить программу которая...

1
Почетный модератор
7951 / 3922 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.03.2012, 18:50 2
Лучший ответ Сообщение было отмечено Alina22 как решение

Решение

Цитата Сообщение от Alina22 Посмотреть сообщение
№2. Известны данные об n странах: название и часть света.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
const nmax=20;
line='------------------------------------';
shap='|     Страна     |   Часть света   |';
 
type country=record
     s: string[15];
     c: string[15];
     end;
 
var a: array [1..nmax] of country;
    i,n: byte;
begin
repeat
write('Количество записей, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
for i:=1 to n do
    with a[i] do
         begin
         write('Название ',i,' страны: '); readln(s);
         write('Часть света: '); readln(c);
         end;
clrscr;
writeln(line);
writeln(shap);
writeln(line);
for i:=1 to n do
    with a[i] do
         begin
         writeln('|',s:15,'|':2,c:15,'|':3);
         writeln(line);
         end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.03.2012, 18:50

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Описать сведения о записной книжке
Пожалуйста, помогите с этим заданием :cry: 1. Описать файл записей с именем note.dat, содержащий...

Поиск элементов в "Записной книжке"
Есть прожка для "записной книги". Все заполняется, выводится. Не могу реализовать поиск по книге....

Определить, сколько чисел последовательности содержит в своей записи все цифры больше некоторого числа N
помогите пожалуйста написать программу Процедуры и функции в паскаль: Дана последовательность К...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.