Выведет на экран фразу "всем привет" 80 раз в таблице из 20 строк по 4 столбца

@Visary_Master · Регистрация: 01.12.2010

Студворк — интернет-сервис помощи студентам

Написать(в редакторе Паскаля) программу.которая выведет на экран фразу " всем привет" 80 раз в таблице из 20 строк по 4 столбца..

помогите пожалуйста

@Puporev · 02.02.2012, 10:10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
const s='Всем привет';
var i,k:byte;
begin
clrscr;
k:=length(s)+80 div length(s);{количество позиций под вывод строки}
for i:=1 to 80 do
 begin
  write(s:k);
  if i mod 4=0 then writeln;
 end;
readln
end.

@Visary_Master · 02.02.2012, 11:18 **[ТС]**

Ошибка!
begin expected

Добавлено через 1 минуту
Все норм. Я неправильно написал слово uses

Добавлено через 4 минуты
А по русски можно как-нибудь вывести?

@Puporev · 02.02.2012, 11:22

Так у меня по русски и выводит, ты если кодировку этого кода не сменил на Dos, то прямо в программе перепиши каракули на русский.

@Visary_Master · 02.02.2012, 11:29 **[ТС]**

Сообщение от Puporev

write(s:k);
* if i mod 4=0 then writeln;

объясните пожалуйста подробно, что делают эти строки?

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

Сообщение от Puporev

Так у меня по русски и выводит, ты если кодировку этого кода не сменил на Dos, то прямо в программе перепиши каракули на русский.

кодировку не менял... как ее поменять?

@Puporev · 02.02.2012, 11:31

write(s:k);//выводим в строку с выделением по к позиций под каждый вывод
if i mod 4=0 then writeln;//если вывели 4, на новую строку

Добавлено через 59 секунд

Сообщение от Visary_Master

кодировку не менял... как ее поменять?

Ну, у меня есть программа перекодировщик, а вообще вроде как-то в Ворде можно.

@Visary_Master · 02.02.2012, 11:32 **[ТС]**

s:k - именно вот это что возвращает?

@Puporev · 02.02.2012, 11:34

Visary_Master, Ну ты что, вообще с головой не дружишь? Я же написал

Сообщение от Puporev

write(s:k);//выводим в строку с выделением по к позиций под каждый вывод

Добавлено через 35 секунд
s-наша строка, к-количество позиций

@Visary_Master · 02.02.2012, 11:37 **[ТС]**

Сообщение от Visary_Master

k:=length(s)+80 div length(s);{количество позиций под вывод строки}

k = 11+80

Сообщение от Visary_Master

div length(s)

а зачем div и снова 11?

Добавлено через 21 секунду
может как-то с пробелами проще?

@Puporev · 02.02.2012, 11:39

Перекодирование можно так, копируешь код из темы в WordPad, сохранить как
тип файла текстовый документ MS-DOS, потом меняешь расширение на .pas

@Visary_Master · 02.02.2012, 11:39 **[ТС]**

частное от деления... просто не совсем разобрался еще с операторами... это же pascal

@Puporev · 02.02.2012, 11:40

Сообщение от Visary_Master

может как-то с пробелами проще?

Да хоть через ж... я же тебя не заставляю, это твоя программа.

@Visary_Master · 02.02.2012, 11:41 **[ТС]**

Сообщение от Puporev

Перекодирование можно так, копируешь код из темы в WordPad, сохранить как
тип файла текстовый документ MS-DOS, потом меняешь расширение на .pas

код принципиально копируется и вставляется только из среды в среду...

@Puporev · 02.02.2012, 11:44

Сообщение от Visary_Master

код принципиально копируется и вставляется только из среды в среду...

Это ты так умничаешь? Из какой нафиг среды? Ты копируешь его отсюда в текстовый файл. Код программы это текстовый файл с расширением .pas и больше ничего, в среде тв только его компилируешь.

@Visary_Master · 02.02.2012, 11:52 **[ТС]**

я не умничаю, просто не знал, что если код программы открыть через wordpad то увидем код.
Думал он сразу в екзешник... и что вы мне предложили екзешник открыть через wordpad

Все, спасибо, мне все понятно.

@elvira_96 · 22.04.2012, 14:54

помогите пожалуйста решить задачу. Паскаль a,b,c с клавиатурой, распечатать их в порядке возрастания.

@Puporev · 22.04.2012, 14:57

elvira_96, Вы сами поняли что написали? Это что за Паскаль с клавиатурой?

@elvira_96 · 22.04.2012, 17:02

через программу паскаль если что. даны 3 переменные нужно распечатать в порядке возрастания.

@Puporev · 22.04.2012, 17:07

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a,b,c,mn,sr,mx:real;
begin
writeln('Введите 3 числа:');
readln(a,b,c);
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
sr:=a+b+c-mn-mx;
writeln('Числа по возрастанию:');
write(mn:0:2,' ',sr:0:2,' ',mx:0:2);
readln
end.

@elvira_96 · 22.04.2012, 18:41

спасибо. объясните что обозначает mn , mx , sr просто такое не разу не писали еще

Добавлено через 1 час 23 минуты
Вот такая задачка. Поле шахматной доски определяется пара натуральных чисел меньше или равно 8 по введенным координатом (k,l) (m,n) выяснить является ли эти поля одного цвета. ооооочень надо

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@Visary_Master 17 / 18 / 1 Регистрация: 01.12.2010 Сообщений: 296

	Выведет на экран фразу "всем привет" 80 раз в таблице из 20 строк по 4 столбца 02.02.2012, 09:51. Показов 7018. Ответов 22 Метки нет (Все метки) Написать(в редакторе Паскаля) программу.которая выведет на экран фразу " всем привет" 80 раз в таблице из 20 строк по 4 столбца.. помогите пожалуйста 0

@Visary_Master 17 / 18 / 1 Регистрация: 01.12.2010 Сообщений: 296
	02.02.2012, 11:18 [ТС]
	Ошибка! begin expected Добавлено через 1 минуту Все норм. Я неправильно написал слово uses Добавлено через 4 минуты А по русски можно как-нибудь вывести? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.02.2012, 11:22
	Так у меня по русски и выводит, ты если кодировку этого кода не сменил на Dos, то прямо в программе перепиши каракули на русский. 1

@Visary_Master 17 / 18 / 1 Регистрация: 01.12.2010 Сообщений: 296
	02.02.2012, 11:32 [ТС]
	s:k - именно вот это что возвращает? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.02.2012, 11:39
	Перекодирование можно так, копируешь код из темы в WordPad, сохранить как тип файла текстовый документ MS-DOS, потом меняешь расширение на .pas 1

@Visary_Master 17 / 18 / 1 Регистрация: 01.12.2010 Сообщений: 296
	02.02.2012, 11:39 [ТС]
	частное от деления... просто не совсем разобрался еще с операторами... это же pascal 0

@Visary_Master 17 / 18 / 1 Регистрация: 01.12.2010 Сообщений: 296
	02.02.2012, 11:52 [ТС]
	я не умничаю, просто не знал, что если код программы открыть через wordpad то увидем код. Думал он сразу в екзешник... и что вы мне предложили екзешник открыть через wordpad Все, спасибо, мне все понятно. 0

@elvira_96 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 7
	22.04.2012, 14:54
	помогите пожалуйста решить задачу. Паскаль a,b,c с клавиатурой, распечатать их в порядке возрастания. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.04.2012, 14:57
	elvira_96, Вы сами поняли что написали? Это что за Паскаль с клавиатурой? 1

@elvira_96 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 7
	22.04.2012, 17:02
	через программу паскаль если что. даны 3 переменные нужно распечатать в порядке возрастания. 0

@elvira_96 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 7
	22.04.2012, 18:41
	спасибо. объясните что обозначает mn , mx , sr просто такое не разу не писали еще Добавлено через 1 час 23 минуты Вот такая задачка. Поле шахматной доски определяется пара натуральных чисел меньше или равно 8 по введенным координатом (k,l) (m,n) выяснить является ли эти поля одного цвета. ооооочень надо 0

Выведет на экран фразу "всем привет" 80 раз в таблице из 20 строк по 4 столбца

Решение

Решение