Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
maksimelyan
0 / 0 / 0
Регистрация: 07.09.2016
Сообщений: 54
1

Переделать в консольное приложение

27.11.2016, 21:38. Просмотров 144. Ответов 4
Метки нет (Все метки)

Всем привет.Кто может переделать в консольное приложение(delphi)? Знаю команды setlenth и т.д,но у меня не получается...

Заранее спасибо.
0
Миниатюры
Переделать в консольное приложение  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2016, 21:38
Ответы с готовыми решениями:

Переделать консольное приложение в оконное
Помогите переделать в графический интерфейс type st = String; var ...

Граф. приложение+библиотеки+консольное приложение! Не работает программа без использования консоли. Если использую, то всё прекрасно работает.
Ребята нужна помощь,все вроде сделал, но приложение начинает зависать при...

Консольное приложение
Пишу первую консольную программу, помогите доработать её. program Project2;...

Консольное приложение
Вот составила консоль-приложение,но при "Run" пишет мне отказано в доступе,в...

Консольное приложение
Разработать консольное приложение, создающее два списка из целых чисел и...

4
HiredKiller
76 / 76 / 39
Регистрация: 17.02.2016
Сообщений: 453
27.11.2016, 22:35 2
картинку засуньте себе в ж.... хм, в корзину, и напишите код текстом
0
maksimelyan
0 / 0 / 0
Регистрация: 07.09.2016
Сообщений: 54
27.11.2016, 23:17  [ТС] 3
зачем же так грубо:?если вас что-то бесит не обязательно об этом говорить,всего вам хорошего.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
n:integer=6;
var 
arr :array[1..n,1..n] of integer;
i,j: integer;
sum :integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
arr[i,j]:=random(41)-20;
if (i mod 3=0) and (arr[i,j] >0 ) 
then
sum:=sum+arr[i,j];
write(arr[i,j]:4);
end;
writeln;
end;
writeln('сумма = ', sum);
readln;
end.
0
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
27.11.2016, 23:24 4
Я переделал, где моя медаль? ліл
Кликните здесь для просмотра всего текста
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
uses
  SysUtils, Windows;
const
n=6;
var
arr :array[1..n,1..n] of integer;
i,j: integer;
sum :integer;
begin
 SetConsoleCP(1251);
 SetConsoleOutputCP(1251);
randomize;
sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
arr[i,j]:=random(41)-20;
if (i mod 3=0) and (arr[i,j] >0 ) 
then
sum:=sum+arr[i,j];
write(arr[i,j]:4);
end;
writeln;
end;
writeln('сумма = ', sum);
readln;
end.
1
Миниатюры
Переделать в консольное приложение  
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
28.11.2016, 10:44 5
Цитата Сообщение от maksimelyan Посмотреть сообщение
если вас что-то бесит
Это бесит правила форума, которые Вы не удосужились прочитать, если бы я первым увидел эту тему, я просто удалил бы Вашу картину.
А по сути этот код и не нужно переделывать, ибо он и написан для консоли.
0
28.11.2016, 10:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2016, 10:44

Консольное приложение
Делаю курсовую!!! Создаю проект в делфи!!! У меня возникла сложность: как...

Консольное приложение
Дан двумерный массив размерности m×n(m<=8, n<=10). Дополни-тельные сведения,...

Консольное приложение!
Определить наибольший среди отрицательных элементов чётных столбцов матрицы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru