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

ZiGSuN

27 / 27 / 7

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

Сообщений: 66

10.10.2010, 18:42

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

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

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

Ответ

Pascal

var
 n:integer;
 i,:integer;
 s:string;
 d:string;
function var1(x:string):integer;
  var 
   g:integer; 
 begin
    d:=X[1];
    X[1]:=X[2];
    X[2]:=X[3];
    X[3]:=X[4];
    X[4]:=d;
    var1:=val(x,i,g);
   end; 
function var2(x:stirng):integer;
 var 
  g:integer;
 begin
    d:=X[1];
    X[1]:=X[2]
    X[2]:=d;
    d:=X[3];
    X[3]:=X[4];
    X[4]:=d;
    var1:=val(x,i,g);
   end; 
begin
 Write('Введите 4х-значное число : ');readln(n);
  Str(n,s);
  write(var1(s));
  write(var2(s));
end.

вот для первых двух вариантов второй задачи ! если разберешься то функции var1 И var2 можно сможешь пределать под var3,4,5,6!
Не тестил!

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

10.10.2010, 18:42

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

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

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

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

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

	10.10.2010, 18:42

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

10.10.2010, 18:42

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

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

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

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

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

Наверх