Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
wein173
1 / 1 / 0
Регистрация: 29.04.2013
Сообщений: 79
1

Записи. Вывести на экран фамилию, имя и адрес учеников у которых нет телефона

01.05.2013, 21:48. Просмотров 1040. Ответов 2
Метки нет (Все метки)

известны данные о двадцати пяти учениках класса - фамилия,имя,отчество,адрес и домашний телефое еслион есть.вывести на экран фамилию,имя и адрес учеников у которых нет телефона. Нужен код на паскале,буду благодарен.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2013, 21:48
Ответы с готовыми решениями:

Вывести на экран фамилию, имя и адрес учеников у которых нет телефона
известны данные о двадцати пяти учениках класса - фамилия,имя,отчество,адрес и домашний телефое...

Вывести на экран фамилию, имя и адрес учеников, у которых нет домашнего телефона
Известны данные о 25-ти учениках класса: фамилия, имя, отчество, адрес и домашний телефон, если он...

Вывести на экран фамилию, адрес, имя и адрес тех учеников, кто учится в данной школе в старших классах
Дан текстовый файл, в котором хранятся данные об учениках нескольких школ: фамилия, имя, отчество,...

Вывести на экран фамилию, имя и адрес тех учеников, до кого можно будет дозвониться
1.дан список учеников класса: фамилия, имя ,отчество, адрес и домашний телефон если есть. вывести...

Вывести на экран фамилию,имя и адрес каждого из клиентов,взявших напрокат телевизор
Известна информация о 30 клиентах пункта проката:имя,отчество,адрес и домашний телефон. Известно...

2
antonboom
bmstu-team
301 / 136 / 91
Регистрация: 10.01.2012
Сообщений: 420
Записей в блоге: 10
02.05.2013, 00:40 2
Лучший ответ Сообщение было отмечено wein173 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
type purple = record
     s,s1,phone:string;
end;
 
var i:integer;
    a:array[1..25] of purple;
    
begin
  for i:=1 to 5 do begin
  write('Введите ФИО ',i,' ученика ');readln(a[i].s);
  write('Введите адрес ',i, ' ученика ');readln(a[i].s1);
  write('Введите телефон ',i ,' ученика. Если его нет - поставьте прочерк "-") ');
  readln(a[i].phone);
  end;
  
  for i:=1 to 5 do begin
  If a[i].phone = '-' then begin
  writeln(a[i].s);writeln(a[i].s1);
  writeln;
  end; end;
end.
1
wein173
1 / 1 / 0
Регистрация: 29.04.2013
Сообщений: 79
02.05.2013, 20:51  [ТС] 3
спасибо )))
0
02.05.2013, 20:51
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2013, 20:51

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

Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру, которая выводит на экран по фамилии телефон, адрес
Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру,...

Вывести на экран все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр
Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр ...

Вывести на экран имя и фамилию (разного цвета) по диагонали
Программа выводящая на экран имя и фамилию(разного цвета) по диагонали


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

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

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