Сведения о гражданине ind1

Фамилия, имя, отчество: Алексеев Сергей Петрович

Год рождения – 1978

Месяц рождения – 5-й

День рождения – 3-й

Далее приводится отрывок программы и результаты решения этой же задачи с использованием элментов визульного программирования.

{

struct date { int day;

int month;

int year; };

/* Объявление записи типа date*/

struct person { String fam;

String im;

String ot;

struct date f1; };

/* Объявление структуры типа person; одним из элементов записи person является запись f1

типа date */

struct person ind1;

/* обьявление переменной ind1 типа person */

ind1.fam=Edit1-> Text;

ind1.im =Edit2-> Text;

ind1.ot =Edit3-> Text;

ind1.f1.day =StrToInt(Edit4-> Text);

ind1.f1.month =StrToInt(Edit5-> Text);

ind1.f1.year =StrToInt(Edit6-> Text);

/* Ввод сведений о гражданине ind1 */

Label7-> Caption=" Фамилия, имя, отчество: " +ind1.fam+" " +ind1.im+" " +ind1.ot+" \n";

Label7-> Caption=Label7-> Caption+" Год рождения - " + ind1.f1.year+" \n";

Label7-> Caption=Label7-> Caption+" Месяц рождения - " + ind1.f1.month+" \n";

Label7-> Caption=Label7-> Caption+" День рождения - " + ind1.f1.day+" \n";

/* Вывод сведений о гражданине ind1 */

}

Рисунок 29. Результаты вычислений

В следующей программе рассмотрим использование структуры в виде элементов массива pibm. Каждый элемент состоит из следующих компонентов: mem (память), sp (объем винчестера), model [20] (модель ПЭВМ):

/* Массивы записей */

#include < stdio.h >

struct computer { int mem, sp;

char model [20];

pibm [10]; };

/* объявление записи типа computer;

объявление массива pibm типа computer */

main ()

{ int i, j, k, priz;

for (i=0; i< 10; i++)

{ printf (“Введите сведения о ПЭВМ %d и признак (0-конец;

\n другая цифра- продолжение)\n”, i);

printf (“ модель ПЭВМ - ”);

scanf (“%S”, & pibm [i].model);

printf (“объем оперативной памяти -”);

scanf (“%d”, & pibm[i].mem);

printf (“ объем винчестера - ”);

scanf (“%d, & pibm[i].sp ”);

printf (“признак - ”);

scanf (“ %d ”, & priz);

k=i;

if (! priz) break; }

/* Здесь! priz – операция отрицания priz; break – выход из цикла for, если priz=0 */

for (i=0; i< 10, i++);

{

printf (“\n О какой ПЭВМ Вы хотите получить сведения? \n (Введите номер от 0 до 9)\n”);

scanf (“%d ”, & j);

if (j> k)

{ printf (“Нет сведений об этой ПЭВМ \n”);

continue; }

printf (“ персональная ЭВМ %s\n ”, pibm[j].model);

printf (“объем оперативной памяти - % d Мб \n ”, pibm[j].mem);

printf (“объем винчестера - % d Мб \n ”, pibm[j].sp);

printf (“ признак – “);

scanf (“ %d ”, & priz);

if (! priz) break; }

/* Ввод сведений о ПЭВМ и занесение в массив pibm записей типа computer (первый

цикл for); вывод на экран сведений о ПЭВМ (второй цикл for) */

}

Результаты работы программы:

Введите сведения о ПЭВМ и признак (0-конец; другая цифра – продолжение)

модель ПЭВМ – АТ 486 SX

объем оперативной памяти – 32

объем винчестера – 4 Гбайта

признак – 1

Введите сведения о ПЭВМ и признак (0-конец; другая цифра – продолжение)

модель ПЭВМ – АТ 386 DX

объем оперативной памяти – 64

объем винчестера – 14 Гбайт

признак – 0

О какой ПЭВМ Вы хотите получить сведения? (Введитн номер от 0 до 9)

модель ПЭВМ – АТ 386 DX

объем оперативной памяти – 16 Мб

объем винчестера – 2, 5 Гбайт

признак – 0