Вычисление и вывод на экран

@barabara · Регистрация: 03.11.2019

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

вычuслите слyчайное количество чuсел в строке из фaйла,посчuтайте их суммy и вывeдите на экрaн.

@Sun Serega · 04.11.2019, 03:42

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

вычuслите слyчайное

Так вычислить или взять случайное?

@barabara · 04.11.2019, 16:16 **[ТС]**

в задании написано вычислить

@Соколиный глаз · 04.11.2019, 16:29

barabara, верно ли я понимаю, что требуется взять случайное количество чисел в строке из файла и вывести их сумму?

@barabara · 04.11.2019, 17:07 **[ТС]**

да, верно

@Соколиный глаз · 04.11.2019, 17:41

Pascal
1
2
3
4
5
6
7
8
9
10
11
// Для обработки указанного количества чисел используйте метод расширения Take.
uses System.IO;
uses System;
 
begin
   &File.ReadLines('FileName.txt')
    .First()
    .Split(new char[] (' '), StringSplitOptions.RemoveEmptyEntries)
    .Sum(x -> integer.Parse(x))
    .Println();
end.

Описание работы программы:
- считывается первая строка файла
- строка разделяется по пробелу на числа (их строковые представления)
- числа преобразуются из строковых представлений в integer и суммируются
- сумма выводится на экран

Ссылки:
- Read only first line from a text file (en)
- File class (en)
- C# и .NET | Работа с файлами. File и FileInfo (ru)

@barabara · 04.11.2019, 18:15 **[ТС]**

а...
это точно программа для PascalABC.NET?

Добавлено через 1 минуту
разве там не с "var" надо начинать?

@Соколиный глаз · 04.11.2019, 19:06

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

разве там не с "var" надо начинать?

Необязательно. В данный момент описание секции var глобальных переменных настоятельно не рекомендуется (в частности, самими разработчиками).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses System.IO;
uses System;
 
begin
   var numbers := &File.ReadLines('FileName.txt')
    .First()
    .Split(new char[] (' '), StringSplitOptions.RemoveEmptyEntries);
  
   var _random := new Random();
   numbers.Take(_random.Next(numbers.Length + 1).Println())
    .Sum(x -> integer.Parse(x))
    .Println();
end.

Вариант с суммированием произвольного количества чисел.

Использовались средства:
- .NET Framework: класс File, класс Random, LINQ
- PABCSystem: Println

@barabara · 04.11.2019, 19:07 **[ТС]**

а если я такого ещё не проходил?
мне нужно что-то типо такого
var
f:text;
a,b,c,d:integer
begin
assign и т.д

@Соколиный глаз · 04.11.2019, 19:11

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

а если я такого ещё не проходил?

barabara, я всегда стараюсь к ответам прилагать ссылки как на английском, так и на русском. Вы можете посмотреть материалы по ним. На счёт написания кода в стиле классического Pascal могу лишь сказать, что я не слишком его глубоко знаю.

@barabara · 04.11.2019, 19:14 **[ТС]**

блииин..
хоть за это спасибо

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@barabara 0 / 0 / 0 Регистрация: 03.11.2019 Сообщений: 21

	Вычисление и вывод на экран 03.11.2019, 23:07. Показов 634. Ответов 10 Метки нет (Все метки) вычuслите слyчайное количество чuсел в строке из фaйла,посчuтайте их суммy и вывeдите на экрaн. 0

@barabara 0 / 0 / 0 Регистрация: 03.11.2019 Сообщений: 21
	04.11.2019, 16:16 [ТС]
	в задании написано вычислить 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	04.11.2019, 16:29
	barabara, верно ли я понимаю, что требуется взять случайное количество чисел в строке из файла и вывести их сумму? 0

@barabara 0 / 0 / 0 Регистрация: 03.11.2019 Сообщений: 21
	04.11.2019, 17:07 [ТС]
	да, верно 0

@barabara 0 / 0 / 0 Регистрация: 03.11.2019 Сообщений: 21
	04.11.2019, 18:15 [ТС]
	а... это точно программа для PascalABC.NET? Добавлено через 1 минуту разве там не с "var" надо начинать? 0

@barabara 0 / 0 / 0 Регистрация: 03.11.2019 Сообщений: 21
	04.11.2019, 19:07 [ТС]
	а если я такого ещё не проходил? мне нужно что-то типо такого var f:text; a,b,c,d:integer begin assign и т.д 0

@barabara 0 / 0 / 0 Регистрация: 03.11.2019 Сообщений: 21
	04.11.2019, 19:14 [ТС]
	блииин.. хоть за это спасибо 0