Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Записи: сведения о книгах https://www.cyberforum.ru/ pascalabc/ thread832859.html
Набросал прожку со структурой, как в нее сейчас залепить создание файла чет не могу допетрить, может кто поможет ? uses crt; const n = 100; type zap = record shifr: string; avtor: string; nazv: string; god: string; mesto: string;
Дана последовательность чисел, среди которых есть нуль, вывести все числа до нуля включительно(масив) Pascal ABC
Дана последовательность чисел, среди которых есть нуль, вывести все числа до нуля включительно. я сделал немного, дальше не знаю как var a :array of integer; n,i:integer; begin readln(n); for i := 1 to n do readln(a); for i:= 1 to n do if a<>0 then writeln (i);
Pascal ABC Написать программу. Записать в файл все "3-х буквенные" слова, состоящие из букв русского алфавита, Включая букву Ё Записать в файл все "3-х буквенные" слова, состоящие из букв русского алфавита, Включая букву Ё! https://www.cyberforum.ru/ pascalabc/ thread832840.html Pascal ABC Неясно с заменой группы символов (Стеганография) https://www.cyberforum.ru/ pascalabc/ thread832785.html
var firs, cont, fin: file of byte; temp, i, t, t_p: byte; c: char; tm: Array of 0..1; begin assign(firs, 'hidetext.txt'); assign(cont, 'container.txt'); assign(fin, 'cont+hide.txt'); reset(firs);
Какая из букв, «Е» или «О», встречается в предложении чаще. Pascal ABC
Составьте программу, определяющую, какая из букв, «Е» или «О», встречается в предложении чаще.
Pascal ABC Подсчитать количество слов, в которых имеется не менее двух символов "о" program pret; var pr:string; i,n,ks,ka:integer; begin ks:=0; ka:=0; write('введите предложение '); readln(pr); n:=length(pr); for i:=1 to n do https://www.cyberforum.ru/ pascalabc/ thread832602.html
Pascal ABC Удалить из массива все элементы, в которых последняя цифра четная, a само число делится на нее Дан массив целых чисел (n = 12), заполненный случайным образом числами из промежутка . Удалить из него все элементы, в которых последняя цифра четная, a само число делится на нее. https://www.cyberforum.ru/ pascalabc/ thread832504.html В масиве A[n], записываются оценки на первом экзамене. Подсчитать двойки на первом экзамене. Pascal ABC
Помогите плиз решить задачу с одномерным масивом. При поступлении в вуз абитуриенты получившие двойку на первом экзамене не допускаются ко второму экзамену. В масиве A, записываются оценки на первом экзамене. Подсчитать двойки на первом экзамене.
Pascal ABC Получить количество отрицательных элементов массива https://www.cyberforum.ru/ pascalabc/ thread832451.html
Дан массив действительных чисел а1,…, аn. Получить количество отрицательных элементов массива и произведение элементов, принадлежащих отрезку .
Pascal ABC Переставить первые три и последние три элемента массива местами, сохраняя их следование Дан массив целых чисел (n = 15), заполненный случайным образом числами из промежутка . Переставить первые три и последние три элемента местами, сохраняя их следование. Ввод исходных данных и вывод результата осуществить через файл. https://www.cyberforum.ru/ pascalabc/ thread832432.html
Pascal ABC Найти координаты левого нижнего и правого верхнего углов минимального прямоугольника
даны два прямоугольника,стороны которых параллельны или перпендикулярны осям координат.Известны координаты левого нижнего угла каждого из них и длины их сторон.найти координаты левого нижнего и правого верхнего углов минимального прямоугольника,содержащего указанные прямоугольники
Pascal ABC Вычислить значение выражения по формулам Вычислить значение выражения по формулам https://www.cyberforum.ru/ pascalabc/ thread832382.html
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
10.04.2013, 00:12 0

Составить программу ,которая печатает TRUE , если точка с координатами (Х,У) принадлежит заштрихованной области,и FALSE в противном случае: - Pascal ABC - Ответ 4389010

10.04.2013, 00:12. Показов 5981. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Петр1234 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var
  x,y: real;
begin
  write('Ââåäèòå x, y: ');
  readln(x,y);
  if (y>=0)and(y+abs(x)<=1)
    then writeln('Òî÷êà ïðèíàäëåæèò îáëàñòè') else
      writeln('Òî÷êà íå ïðèíàäëåæèò îáëàñòè');
end.


Вернуться к обсуждению:
Составить программу ,которая печатает TRUE , если точка с координатами (Х,У) принадлежит заштрихованной области,и FALSE в противном случае: Pascal ABC
Миниатюры
Составить программу ,которая печатает TRUE , если точка с координатами (Х,У) принадлежит заштрихованной области,и FALSE в противном случае:  
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2013, 00:12
Готовые ответы и решения:

Составить программу, которая печатает true, если точка с координатами (x,y) принадлежит закрашенной области
Составить программу, которая печатает true, если точка с координатами (x,y) принадлежит закрашенной...

Составить программу,печатующую значение TRUE ,если указанное высказывание ,является истиным и FALSE в противном случае:
сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр!

Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и false в противном случае
Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и...

Составить программу,печатающию значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: треугольник со сторонами a,b
Cоставить программу,печатающую значение true, если указанное высказывание является истинным, и...

2
10.04.2013, 00:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2013, 00:12
Помогаю со студенческими работами здесь

Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: данное четырехзначное число
Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и...

Составить программу, которая определяет, принадлежит ли точка с ко-ординатами (х , у) заштрихованной области
Составить программу, которая определяет, принадлежит ли точка с ко-ординатами (х , у)...

Вывести TRUE, если точка с координатами (x;y) принадлежит закрашенной области
Для данной области составить линейную программу, которая печатает TRUE, если точка с координатами...

Логической переменной присвоить значение true, если точка принадлежит заштрихованной области
Логической переменной p присвоить значение true, если точка с координатами x и у принадлежит...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru