Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/89: Рейтинг темы: голосов - 89, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 3

Написать программу, которая выводит 5 раз привет

11.12.2011, 20:46. Показов 17219. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток уважаемые форумчане. Обращаюсь к вам с просьбой помочь составить 3 программы. Не давно начал изучать програмирование, перешли на Pascal, но из-за болезни, прошляпил 2 недели. Если поможете с решением отблагодарю. Решение нужно к завтрашнему дню.

Задча № 1.
Написать программу, которая выводит 5 раз привет.

Задача № 2.
Написать программу, которая вводит с клавиатуры последовательность из пяти дробных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности.

Задача № 3.
Составьте программу, которая вычисляет сумму чисел от 1 до 100.

P.S. Нужна срочная помощь, приношу свои извенения, если подобные темы были сделаны. Нету времение на изучение.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.12.2011, 20:46
Ответы с готовыми решениями:

Дано слово "привет". Выводить так : привет ривет
Дано слово "привет". Выводить так : привет ...

Напишите программу " Всем привет!" 80 раз
Напишите программу " Всем привет!" 80 раз. В таблице из 20 строк и 4 столбца.

Напишите программу, которая читает строку, и если это ваше имя то печатает на экране "привет"
Фамильярность. Напишите программу, которая читает строку, и если это ваше имя то печатает на экране...

6
 Аватар для Slim_py
47 / 47 / 42
Регистрация: 17.10.2011
Сообщений: 136
11.12.2011, 21:00
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

так что ли?
1
Pascal
1
2
3
4
5
6
7
8
program pr;
begin
   writeln('Ïðèâåò!');
   writeln('Ïðèâåò!');
   writeln('Ïðèâåò!');
   writeln('Ïðèâåò!');
   writeln('Ïðèâåò!');
end.
2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program pr2;
var a:array[1..5] of real;
    i:integer; s,p:real;
begin
   writeln('Ââåäèòå äðîáíûå ÷èñëà');
   s:=0;
   for i:=1 to 5 do
      begin
         readln(a[i]);
         s:=s+a[i];
      end;
   p:=s/5;
   writeln('Ñðåäíåå àðèôìåòè÷åñêîå: ',p);
end.
3
Pascal
1
2
3
4
5
6
7
8
program pr3;
var s,i:integer;
begin
   s:=0;
   for i:=1 to 100 do
      s:=s+i;
   writeln('Ñóììà ÷èñåë îò 1 äî 100 = ',s);
end.
1
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 3
11.12.2011, 22:38  [ТС]
Да, да.. Спасибо большое. Напиши свои яндекс.деньги отправлю вознаграждение. И о.
Ошибся в 3 задаче, перепутал условия.


сумма всех положительных чисел, от 1 до 100.
Вот задача. За ранее спасибо.
0
 Аватар для Marycka9
14 / 8 / 5
Регистрация: 15.11.2011
Сообщений: 44
11.12.2011, 23:05
так проще будет

Pascal
1
2
3
4
5
6
7
8
program pr;
var i:integer;
begin
 
for i:=1 to 5 do
writeln('Привет');
 
end.
1
 Аватар для Slim_py
47 / 47 / 42
Регистрация: 17.10.2011
Сообщений: 136
11.12.2011, 23:44
ну так в диапазоне от 1 до 100 и так нет отрицательных)
не надо мне денег оно того не стоит)

Добавлено через 1 минуту
или надо именно вводить самому? все 100 чисел
0
 Аватар для Marycka9
14 / 8 / 5
Регистрация: 15.11.2011
Сообщений: 44
12.12.2011, 01:01
Добавлено через 1 минуту
или надо именно вводить самому? все 100 чисел[/QUOTE]

Думаю не надо))) Самоубийством же будет)
0
 Аватар для Slim_py
47 / 47 / 42
Регистрация: 17.10.2011
Сообщений: 136
12.12.2011, 14:20
да я тоже так думаю)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.12.2011, 14:20
Помогаю со студенческими работами здесь

Запросить имя пользовавателя и напечатать "Привет Вася", 10 раз
Необходимо преобразовать задачу так, что бы "Привет Вася" печаталось 10 раз, если Вася имя...

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

Вывести слово "Привет!" столько раз, сколько задаст пользователь
Задача №1. Написать программу выводящую слово "Привет!", столько раз, сколько задаст пользователь....

Написать программу, которая 10 раз выводит на экран имя и фамилию.
Написать программу, которая 10 раз выводит на экран имя и фамилию.

Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru