|
|
| Другие темы раздела | |
|
Pascal ПОМОГИТЕ с комментариями
https://www.cyberforum.ru/ pascal/ thread8275.html прокомментируйте плиз прогу, я прост в паскале не силен......желательно подробно.....спс.... вот код type TreeLink = ^Tree; Tree = record Data: string; Left, Right: TreeLink; ... |
Очень срочно, простая задача на матрицы! Pascal Пожалуйста, выручите! На завтра нужна такая программка: даны 49 чисел (думаю логичнее всего рандомом заполнять), из них нужно составить матрицу по следующей схеме:... |
|
Pascal Подсчитать количество цифр, входящих в строку
https://www.cyberforum.ru/ pascal/ thread8255.html Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку. |
Pascal Помогите Пожалуйста оч оч нужно! задачки Пожалуйста помогите решить несколько задачек,а то я нитё не понимаю Плиз плиз плиз! Я буду очень благодарна! Линейные алгоритмы: 1)Заданы два целых числа k и d. Используя только арифметические... https://www.cyberforum.ru/ pascal/ thread8244.html |
|
Задача на строки, немогу разобраться Pascal В строке заданы через двоеточие 2 оператора присваивания общего вида: "первый:=число1+число2:второй:=число3-число4" (например:"A:=3+4:B:=7-2"). Вычислить значения переменых и распечатать их. Вот... |
Pascal Определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов
https://www.cyberforum.ru/ pascal/ thread8205.html Дан символьный файл f Считая что количество символов в слове не превосходит 20 а)определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов б)сколько слов в файле вот я... |
|
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;... |
Pascal Старый добрый тетрис Помогите вывести текущий результат и следующую фигуру. Заранее благодарен. { Программа Тетрис} uses crt, graph; type tFigure=array of byte; tFigures=array of tFigure; ... |
| Pascal ПРОШУ ПОДМОГИ!!! Уважаемые гуру! Помогите пожалуйста подредактировать данную программу, для того, чтобы при построении графика не печатались лишние пикселы справа.:help: Текс проги: Program Grafik; uses graph,... 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 |
|
Почетный модератор
64288 / 47587 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
|
|
| 21.05.2008, 20:43 | 0 |
Дан массив из восьми строк - Pascal - Ответ 3637621.05.2008, 20:43. Показов 1223. Ответов 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 | |
|
Помогаю со студенческими работами здесь
0
Дан двухмерный массив из 15 строк. Вставить в него строку из нулей после всех строк, номер которых кратен трем Дан целый массив из 5 строк и 3 столбцов.Упорядочить массив по возрастанию Дан массив M(n,k). Переписать в одномерный массив элементы всех строк, в которых есть нулевой элемент. |
