Выведет на экран фразу "всем привет" 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) выяснить является ли эти поля одного цвета. ооооочень надо

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

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

Решение

Решение

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

	Выведет на экран фразу "всем привет" 80 раз в таблице из 20 строк по 4 столбца 02.02.2012, 09:51. Показов 6952. Ответов 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 Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	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 Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	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 Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	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