Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Программа, когда вводишь годы, она должна ставить правильное окончание!? https://www.cyberforum.ru/ pascal/ thread174625.html Т.е. если ввел 20 - она должна написать "Двадцать лет", если 23 - "Двацать три года", 40 - "Сорок лет", и т.д. и т.п.	Pascal Дан текст, каждый символ которого может быть малой буквой Дан текст, каждый символ которого может быть малой буквой, цифрой или одним из знаков +,-,*. Группой букв будем называть такую совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква. Аналогично определим группу цифр и группу знаков. Выяснить, верно ли, что в данном тексте больше групп букв, чем групп знаков.
Pascal Блок схемы на паскале Подскажите пожалуйста программу для создания блок схем для паскаля! Кроме fceditor. Он мне выдает ошибку: "Входной файл не может быть открыт" а потом пишет: "Во время импорта произошла критическая ошибка". не подскажите как это исправить? https://www.cyberforum.ru/ pascal/ thread174618.html	Pascal поиск одинаковых элементов в 2 массивах https://www.cyberforum.ru/ pascal/ thread174609.html Помогите пожалуйста. Нужно срочно доделать программу.Прям с утра сдать. Не могу осилить один кусочек никак, стопориться вся работа дальше. Даны 2 массива. Первый u- 2 строки, n столбцов (в первой строке-x, во второй- y).Второй k- 2 строки, p столбцов (в первой строке- x, во второй-y). Первый массив заполнен (проверка выдала верные результаты), во втором заполнена первая строка - x, нужно...
Два круга Pascal Помогите решить на паскале Определить количество точек пересечения двух кругов. Входные данные 6 чисел x1, y1, r1, x2, y2, r2, где x1, y1, x2, y2 - координаты центров кругов, а r1, r2 - их радиусы. Все числа - действительные, не превышают по модулю 1000000000, заданные не более чем с 3-мя знаками после запятой. Выходные данные Единственное число - количество точек пересечения. Если...	Pascal Runtime error 207. В чём причина? Program Lab6; Var f:text; name:string; Y:array of integer; k,i,Nb,Ne:integer; r:integer; G:real; Fl:boolean; stepin:integer; https://www.cyberforum.ru/ pascal/ thread174574.html
Pascal Медианы треугольников https://www.cyberforum.ru/ pascal/ thread174553.html Задача Длины сторон 10 треугольников заданы в массивах A, B, C. Найти сумму длин медиан каждого из треугольников и определить максимальную из них (длина медианы, проведенной к стороне а, равна: 0,5 / 2bb+2cc-a*a)	Обьем куба Pascal Составить программу, которая запрашивает объем куба, а выводит длину ребра куба и площадь его боковой поверхности.
Pascal Найти индексы максимального по модулю, кратного 3 элемента матрицы Задачка : Найти индексы максимального по модулю, кратного 3 элемента матрицы https://www.cyberforum.ru/ pascal/ thread174530.html	Pascal Правильно ли составлен алгоритм и программа? Просьба исправить, если имеются ошибки! program Pro2; uses crt; var x, y:real; begin clrscr; write ('Введите x - '); readln (x); if x <= 5 then y:=(sin(x)+2)/(cos(x)+10) else if x < 15 then https://www.cyberforum.ru/ pascal/ thread174522.html
Найти индексы максимального по модулю, кратного 3 элемента матрицы Pascal Задача 1 Найти индексы максимального по модулю, кратного 3 элемента матрицы Задача 2 Длины сторон 10 треугольников заданы в массивах A, B, C. Найти сумму длин медиан каждого из треугольников и определить максимальную из них (длина медианы, проведенной к стороне а, равна: 0,5 / 2bb+2cc-a*a) help me please ! =)	Pascal Найлите ошибку в программе Дано слово к примеру: "ашас.", это слово нужно перевернуть, получится "саша." Я написал так: program A2; var s:string; a,i,b:integer; begin readln (s); a:=length (s); for i:= 1 to a do begin if s='.' then begin b:=i; https://www.cyberforum.ru/ pascal/ thread174498.html

Шутка

code code

128 / 123 / 77

Регистрация: 11.10.2009

Сообщений: 375

10.10.2010, 18:38

лаба. 3 задания, написать для каждого задания отдельную прогу. - Pascal - Ответ 1017569

10.10.2010, 18:38. Показов 2637. Ответов 5

Метки (Все метки)

Ответ

Pascal

var
y,x:integer;
begin
randomize;
x:=random(100-51)+50;
y:=random(100-51)+50;
writeln(x+y);
end.

под б сможете сделать по аналогии?

Добавлено через 9 минут

Pascal

uses crt;
var
s:string;
i,k:integer;
x,y,z,q:char;
begin
repeat
readln(s);
k:=0;
for i:=1 to length(s) do begin
k:=k+1;
end;
until k=4;
x:=s[1];
y:=s[2];
z:=s[3];
q:=s[4];
s[1]:=s[2];
s[2]:=s[3];
s[3]:=s[4];
s[4]:=x;
writeln(s);
end.

Остальные так же, по аналогии.

Вернуться к обсуждению:
лаба. 3 задания, написать для каждого задания отдельную прогу. Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.10.2010, 18:38

Готовые ответы и решения:

Объединить программы для задания 1 и задания 2 в одну
Нужно выполнить программу на паскале, объединив программы для задания 1 и задания 2 в одну....

Создание Кругов Для каждого задания
Привет всем! Нужно чтоб создавались круги при создании заданий которые будут Тех цветов к какому...

Как сделать чтоб для каждого Задания выводилось свое время завершения?
Есть таблица Таскс в которой хранятся название задачи и проект задачи. Есть таблица Таймс,в ней...

Написать функцию для реализации задания
Превратить в список, где каждый атом список. Насколько я понял когда задан список (например...

	10.10.2010, 18:38

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.10.2010, 18:38

Помогаю со студенческими работами здесь

После задания 8.04 консоль закрывается, хотя впереди еще задания и readln-ы
Добрый день, делаю несколько простых заданий связанных со строками, проблема в том что после...

Четыре школьных задания, буду очень благодарен( задания прикреплены)
Первое задание решить при помощи двумерной таблицы. Буду очень благодарен.

Как для задания курсора написать запрос?
— Сделать выборку данных из таблицы Lease с использованием курсора и цикла с методом %FOUND для...

Написать программу, которая позволяет редактировать задания для теста.
Написать программу в Delphi, которая позволяет редактировать задания для теста.Возможности: 1)...

Наверх