записи, обработка строк символов,процедуры в алгоритмическом языке Паскаль

@987654 · Регистрация: 23.11.2009

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

1)задача на записи

вывести сведения о 8 студентах( фамилия, год рождения,рейтинг по предметем: информатика, история, высшая математика).вычаслить средний балл группы и напечатать список стоудентов имеющих средний балл выше среднего балла группы

2)обработка строк символов

даны действительные числа a1,a2....,an (а1>0). известно, что в последовательности есть хотя бы одно отрицательное число. Пусть a1....an- члены предшевствующие первму отрицательному числу(n-заанее не известно). получить:
2.1) a1*a2+a2*a3+....an-1 + an*a1
2.2) кол-во нечетных среди a1...an
2.3)a1+min(a1,a2..an)+an
2.4)n*(a1-an)
2.5)(a1+max(a1,a2,..an))/n
2.6)a1,a12,a123,...a12...an
2.7)a1+2a2+2a3+...2an-1+an

3) програмирование с использованием процедур
найти длину вектора X=(X1, X2, X3),где Х есть сумма элементов матрицы A. X2-сумма элементов матрицы С. вычасление сумм оформить в виде программы

A,B,C-взять произвольные матрицы

@Mephistopheles · 15.12.2009, 18:22

1 задача:

Pascal
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
program Project2;
 
  type tsv=record
  fio:string;
  godr:integer;
  reyting:record
  mat:byte;
  informatika:byte;
  istoria:byte;
  end;end;
  var i:integer;s:array[1..8] of tsv;m,ist,inf:real;
begin
for i:=1 to 8 do begin
m:=m+s[i].reyting.mat;
inf:=inf+s[i].reyting.informatika;
ist:=ist+s[i].reyting.istoria;
end;
m:=m/8;
ist:=ist/8;
inf:=inf/8;
for i:=1 to 8 do begin
if (s[i].reyting.mat>m) or (s[i].reyting.informatika>inf) or
(s[i].reyting.istoria>ist) then
write(s[i].fio);end;
end.

@987654 · 15.12.2009, 18:25 **[ТС]**

благодарю.вы меня выручили!а блок-схему можго к первой задачке?

@Mephistopheles · 15.12.2009, 19:08

честно говоря не представляю как на блок схеме рекорд изобразить)

@987654 · 15.12.2009, 19:11 **[ТС]**

а вот на счет остальных задачек, есть предположения?

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@987654 6 / 5 / 0 Регистрация: 23.11.2009 Сообщений: 83

	записи, обработка строк символов,процедуры в алгоритмическом языке Паскаль 15.12.2009, 18:00. Показов 1408. Ответов 4 Метки нет (Все метки) 1)задача на записи вывести сведения о 8 студентах( фамилия, год рождения,рейтинг по предметем: информатика, история, высшая математика).вычаслить средний балл группы и напечатать список стоудентов имеющих средний балл выше среднего балла группы 2)обработка строк символов даны действительные числа a1,a2....,an (а1>0). известно, что в последовательности есть хотя бы одно отрицательное число. Пусть a1....an- члены предшевствующие первму отрицательному числу(n-заанее не известно). получить: 2.1) a1a2+a2a3+....an-1 + ana1 2.2) кол-во нечетных среди a1...an 2.3)a1+min(a1,a2..an)+an 2.4)n(a1-an) 2.5)(a1+max(a1,a2,..an))/n 2.6)a1,a12,a123,...a12...an 2.7)a1+2a2+2a3+...2an-1+an 3) програмирование с использованием процедур найти длину вектора X=(X1, X2, X3),где Х есть сумма элементов матрицы A. X2-сумма элементов матрицы С. вычасление сумм оформить в виде программы A,B,C-взять произвольные матрицы 0

@987654 6 / 5 / 0 Регистрация: 23.11.2009 Сообщений: 83
	15.12.2009, 18:25 [ТС]
	благодарю.вы меня выручили!а блок-схему можго к первой задачке? 0

@Mephistopheles 11 / 11 / 8 Регистрация: 13.12.2009 Сообщений: 17
	15.12.2009, 19:08
	честно говоря не представляю как на блок схеме рекорд изобразить) 1

@987654 6 / 5 / 0 Регистрация: 23.11.2009 Сообщений: 83
	15.12.2009, 19:11 [ТС]
	а вот на счет остальных задачек, есть предположения? 0