Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
PascalABC.NET Как сделать форму фоновой? https://www.cyberforum.ru/ pascalabc-net/ thread794713.html
Всем привет. Есть вопрос по формам. Если прикрутить к форме какое-либо событие, то обработчик этого события будет вызываться только тогда, когда в сама форма находится в активном окне. Но если форма находится не в активном окне windows, то обработчик вызываться попросту не будет. Вот пример. uses graphabc,System.Windows.Forms; var k: integer; form:= new Form; procedure output; 		PascalABC.NET Как установить курсор в нужное положение?
Я так понимаю в GraphABC нет ни процедуры ни функции для этого. Как тогда с помощью .net это будет выглядеть? Добавлено через 7 минут System.Windows.Forms.Cursor.Position:= new point(20,20); Собственно такое решение нашел. И отсюда два вопроса: 1) Как сделать, чтобы отсчет шел от графического окна паскаля, а не от окна винды? 2) Тут память сама освобождается?
PascalABC.NET Вычисление сложного арифметического выражения Задание. Составить блок-схему алгоритма и программу на языке Паскаль для вычисления значений функции y=f(x) при заданных значениях x, y, z которые вводятся с клавиатуры. https://www.cyberforum.ru/ pascalabc-net/ thread792978.html PascalABC.NET Из turbo в ABC. немного подправить. Графическое задание uses crt,graph; const n=31; {массив - константа, можно ввести с клавиатуры} a:array of integer=(-10,-15,-9,-8,-5,-8,-6,-2, 0,-1, 2, 4, 6, -2, 4, 6, 8, 8,10, 6, 9, 11, 9, 8, 6, 9,12,13, 9, 8, 5); var gd,gm,x0,y0,i,max:integer; mx,my,x:real; s:string; begin https://www.cyberforum.ru/ pascalabc-net/ thread792898.html
PascalABC.NET Заполнение экрана разноцветными точками
uses graphABC, crt; var color:integer; begin randomize; repeat color:=random(15); putpixel(random(300),random(200),color); delay(10); until keypressed; 		PascalABC.NET Определите, сколько чисел, у которых последняя цифра 3, 5 или 7 Введите множество, состоящее из 20 целых чисел от 1 до 50. Определите, сколько чисел, у которых последняя цифра 3, 5 или 7. https://www.cyberforum.ru/ pascalabc-net/ thread792286.html
PascalABC.NET Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае https://www.cyberforum.ru/ pascalabc-net/ thread791805.html
Помогите пожалуйста решить задачу! Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр 		Програмка на Pascal - Ввести последовательность натуральных чисел PascalABC.NET
Кодирую на Pascal.Net.Столкнулся с этой задачей и не понимаю как ее составить.Помогите кто чем может,пожалуйста. Ввести последовательность натуральных чисел. Если последовательность упорядочена по неубыванию или по невозрастанию, удалить из последовательности числа - палиндромы, и продублировать числа, заканчивающиеся нулем. В противном случае упорядочить последовательность по неубыванию...
PascalABC.NET Вставьте вместо пропусков знаки (,),-,+,*,/ так, чтобы тождество стало верным (додумать) https://www.cyberforum.ru/ pascalabc-net/ thread791055.html
var c,a,v:integer; k: array of integer; b:string; n:integer; i:integer; begin Writeln ('Задача: вставьте вместо пропусков знаки (,),-,+,*,/ так, чтобы тождество стало верным (всего 8 знаков):'); writeln; writeln('3_2_2_3_2_2_2_2_3=8'); writeln; 		PascalABC.NET Изменение строки в цикле в цикле for i := 1 to length(s) изменять длину s можно без всяких последствий? Добавлено через 31 минуту кажется, я понял само изменение к ни чему особо страшному не приведет, но запара с счетчиком скорее всего будет https://www.cyberforum.ru/ pascalabc-net/ thread790908.html
Вычислить значение выражения PascalABC.NET
Задание: Разработать программу для вычисления: 1) значения заданного арифметического выражения (см. вариант по таблице 1); Вот что я накалякала: var e,x,y,z,h:real; begin x:=36; y:=1; e:=(ln(exp(-sqrt(abs(x))*ln(y))))*(sin(x)+exp(x+y)); 		PascalABC.NET динамическое программирование создание списка по типу "стек" и вывод на печать: не понимаю, где ошибка, подскажите. type PNode=^TNode; TNode=record data:integer; next:PNode; end; var f,g:PNode; c:integer; https://www.cyberforum.ru/ pascalabc-net/ thread790712.html
13 / 13 / 14
Регистрация: 11.11.2012
Сообщений: 147
01.03.2013, 02:05 0

Составить блок-схему и написать программу для решения следующей задачи - PascalABC.NET - Ответ 4196103

01.03.2013, 02:05. Показов 3909. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Tanya Rom как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

Program mass;
var a:array [1..10,1..10] of real;
b:array [1..10] of real;
i,j,n,m,kol:integer;
sum:real;
 
begin
readln(n,m);
 
for i:=1 to n do
 for j:=1 to m do
  readln(a[i,j]);
  while (a[i,j]>10) or (a[i,j]<(-10)) do
  begin
  writeln('Повторите ввод');
  readln(a[i,j]);
  end;
  
for i:=1 to n do
 begin
 sum:=0;
 for j:=1 to m do sum:=sum+a[i,j];
 b[i]:=sum;
 kol:=kol+1;
 end;
 
for i:=1 to n do
begin
 for j:=1 to m do
  write(a[i,j]:4);
writeln;
end;
 
 
for i:=1 to kol do write(b[i],' ');
end.


Вернуться к обсуждению:
Составить блок-схему и написать программу для решения следующей задачи PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 01.03.2013, 02:05
Готовые ответы и решения:

составьте блок-схему и программу для решения следующей..
составьте блок-схему и программу для решения следующей задачи. Процентная ставка по вкладу-15%...

Составить блок-схему и написать программу на языке Паскаль для решения следующих задач:
2. Велосипедист массой М кг движется со скоростью V м/с по вогнутому мосту, траектория его движения...

Составить блок-схему и написать программу на языке Паскаль для решения следующих задач:
1. Определить стоимость международного телефонного разговора, если известны тариф, длительность...

Составить блок схему и написать программу решения задачи: вычислить значение ф-ции
Здравствуйте, нужна помощь девушке, госы пишет. Такой вопрос : Составить блок схему и написать...

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

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

Составить блок-схему и программу для решения задачи: Вычислить значение функции для произвольных действительных значений
Составить программы для решении задач на языке программирования Java, используя консольный режим...

Написать программу для решения следующей задачи
Ввести фамилию, имя, отчество, возраст жителя Среднего Урала. а)Вывести инициалы и пол человека...

Написать циклическую программу для решения следующей задачи
Крестьянка несла на базар яйца. Проезжавший всадник толкнул ее, и все яйца разбились. На вопрос...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru