Задачи в Паскале
|
| | |
ZloyGraf83 | Дата: Пятница, 11.12.2009, 00:19 | Сообщение # 361 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| Помогите пожалуйста!!! Не могу решить эти задачи. 1. Составить программу обработки двумерного массива на языке Паскаль. В квадратной матрице порядка n определить образуют ли элементы каждой их главной и побочной диагоналей арифметическую прогрессию (разница между двумя соседними элементами одинакова). Заранее огромнейшее спасибо!!!!!!!!!!!!!!!!
|
|
| |
kirilka | Дата: Пятница, 11.12.2009, 04:15 | Сообщение # 362 |
Лейтенант
Группа: Участник
Сообщений: 12
[ 0 ]
Статус: Offline
| Quote (ZloyGraf83) Помогите пожалуйста!!! Не могу решить эти задачи. 1. Составить программу обработки двумерного массива на языке Паскаль. В квадратной матрице порядка n определить образуют ли элементы каждой их главной и побочной диагоналей арифметическую прогрессию (разница между двумя соседними элементами одинакова). Заранее огромнейшее спасибо!!!!!!!!!!!!!!!! Могу решить сегодня за 2,5$, если нужно - обращайся.
|
|
| |
Vasily | Дата: Суббота, 12.12.2009, 08:52 | Сообщение # 363 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| А мне поможете у меня всего 3 задачки!
|
|
| |
НАТАШКА372236 | Дата: Суббота, 12.12.2009, 15:15 | Сообщение # 364 |
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
| Пожалуйста помогите решить задачу.И построить циклическую схему. А:=14; В:=2; While not(a*b<0) do Begin If((a+b)mod 3)=0 then Writeln(a-b); А:=а-3; В:=b+1; End;
|
|
| |
kirilka | Дата: Суббота, 12.12.2009, 15:43 | Сообщение # 365 |
Лейтенант
Группа: Участник
Сообщений: 12
[ 0 ]
Статус: Offline
| Quote (Vasily) А мне поможете у меня всего 3 задачки! Пиши на ящик kirilka2008ko@mail.ru Там скажешь условия задач и договоримся о цене.Добавлено (12.12.2009, 15:43) ---------------------------------------------
Quote (НАТАШКА372236) Пожалуйста помогите решить задачу.И построить циклическую схему. А:=14; В:=2; While not(a*b<0) do Begin If((a+b)mod 3)=0 then Writeln(a-b); А:=а-3; В:=b+1; End; Пиши на ящик kirilka2008ko@mail.ru Могу объяснить, как работает алгоритм, написать комментарий к работе данного кода и построить блок-схему.
|
|
| |
[HR]Hwoarang | Дата: Воскресенье, 13.12.2009, 10:18 | Сообщение # 366 |
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
| тут же делать нечего в этой задаче
|
|
| |
НАТАШКА372236 | Дата: Воскресенье, 13.12.2009, 10:34 | Сообщение # 367 |
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
| умом то я это понимаю,но если на лекции ни чего не поняли,то думаю не дано.голова уже болит,а во вторник надо сдать.Если есть возможность помогите.Ну и сколько это будет стоить?
|
|
| |
kirilka | Дата: Воскресенье, 13.12.2009, 17:22 | Сообщение # 368 |
Лейтенант
Группа: Участник
Сообщений: 12
[ 0 ]
Статус: Offline
| Quote (НАТАШКА372236) умом то я это понимаю,но если на лекции ни чего не поняли,то думаю не дано.голова уже болит,а во вторник надо сдать.Если есть возможность помогите.Ну и сколько это будет стоить? Со всеми комментариями и блок-схемой 3$.
|
|
| |
Bestyyy | Дата: Воскресенье, 13.12.2009, 18:06 | Сообщение # 369 |
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
| Всем, кто читает этот пост, доброго времени суток!! Вынужден снова обратиться за помощью к этому сайту-форуму. На этот раз задача, по моему взгляду, большая и сложноватая, написать программу надо в Паскале! В общем помагите плз!!! __________________________________________________________ Написать программу, выполняющую следующие действия: По запросу программы вводим с клавиатуры N целых чисел. N – целое положительное число, которое определяется пользователем и вводится с клавиатуры по запросу программы. Если введенное значение N не отвечает заданному условию, на экран монитора выдается сообщение: «Ошибка ввода!!! Значение N положительное число. Введите значение N».Если введенное значение N соответствует условию необходимо найти и вывести на экран монитора ЭВМ среднее арифметическое всех четных чисел введенных с клавиатуры. Результат выводится в десятичной форме с точностью до 3-го знака после десятичной точки По запросу «Опять?» на ответы «Обязательно» или «да» - ввод новых исходных значений и повторение работы программы, в противном случае – вывод сообщения «Конец!!!» и выход из программы. __________________________________________________________ Прошу помочь поскарее, заранее благодарен
Сообщение отредактировал Bestyyy - Воскресенье, 13.12.2009, 18:09 |
|
| |
Life | Дата: Воскресенье, 13.12.2009, 20:03 | Сообщение # 370 |
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
| ПОМОГИТЕ РЕШИТЬ ХОТЯ БЫ ОДНУ ЗАДАЧКУ!!!!!!!!!!!!!ПОЖАЛУЙСТА;) 1. По заданному названию реки вывести название материка, где данная река берёт своё начало.(тема задачи:ПЕРЕЧИСЛИМЫЕ И ОГРАНИЧЕННЫЕ ТИПЫ ДАННЫХ) 2.В заданном тексте встречаются строки типа: фамилия—иванов имя—иван отчество—Иванович. Выбрать их и распечатать на каждой строке в виде: иванов иван иванович.(тема задачи: ОБРАБОТКА СИМВОЛЬНОЙ ИНФОРМАЦИИ) 3.В матрице А (4 строки, 5 столбцов) поменять местами наибольшие элементы в ее верхней и нижней половинах. Для поиска индексов наибольшего элемента в произвольной части матрицы использовать процедуру(тема задачи: СОСТАВЛЕНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ ПОДПРОГРАММ - ПРОЦЕДУР) 4.Для матрицы из 2 столбцов и 9 строк отпечатать номер каждой строки, квадрат первого элемента, которой меньше абсолютного значения второго элемента строки, и число таких строк.(тема задачи: РЕГУЛЯРНЫЕ ТИПЫ ДАННЫХ. МАТРИЦЫ) 5.Определить номер наименьшего из значений Ai2 – Ci2.(тема задачи: РЕГУЛЯРНЫЕ ТИПЫ ДАННЫХ. МАССИВЫ)
Сообщение отредактировал Life - Воскресенье, 13.12.2009, 20:05 |
|
| |
fifachka | Дата: Понедельник, 14.12.2009, 00:22 | Сообщение # 371 |
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
| помогите! мне через 4 часа надо сдать задачи для зачета!! 1)1.Напишите программу, которая после запуска вычислит и выведет на экран сумму всех целых чисел от 1 до 200, которые делятся на 8. 2)1.Решить уравнение ах=b для пяти пар значений а и b, заданных в виде 2-х массивов. Результат поместить в массив х. 3)1.Дана матрица С(N, N). Вычислить сумму и число положительных элементов матрицы, находящихся над главной диагональю. 4)1.Дан двумерный массив, содержащий три строки и три столбца. Элементами массива являются целые числа. Упорядочить массив по возрастанию элементов первой строки. 5)1.Дано натуральное n и символы S1, ..., Sn. Выяснить, каких символов среди S1, ..., Sn больше - запятых или точек с запятой? (Не исключая и случай равенства.) 6)1.Даны натуральное число n, символы S1, ..., Sn. Преобразовать последовательность S1, ..., Sn, заменив в ней все восклицательные знаки точками. пожалуйста помогите, а то я ничего не успеваю(
|
|
| |
Bestyyy | Дата: Понедельник, 14.12.2009, 01:34 | Сообщение # 372 |
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
| (время написания поста "Понедельник, Сегодня, 00:22") Quote (fifachka) помогите! мне через 4 часа надо сдать задачи для зачета!! хахаах интересно кто это в 4 часа утра зачёты принимает
|
|
| |
[HR]Hwoarang | Дата: Понедельник, 14.12.2009, 10:39 | Сообщение # 373 |
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
| Bestyyy, не все живут в москве
|
|
| |
akira | Дата: Понедельник, 14.12.2009, 16:09 | Сообщение # 374 |
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
| Люди помогите пожалуста, все время одна и таже ошибка (type mismatch) Code Program lab; Type Dano=record Fam,Im,Otch,Firma,Predmet,Tel:string[16]; end; Var SP:array[1..25] of Dano; FF:string[16]; i,j,m,n:byte; Key:boolean; S:File of array[1..25] of Dano; Begin Assign(S,'h:\tp\file1.txt'); Rewrite(S); Writeln('kolvo partnerov'); Readln(n); n:=n+1; sp[1].Fam:='Familiya'; sp[1].Im:='Imya'; sp[1].Otch:='Otchestvo'; sp[1].Firma:='Firma'; sp[1].Predmet:='Predmet'; sp[1].Tel:='Telephon'; for i:=1 to n do m:=1; Begin Repeat m:=m+1; Write('Fam: '); Readln(SP[m].Fam); Write('Imya: '); Readln(SP[m].Im); Write('Otch: '); Readln(SP[m].Otch); Writeln('vvedite Firmu i predmet cherez zapyatuu '); Readln(SP[m].Firma,SP[m].Predmet); Write('Telephon '); Readln(SP[m].Tel); Write(S,SP); <====== вот здесь останавливаеца курсор Until n=m; End; Writeln; Writeln; Writeln(' Spisok partnerrov '); Writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'); For i:=1 to m do With SP[i] do Begin Writeln(Fam:16,'|',Im:16,'|',Otch:16,'|',Firma:16,'|',Predmet:16,'|',Tel:16); end; reset(s); Read(S,SP); Writeln('vvedite fam'); Readln(FF); i:=0; Key:=false; Repeat i:=i+1; If SP[i].Fam=FF then key:=true Until key or(i=m); If key then With SP[i] do Begin Writeln('DanbIe o partnere'); Write(fam:16,' '); Writeln(Im:16,'|',Otch:16,'|',Firma:16,'|',Predmet:16,'|',Tel); end Else writeln('DannbIh o ',FF:16,' net'); Close(S); end. Что тут нетак, типы вроде правильно(
Сообщение отредактировал akira - Понедельник, 14.12.2009, 16:49 |
|
| |
fifachka | Дата: Понедельник, 14.12.2009, 17:31 | Сообщение # 375 |
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
| всем спасибо! вот и осталась без зачета(
|
|
| |
|