|
|
Другие темы раздела | |
Pascal ABC Упорядочить 3 числа по возрастанию
https://www.cyberforum.ru/ pascalabc/ thread616019.html 1.Упорядочить 3 числа по возрастанию с помощью подпрограммы.(МОДУЛИ) Вот я решил через подрограммы а нужно через модули uses CRT; type intar=array of integer; var i,l:integer; k:intar; procedure intarSort(var a:intar; n:integer); |
Pascal ABC Построить и залить квадрат со стороной 30 пикселей Построить и залить квадрат со стороной 30 пиксел, центр которого совмещен с центром экрана. Стороны квадрата должны быть параллельны осям координат экрана. |
Pascal ABC Дан целочисленный массив размером 5x4. Отсортировать столбцы данного массива
https://www.cyberforum.ru/ pascalabc/ thread616015.html Дан целочисленный массив размером 5x4. Отсортировать столбцы данного массива.(МОДУЛИ) Вот я решил через подпрограммы uses CRT; var a:arrayof integer; max,i,k:integer; begin for i:=1 to 3 do |
Pascal ABC Построить прямоугольник с заданными вершинами помогите пожалуйста решить задачу: построить прямоугольник с вершинами (80, 80), (170, 80), (170, 150), (80, 150); https://www.cyberforum.ru/ pascalabc/ thread616014.html |
Pascal ABC Решение СЛАУ методом простой итерации(Метод Якоби) Собрал я вот такую программку из нескольких подобных исходников на эту тему.Хм...получилось,как ни странно,но есть проблема не могу условие сходимости и расходимости сделать,чтобы в начале программы выводилось "сходится" или "расходится" .Находит корни верно! с погрешностью 1~2 % на маткаде проверил,кол-во итераций показывает.Вот код:Uses Crt; Type vector = array of real; matrix = array... |
Pascal ABC Вычислить среднее арифметическое последовательности положительных чисел
https://www.cyberforum.ru/ pascalabc/ thread615967.html записать алгоритм решения задачи в виде блок-схемы, но вы напишите в паскале я сам его в блок схемы переведу. Заранее благодарен 30. Написать программу, вычисляющую среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. |
Pascal ABC Вывести все чётные числа из заданного промежутка
https://www.cyberforum.ru/ pascalabc/ thread615963.html записать алгоритм решения задачи в виде блок-схемы, но вы напишите в паскале я сам его в блок схемы переведу. Заранее благодарен 29- Вывести все чётные числа, начиная с числа N и до числа М. Числа N и М задает пользователь. |
Pascal ABC Вычислить произведение последовательности положительных чисел записать алгоритм решения задачи в виде блок-схемы, но вы напишите в паскале я сам его в блок схемы переведу. Заранее благодарен 26. Написать программу, вычисляющую произведение последовательности положительных чисел, которые вводятся с клавиатуры. |
Pascal ABC Вывести на экран таблицу значений функции y=16x^3-36x^2+24x-9
https://www.cyberforum.ru/ pascalabc/ thread615929.html заранее благодарен Написать программу, которая выводит таблицу значений функции y=16x3-36x2+24x-9 в диапазоне от -2 до 2 с шагом 0,5 |
Pascal ABC Вычислить сумму квадратов последовательности записать алгоритм решения задачи в виде блок-схемы, но вы напишите в паскале я сам его в блок схемы переведу. Заранее благодарен 25. Построить алгоритм вычисления суммы квадратов десяти произвольных чисел, водимых с клавиатуры в процессе выполнения алгоритма. https://www.cyberforum.ru/ pascalabc/ thread615922.html |
Pascal ABC Вывести на экран таблицу значений функции y=(11+9x-3x^2-x^3)/8 заранее благодарен Написать программу, которая выводит таблицу значений функции y=(11+9x-3x2-x3)/8 в диапазоне от -2 до 2 с шагом 0,5 |
Pascal ABC Дан вектор вещественных чисел y(4). Вычислить сумму ряда S, используя процедуру Дан вектор вещественных чисел y(4). Вычислить сумму ряда S для каждого {y}_{i}, используя процедуру и распечатать в виде таблицы {y}_{i}, {S}_{i}. S=y-\frac{{y}^{3}}{{3}^{2}}+\frac{{y}^{5}}{{5}^{2}}-\frac{{y}^{7}}{{7}^{2}}+...+{(-1)}^{n}*\frac{{y}^{2n-1}}{{(2n-1)}^{2}} Вычисления прекращаются при \frac{{y}^{2n-1}}{{(2n-1)}^{2}}\leqE E={10}^{-4} Пожалуйста, помогите с задачей. https://www.cyberforum.ru/ pascalabc/ thread615910.html |
2 / 2 / 1
Регистрация: 04.04.2012
Сообщений: 33
|
|
29.06.2012, 00:22 | 0 |
Допишите программу - Pascal ABC - Ответ 322050729.06.2012, 00:22. Показов 828. Ответов 1
Метки (Все метки)
Ответ
На тебе пример доделай по нему
Код
TYPE Cars=Record Fam:String[50]; Addres:String[50]; Nomer:String[7]; Marka:String[20]; End; VAR i,ii:integer; Baza:Array[1..50] of Cars; k,z,f:byte; Stroka:String; BEGIN k:=0; WriteLn('Ñêîëüêî áóäåì äåëàòü çàïèñåé, ×òîá âûéòè íàæìèòå "0". (Ìàêñèìóì 50) ?'); readln(z); if z=0 then Exit; For i:=1 to z do Begin Writeln('Çàïèñü ¹ ',i,'.'); Writeln; Write(' Ââåäèòå ôàìèëèþ. (Ìàêñèìóì 50 áóêâ): '); Readln(Baza[i].Fam); Write(' Ââåäèòå àäðåññ. (Ìàêñèìóì 50 áóêâ): '); Readln(Baza[i].Addres); Write(' Ââåäèòå íîìåð ìàøèíû. (Ìàêñèìóì 7 áóêâ): '); Readln(Baza[i].Nomer); Write(' Ââåäèòå ìàðêó ìàøèíû. (Ìàêñèìóì 20 áóêâ): '); Readln(Baza[i].Marka); End; Writeln('Ñïèñîê àâòîâëàäåëüöåâ, ó êîòîðûõ áîëåå îäíîãî àâòîìîáèëÿ:'); Writeln; for i:=1 to z do Begin Stroka:=Baza[i].Fam; For ii:=1 to z do if Stroka=Baza[ii].Fam then inc(k); if k>=2 then Begin writeln('Çàïèñü ¹ ',i,'.'); writeln; write(' ',Baza[i].Fam); write(' ',Baza[i].Addres); write(' ',Baza[i].Nomer); writeln(' ',Baza[i].Marka); writeln; f:=1; End; k:=0; End; if f=0 then writeln(i); END. Вернуться к обсуждению: Допишите программу Pascal ABC
0
|
29.06.2012, 00:22 | |
Готовые ответы и решения:
1
Допишите программу Допишите программу на матрицу Допишите программу Допишите программу |
29.06.2012, 00:22 | |
29.06.2012, 00:22 | |
Помогаю со студенческими работами здесь
0
Пожалуйста допишите программу Допишите корректно программу - Таблица деления Допишите прогу ДОПИШИТЕ КОД ) |