Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вычислите количество точек с целочисленными координатами,находящиеся в круге радиуса R (R>0) вычислите количество точек с целочисленными координатами,находящиеся в круге радиуса R (R>0) (Кумир/Паскаль) https://www.cyberforum.ru/ turbo-pascal/ thread1382498.html Вычислить значение выражения Turbo Pascal
Кто разбирается в языке паскаль?Решения ниже нужно перевести на паскаль.То есть решение решать не надо,лишь перевести на паскаль.Пожалуйста помогите.По информатике задали.Не разбираюсь в паскале.:((
Turbo Pascal Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие) https://www.cyberforum.ru/ turbo-pascal/ thread1382339.html
Здравствуйте. Нужно программно решить систему с использованием трёх видов операторов цикла (счётчик, постусловие, предусловие). + Блок схема (с ней, скорее всего, я и сам справлюсь.) T=\begin{cases} 0,5sin(x)+2cos(x) & \text{ , } x \gt 1,2 \\ zx-cos(z) & \text{ , } x=1,2 \\ sin(x)-2z & \text{ , } x \lt 1,2 \end{cases}\\z=1,7 \\x\in \\\Delta x=0,3 Благодарен за любую помощь.
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread1382283.html
Написать арифметическое решение и блок-схему . Плз помогите! {4}^{x+1}-5*{2}^{4+1}+sqrt((3-2sqrt(x))
Turbo Pascal Создать одномерный массив из элементов матрицы по правилу
Двумерный массив A(n,m) заполнен случайными образом в динамической памяти. Создать одномерный массив В(м) элемент которого является разностью максимального и минимального элементов соответствующих строк
Turbo Pascal Составить программу вычисления величины "y" при заданном значении аргумента Для функции y=y(x), заданной графически, построить аналитическую зависимость. Составить программу вычисления величины "y" при заданном значении аргумента. Помогите пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread1382080.html
Turbo Pascal Вычислить и вывести на экран в виде таблицы значение функции на интервале Вычислить и вывести на экран в виде таблицы значение функции на интервале от X начального до X конечного с шагом Dx. Интервал и шаг вводить с клавиатуры. Таблицу снабдить заголовком и шапкой. https://www.cyberforum.ru/ turbo-pascal/ thread1382054.html Turbo Pascal Дана прямоугольная матрица. Упорядочить столбцы матрицы по невозрастанию минимальных элементов столбцов
составить программы для решения задачи для четырех случаев, матрицы следует разместить в "куче" при выполнении следующих условий: 1) число строк и столбцов-константы 2) число строк-константа,а число столбцов- исходное данное 3) число строк _ исходное данное,число столбцов - константа 4)число строк и столбцов - исходные данные ввод,вывод и обработку матриц описать отдельными подпрограммами ...
Turbo Pascal Создание гибких подпрограмм для обработки матриц произвольного порядка с фиксированным базовым типом Даны две прямоугольные матрицы разных размеров. Упорядочить строки каждой из них по не убыванию наибольших элементов строк Не могу понять,как использовать absolute https://www.cyberforum.ru/ turbo-pascal/ thread1382020.html Turbo Pascal Найти произведение n-четных чисел через while https://www.cyberforum.ru/ turbo-pascal/ thread1381901.html
Найти произведение n-четных чисел через while. Через for не надо. Добавлено через 2 минуты А всё не надо,сам додумался.
Найти центр и радиус окружности, проходящей через заданную точку Turbo Pascal
Даны два множества точек на плоскости.Найти центр и радиус окружности,проходящей через k (k>=3) точек первого множества и содержащей строго внутри себя равное число точек первого и второго множества.
Turbo Pascal Найдите сумму и число слагаемых до первого отрицательного слагаемого https://www.cyberforum.ru/ turbo-pascal/ thread1381819.html
Задание: "Найдите сумму sin1+sin2+…+sinM и число слагаемых до первого отрицательного слагаемого. М=7." Не могу понять, где я допустил ошибку: если проверять через калькулятор - результат 0.48..., если через программу - 0.55.. + кол-во слагаемых: разве тут не все идут больше нуля, а выдает 3 слогаемых? program pr22; uses crt; var a,s:real; n,slog:integer; begin clrscr; s:=0; slog:=0;
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
25.02.2015, 17:31 0

Найти фамилии владельцев и номера автомобилей данной марки - Turbo Pascal - Ответ 7270371

25.02.2015, 17:31. Показов 1851. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Vitalij1234 как решение

Решение

Объявляете тип
Pascal
1
2
3
type auto=record
               mar,nom,fam:string
               end;
объявляете массив записей
Pascal
1
var m:array[1..20] of auto;
заносите записи в массив, присваивая значения полей
вводите марку для поиска
Pascal
1
2
3
4
5
6
7
8
9
readln(mark);
k:=0;
for i:=1 to n do
if m[i].mar=mark then
 begin
  writeln(m[i].fam,' ',m[i].nom);
  k:=1
 end;
if k=0 then write('Нет автомобилей данной марки');


Вернуться к обсуждению:
Найти фамилии владельцев и номера автомобилей данной марки Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2015, 17:31
Готовые ответы и решения:

Найти фамилии владельцев и номера автомобилей заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий...

Найти фамилии владельцев и номера автомобилей заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий...

Файлы. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти количество автомобилей каждой марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл F содержащей...

Найти фамилии и номера владельцев машин заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл, содержащий эти...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2015, 17:31
Помогаю со студенческими работами здесь

Вывести фамилии владельцев и номера автомобилей выпущенных позже 2011 года
1) Сведения об автомобиле состоят из его марки, номера, фамилии владельца и год выпуска. Вывести...

Файлы. Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке
Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке. Прошу...

Сведения об автомобилях состоят из его марки, номера, года выпуска и фамилии владельца.
Сведения об автомобилях состоят из его марки, номера, года выпуска и фамилии владельца. Найти...

Найти количество автомобилей каждой марки
Сведения об автомобиле состоят из его марки, года выпуска, фамилии владельца и государственного...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru