Вот основа (писал сам) кода. Задача звучит так: вывести на экран в два стобца массовые концентрации серной кислоты в растворе при возрастании от 10г/л до 300г/л с шагом 10 г/л. Во…
Помогите перевести данный код на С: var a: array [0..10] of real; i,ls,lg,n:integer; x,xs,fs,fg:real; begin write('степень'); readln(n); for i:=0 to n do begin write('коэффициент …
Помогите написать на Pascal задачу. Пусть L - список целых чисел. Описать процедуру, которая включает в список число 0 за первым отрицательным числом. Если в L нет отрицательных ч…
Даны два массива А(i) и B(i). Создать массив C(i), каждый элемент которого будет равен наименьшему каждой пары элементов из А и В (элементы массива А и В вводить с клавиатуры). Мо…
Помогите рекурсивно описать функцию cos(x,k) на pascal, где cos(x,k)=cos(cos(..cos(x)..))(k косинусов)
Здравствуйте! Не могу сообразить, как можно в отдельном куске кода поменять сортировку данную, на сортировку вставками. Подскажите, пожалуйста, как. Кусок кода: const dl=5; n=5; p…
Не могу сообразить, нужна Ваша подсказка. Можно использовать только packed array. Переменные типа string использовать нельзя. Т.е. использовать стандарт Паскаля, а не тубро и т.п.…
Подскажите, пожалуйста, почему в графическом режиме в паскале не выводится переменная, когда пишу outtextxy(x,y,p[i]);, при этом p это интеджеровский массив. Обновление Что я не т…
Есть программа. Нужно сделать ввод элементов 3 способами: Массив X заполняется путем ввода данных с клавиатуры: из предопределенного файла Input; Массив X заполняется с использова…
Провести частотный анализ текста. Построить столбиковую гистограмму, отражающую количество слов в тексте, начинающихся на буквы заданного алфавита.
Дан массив размерности nxn. Элементы строк, находящиеся выше главной диагонали (не включая главную диагональ), расположить в порядке возрастания, а затем переписать их в виде вект…
Я запутался с Условным оператором If then else, я ввожу Program help2; var a,b,c:LongInt; begin ReadLn(a); ReadLn(b); a:= ( b < c ); // и тут я не понял If then else По идее, я…
Зубчатая передача состоит из N шестерен, оси оборотов которых находятся на одной прямой. На шестернях нанесены одинаковые метки, которые в начальном состоянии механизма попарно со…
В лоб не понимаю, почему паскаль ругается на выражение str[i] <> ' ': Нельзя преобразовать тип char к boolean program pr; var str, str_new: string; var i: integer; begin wri…
Здравствуйте! Паскаль не знаю, поэтому, возможно, ошибка в синтаксисе. В алгоритме вроде всё верно написал. Помогите довести её до рабочего вида. Срочно надо. :) Задача: В заданны…
Имеем программу: var a, b: real; function dg0(a, b : real) : real; var dg : real; f, r : longint; begin r := 1; repeat a := a * b; f := trunc(a); dg := dg + f * r; until a - trunc…
Требуется считать запись из файла (дано имя, фамилия, знак зодиака, дата рождения). Далее, записать данные в массив. Выдает ошибку 106: Invalid numeric format. Код: type znak= rec…
У меня есть файл, с данными, например такой: ЧУ ЧУ Тренировка 24.05.2011 12:56:40 2 5 5 5 5 2 5 5 5 5 5 5 ЧУ ЧУ Тренировка 24.05.2011 21:41:27 2 2 5 2 2 5 2 2 2 5 2 Мне нужна функ…
У меня есть процедура FormShow() которая выполняется при показе нового окна, который рэндомно считывает информацию из файла. И есть кнопка, при нажатии на которую, я бы хотел вызв…
Вобщем, условие задачи: Майкл хочет провести свой космический корабль через опасное астероидное поле в форме решетки N*N (1 <= N <= 500). Решетка содержит K астероидов (1 &l…
Я написал программу. Она должна получать количество известных остатков (при делении), сами эти остатки (по очереди, один за одним), числа, при делении на которые эти остатки получ…
Всем здравствуйте. Скажите пожалуйста, как в Паскале (самом обычном) сделать массив переменной длины? Т.е. чтобы юзер сам вводил с клавы его длину. В интернете ничего найти не смо…
Готовясь к экзамену по информатике (егэ). Мне попалась такая задача: На вход программе подаются сведения о сотрудниках некоторой организации. В первой строке сообщается количество…
Есть ассемблер код для Borland Turbo Pascal: procedure cursOFF; Assembler; asm mov ah,01; mov cx,$2000; int 10h; end; procedure cursON; Assembler; asm mov ah,01; mov cx,$0fff; int…
Есть программа на Паскале, которая занимается сортировкой Шелла и вставками. Процедуры сортировки замечательные и вроде как адекватно работают (если не ошибаюсь), но только с одно…
Здравствуйте, не могу понять как решать данную задачу, пожалуйста, кто может, приведите код с пояснениями... Заранее благодарен. Задача: С клавиатуры вводится число n - порядок по…
Давным давно не писал в паскале, вот задал функцию и не могу найти ошибку. program _1; uses crt; var y:text; minSumEl,n,g:real; i,j,k:integer; f:array[1..6,1..7] of real; m:array[…
В текстовом файле посчитать количество строк, которые начинаются и кончаются одной и той же согласной буквой. Прошу помочь с этой программой.
Здравствуйте. Помогите решить задачу на паскале. С клавиатуры вводится слово, состоящее из заглавных латинских букв. Определите, сколько различных анаграмм можно составить из данн…
Как удалить последний выведенный символ?