|
|
| Другие темы раздела | |
| Turbo Pascal Вычислить значение функции Задача:Дано два целочисленных одномерных массива: Массив Х X=24 X=43 X=26 X=-45 X=-75 X=18 X=38 X=16 X=5 X=18 X=-13 X=-28 X=3 X=15 X=17 Массив С C=68 C=-95 C=42 C=21 C=60 C=-67 C=-18 C=-96 C=36 C=-12 C=92 Вычислить значение функции z=(s1+abs(S2))/(K1+K2) S1 и K1 сумма и число положительных элементов первого массива S2 и K2 сумма и число отрицательных элементов первого массива ... https://www.cyberforum.ru/ turbo-pascal/ thread1243452.html |
Turbo Pascal Ввод, вывод и нахождение сумм и количества элементов массива Дано два целочисленных одномерных массива: Массив Х X=24 X=43 X=26 X=-45 X=-75 X=18 X=38 X=16 X=5 X=18 X=-13 X=-28 X=3 X=15 X=17 Массив С C=68 C=-95 C=42 C=21 C=60 C=-67 C=-18 C=-96 C=36 C=-12 C=92 Вычислить значение функции z=(s1+abs(S2))/(K1+K2) S1 и K1 сумма и число положительных элементов первого массива S2 и K2 сумма и число отрицательных элементов первого массива Ввод, вывод и... |
|
Turbo Pascal Ошибка в коде программы, которая определяет наличие заданной буквы в строке
https://www.cyberforum.ru/ turbo-pascal/ thread1243347.html В общем : я ввожу строку и букву, если буква в строке есть программа пишет мне true а если нету false. Но вот что-то не получается. Помогите пожалуйста. function search(str:string; ch:char):integer; var i,q:integer; begin q:=0; for i:=1 to length(str) do if str=ch then q:=q+1; search:=q; end; |
Turbo Pascal Зачем нужен var в function?
https://www.cyberforum.ru/ turbo-pascal/ thread1242995.html Всем привет. Изучал недавно procedure и function. С procedure и var все понятно, это как ссылка. А вот зачем var в function? Ведь и без него она работает как ссылка. Вот пример: function a(var b,c: ....): ......; и funnction a(b,c:.....):.....; |
|
В слове заменить все буквы b на буквы a. Найти ошибку Turbo Pascal Я прошу прощения, изучаю паскаль, нужно создать прогу: вводим слово, затем прога ищет букву b и заменяет на a. Затем выводит результат. Вот что у меня получилось. Но ничего не получается, помогите пожалуйста найти ошибкуvar s:string; i:integer; begin writeln('Bвежите слово'); readln(s); for i:=1 to length(s) do begin if s='b' then s='a'; end; writeln(s); |
Turbo Pascal Разобрать код, вычисляющий выражение
https://www.cyberforum.ru/ turbo-pascal/ thread1241703.html Никак не могу понять как вычисляется данное выражение, не могли бы вы его разобрать для того чтобы я мог вникнуть: var a,b:word; c:real; begin c:=a*b; writeln(c); readln; end. |
| Turbo Pascal Построить график функции Помогите пожалуйста построить график на турбо паскале y=(x+3)/(x-2) https://www.cyberforum.ru/ turbo-pascal/ thread1241154.html |
Turbo Pascal В Турбо Pascal есть только 3 вида выражений: арифметические, логические и символьные; а как насчет строковых? Все ли согласны с тем что в языке Турбо Паскаль есть только 3-и вида выражений: арифметические, логические и символьные? Разве строковые выражения не входят в этот список? |
| Turbo Pascal Задана последовательность из N чисел. Найти самую длинную последовательность, обладающую данным свойством Прошу помощи мастеров решить ОДНУ задачкУ: 1) Задана последовательность из N чисел. Найти самую длинную последовательность, обладающую следующим свойством: Ai<Ai+1>Ai+2<Ai+3>Ai+4<… Заранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread1240152.html |
Turbo Pascal Какие отличия наблюдаются между такими описательными элементами как переменная и типизированная константа
https://www.cyberforum.ru/ turbo-pascal/ thread1239993.html Хотел бы узнать, какие отличия наблюдаются между такими описательными элементами как переменная и типизированная константа, исключая то что типизированной константе может быть присвоено значение в описательно части. |
|
Построить график функции Turbo Pascal Прошу помощи мастеров решить ОДНУ задачкУ: 2) Построить график функции y=cos(x-1)+|x| Заранее спасибо |
Turbo Pascal Быстрая сортировка - нужен пример
https://www.cyberforum.ru/ turbo-pascal/ thread1239383.html Написать программу, которая реализует быструю сортировку. В основной программе задаётся массив данных (из файла), затем сортируется. Хотелось бы увидеть варианты программы от знающих людей :) Заранее огромное спасибо! |
|
Модератор
  |
|
| 18.08.2014, 17:31 | 0 |
Имеется текстовый файл. Напечатать: а) первый символ первой строки б) k-ый символ n-ой строки - Turbo Pascal - Ответ 652923718.08.2014, 17:31. Показов 2704. Ответов 13
Метки (Все метки)
Ответ
MIcov15,
В Notepad++ используйте кодировку Кириллица DOS, она же 866. Консоль в Windows использует кодировку OEM, в качестве которой для русских версий и русских локалей используется кодовая страница 866. Для GUI приложений используется кодировка ANSI, для русских версий и русских локалей это кодовая страница 1251 либо подмножество юникода UCS2 (с двухбайтными символами). Вернуться к обсуждению: Имеется текстовый файл. Напечатать: а) первый символ первой строки б) k-ый символ n-ой строки Turbo Pascal
0
|
|
| 18.08.2014, 17:31 | |
|
Готовые ответы и решения:
13
Имеется текстовый файл. Напечатать первый символ первой строки Имеется текстовый файл. Напечатать: первый символ первой строки
|
| 18.08.2014, 17:31 | |
| 18.08.2014, 17:31 | |
|
Помогаю со студенческими работами здесь
0
Имеется текстовый файл напечатать k-ый символ n-ой строки
Дан текстовый файл. Напечатать первый символ каждой строки
|