Форум программистов, компьютерный форум CyberForum.ru

Переведите, Вычислить средний балл учеников класса, если известны оценки каждого ученика по математике, русскому языку и физике. Распечатать списо - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Дано натуральное число n, действительное число х. Вычислить sinx+sinx2+...+sinxn http://www.cyberforum.ru/cpp-beginners/thread711768.html
Прошу помочь с 3-мя задачками очень нужно сдать а сделать никак не могу. 1) Дано натуральное число n, действительное число х. Вычислить sinx+sinx2+...+sinxn. Заранее огромное спасибо!
C++ Потоки ввода-вывода. Файловые операции Написать программу, которая считывает текст из файла и выводит на экран только строки, не содержащие двузначных чисел http://www.cyberforum.ru/cpp-beginners/thread711767.html
Найдите ошибку C++
Сделал программу но ответы получаются неверными Должно получится При z=0.1722, y= 6.33,z=0.000325 Ответ -205.305571 Напишите в чем ошибка #include <stdio.h> #include <conio.h> #include <math.h> void main (){
C++ Строки: уничтожить в строке запятые перед первой точкой, заменить знаком + все цифры 3я после первой точки
Дано строка длиной n символов, среди которых есть хотя бы одна точка. превратить последовательность s1, s2, ... sn, уничтожив в ней все запятые, идущие перед первой точкой, и заменив знаком + все цифры 3, встречающиеся после первой точки.
C++ Строки: подсчитать количество заглавных букв; вывести слова с наименьшим количеством букв http://www.cyberforum.ru/cpp-beginners/thread711751.html
С клавиатуры вводится строка. Составить программу, которая подсчитывает количество заглавных букв в тексте; выводит на экран слова, имеющие наименьшее количество букв удаляет все слова, начинающиеся со строчной буквы.
C++ Напечатать числа, которые принадлежат этому интервалу и которые можно выразить как сумму квадратов двух натуральных чисел Дан интервал натуральных чисел . Напечатать на экране все те числа, которые принадлежат этому интервалу и которые можно выразить как сумму квадратов двух натуральных чисел (используя функцию, которая знает квадраты целых чисел) подробнее

Показать сообщение отдельно
punkreva1
0 / 0 / 0
Регистрация: 28.11.2012
Сообщений: 5
28.11.2012, 10:18     Переведите, Вычислить средний балл учеников класса, если известны оценки каждого ученика по математике, русскому языку и физике. Распечатать списо
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program lab100301;
uses crt;
type
  tablica=record
  name:string[10];
  sred:real;
  rus,math,fiz:byte;
  end;
var
  a:tablica;
  mas:array[1..30] of tablica;
  s:real; n:integer;
  i:integer;
begin
  clrscr;
  writeln('введите количество учеников ');
  readln(n);
  for i:=1 to n do
    with mas[i] do
    begin
      write('фамилия ',i,'-го ученика : '); readln(name);
      write('русский язык: '); readln(rus);
      write('математика : '); readln(math);
      write('физика : '); readln(fiz);
      sred:=(rus+math+fiz)/3;
      s := s + sred;
      writeln('Средний бал ученика: ' , name,'  ',  sred:3:1);
    end;
 
  s := s / n;
  writeln('Обший средний бал: ',s);
  writeln('');
  writeln('ученики чей средний бал выше среднего ');
  writeln('');
  writeln(' ________________________ ');
  writeln('| фамилия  |средний балл |');
  writeln(' ------------------------ ');
  for i:=1 to n do
    with mas[i] do
      if mas[i].sred>s then
        begin
          write('|',name:9,'|');
          writeln(sred:14:2,'|');
        end;
  writeln(' --------------------------');
  readkey;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:34. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru