|
|
|
| Другие темы раздела | |
|
Pascal ПОМОГИТЕ с комментариями
https://www.cyberforum.ru/ pascal/ thread8275.html прокомментируйте плиз прогу, я прост в паскале не силен......желательно подробно.....спс.... вот код type TreeLink = ^Tree; Tree = record Data: string; Left, Right: TreeLink; end; procedure InsTree(var t:TreeLink; Num, NumNode : integer; S:String); var PNum, LNum, k : integer; begin |
Очень срочно, простая задача на матрицы! Pascal Пожалуйста, выручите! На завтра нужна такая программка: даны 49 чисел (думаю логичнее всего рандомом заполнять), из них нужно составить матрицу по следующей схеме: http://mediapix.ru/pics/1cafd8aca506e00eb91ed7ab409f511b.jpg Очень-очень надо! |
|
Pascal Подсчитать количество цифр, входящих в строку
https://www.cyberforum.ru/ pascal/ thread8255.html Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку. |
Pascal Помогите Пожалуйста оч оч нужно! задачки Пожалуйста помогите решить несколько задачек,а то я нитё не понимаю Плиз плиз плиз! Я буду очень благодарна! Линейные алгоритмы: 1)Заданы два целых числа k и d. Используя только арифметические операции, найдите целую и дробную части от деления k на d. 2)Дано действительное число a. Не пользуясь никакими другими операциями кроме умножения, получить a21 за шесть операций; ("21"-в... https://www.cyberforum.ru/ pascal/ thread8244.html |
|
Задача на строки, немогу разобраться Pascal В строке заданы через двоеточие 2 оператора присваивания общего вида: "первый:=число1+число2:второй:=число3-число4" (например:"A:=3+4:B:=7-2"). Вычислить значения переменых и распечатать их. Вот решение задачи примерно такова типа только для знаков +,-,*,/ и выражения вида "первый:=число1 знак число2" program expression; var s:string;ss:string;si:Char;a1,a2,is,i,p1,p2:integer;res:real;... |
Pascal Определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов
https://www.cyberforum.ru/ pascal/ thread8205.html Дан символьный файл f Считая что количество символов в слове не превосходит 20 а)определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов б)сколько слов в файле вот я половину сделал, дальше не как, помогите пжалуста !!! Program alex; Uses crt; Var a:array of integer; f:text; |
|
Pascal Матрицы. Найти сумму элементов главной и побочной диагонали.
https://www.cyberforum.ru/ pascal/ thread8199.html Дана матрица вещественых чисел P(7,7). Вычислить сумму элементов главной диагонали и симметричной ей. program qwesadf; uses crt; var p:array of real;i,n,j:integer;s1,s2:real; begin clrscr; writeln('vvedite razmer matrici'); readln(n); writeln('vvedite elementi matrici'); |
Pascal Старый добрый тетрис Помогите вывести текущий результат и следующую фигуру. Заранее благодарен. { Программа Тетрис} uses crt, graph; type tFigure=array of byte; tFigures=array of tFigure; tColors=record workbox:byte; figures:array of byte; |
| Pascal ПРОШУ ПОДМОГИ!!! Уважаемые гуру! Помогите пожалуйста подредактировать данную программу, для того, чтобы при построении графика не печатались лишние пикселы справа.:help: Текс проги: Program Grafik; uses graph, crt; var driver, mode, i: integer; x,y, S: real; cx,cy: word; {center} d1,d2: integer; {diapazon} mas: byte; {masshtab} https://www.cyberforum.ru/ pascal/ thread8182.html | Pascal Перевод чисел из 16-ой в 10-ую систему счисления прграмма перевода чисел из 16-ой в 10-ую :huh::help::help: https://www.cyberforum.ru/ pascal/ thread8152.html |
|
помогите программисты мудрые:) Pascal нужен код для: массив из целых чисел заполняемый случайными числами от 0 до 33 от 4 до 66 от 67 до 100 представить числа в процентном соотношении, массив 70 элементов :umnik: |
Pascal Прошу помощи в описании процесса решения задач по паскалю (задачи решены) program zad1; var q,x,y:real; begin Write('Q = ');Readln(Q); Write('X = ');Readln(X); y:=((sqr(x)*sqr(x))*(x+q)+sqr(q)*cos(x+q))/sqrt(abs(x+q)); Writeln('Y = ',y:3:3); readln; https://www.cyberforum.ru/ pascal/ thread8128.html |
|
Почетный модератор
64304 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
| 21.05.2008, 20:43 | 0 |
Дан массив из восьми строк - Pascal - Ответ 3637621.05.2008, 20:43. Показов 1267. Ответов 4
Метки (Все метки)
Ответ
Что-то недоглядел про сортировку. Делается она как любая сортировка массива, только не по всему значению строки, а по трем последним символам.
Вот отремонтированный код. Код
[FONT='Courier New CYR']uses crt;
[FONT='Courier New CYR']const n=8;[/FONT]
[FONT='Courier New CYR']var s:array[1..n]of string;[/FONT]
[FONT='Courier New CYR'] s1:array[1..20]of string;[/FONT]
[FONT='Courier New CYR'] i,t,q,c,j:integer;[/FONT]
[FONT='Courier New CYR'] sr:real;[/FONT]
[FONT='Courier New CYR'] st,x:string;[/FONT]
[FONT='Courier New CYR']begin[/FONT]
[FONT='Courier New CYR']clrscr;[/FONT]
[FONT='Courier New CYR']for i:=1 to n do[/FONT]
[FONT='Courier New CYR'] begin[/FONT]
[FONT='Courier New CYR'] write('s[',i,']:');{primer vvoda Popov 5 3}[/FONT]
[FONT='Courier New CYR'] readln(s[i]);[/FONT]
[FONT='Courier New CYR'] end;[/FONT]
[FONT='Courier New CYR']writeln;[/FONT]
[FONT='Courier New CYR']writeln('Ishodnyj spisok:');[/FONT]
[FONT='Courier New CYR']for i:=1 to n do[/FONT]
[FONT='Courier New CYR'] begin[/FONT]
[FONT='Courier New CYR'] val(copy(s[i],pos(' ',s[i])+1,1),t,c);[/FONT]
[FONT='Courier New CYR'] val(s[i][length(s[i])],q,c);[/FONT]
[FONT='Courier New CYR'] sr:=(t+q)/2;[/FONT]
[FONT='Courier New CYR'] str(sr:4:1,st);[/FONT]
[FONT='Courier New CYR'] s1[i]:=s1[i]+s[i]+' srednee='+st;[/FONT]
[FONT='Courier New CYR'] writeln(s1[i]);[/FONT]
[FONT='Courier New CYR'] end;[/FONT]
[FONT='Courier New CYR']writeln;[/FONT]
[FONT='Courier New CYR']writeln('Otsortirovannyj spisok:');[/FONT]
[FONT='Courier New CYR']for i:=1 to n-1 do[/FONT]
[FONT='Courier New CYR']for j:=1 to n-1 do[/FONT]
[FONT='Courier New CYR']if copy(s1[j],length(s1[j])-2,3)<copy(s1[j+1],length(s1[j+1])-2,3)then[/FONT]
[FONT='Courier New CYR'] begin[/FONT]
[FONT='Courier New CYR'] x:=s1[j];[/FONT]
[FONT='Courier New CYR'] s1[j]:=s1[j+1];[/FONT]
[FONT='Courier New CYR'] s1[j+1]:=x;[/FONT]
[FONT='Courier New CYR'] end;[/FONT]
[FONT='Courier New CYR']for i:=1 to n do[/FONT]
[FONT='Courier New CYR']writeln(s1[i]);[/FONT]
[FONT='Courier New CYR']readln[/FONT]
[FONT='Courier New CYR']end.[/FONT]
Вернуться к обсуждению: Дан массив из восьми строк Pascal
0
|
|
| 21.05.2008, 20:43 | |
|
Готовые ответы и решения:
4
Двумерный массив.Дан массив 5 х 5. Определить сумму элементов тех строк, где диагональный элемент равен нулю и записать их в отдельный массив. Дан массив А (8,5). Распечатать элементы строк, первый элемент в которых больше среднего арифметического строк Дан массив из восьми элементов расположить в порядке убывания Дан массив строк. Упорядочить массив по длине строк |
| 21.05.2008, 20:43 | |
| 21.05.2008, 20:43 | |
|
Помогаю со студенческими работами здесь
0
Дан двухмерный массив из 15 строк. Вставить в него строку из нулей после всех строк, номер которых кратен трем Дан целый массив из 5 строк и 3 столбцов.Упорядочить массив по возрастанию Дан массив M(n,k). Переписать в одномерный массив элементы всех строк, в которых есть нулевой элемент. |
Наверх