Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Определить, чем является фигура - ромбом или прямоугольником //определение фигуры// var a,b,c : Integer; ReadLn(c); Begin if c=90 then if a=b then Begin WriteLn('Это квадрат'); else WriteLn('Это прямоугольник'); end; https://www.cyberforum.ru/ pascalabc/ thread269556.html	Ввод данных строкой. Pascal ABC Имеется задача: На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100. Каждая из следующих N строк имеет следующий формат: <Фамилия> <Имя> <оценки>, где <Фамилия> – строка, состоящая не более чем из 20 символов, <Имя> – строка, состоящая не более чем из...
Pascal ABC Работа с файлами https://www.cyberforum.ru/ pascalabc/ thread269519.html Создать в редакторе текстовый файл. Программа должна дополнить этот файл, вывести на экран две первых строки, посчитать число символов в третьей строке.	Pascal ABC Составить 2 бок-схемы и 2 программы для нахождения произведения первых 20 чисел https://www.cyberforum.ru/ pascalabc/ thread269443.html помогите пожалуйста решить Составить 2 бок-схемы и 2 программы для нахождения произведения первых 20 чисел
Вычислите значения функции z Pascal ABC помогите пожалуйста! Вычислите значения функции z = (a + b + ci ) / i, если a изменяется от 0 с шагом 1, b изменяется от 5 с шагом 1, ci является элементом массива C(N) . При этом a и b изменяются одновременно с i. заранее спасибо!	Pascal ABC решить процедурой и функцией. https://www.cyberforum.ru/ pascalabc/ thread269305.html Задача. Помогите парни. нужно решить процедурой и функцией. В банк был положен вклад в размере N рублей. Через год он увеличился на 4%, а еще через год - на 6%. Сколько денег на счету будет через 2 года?. (чтоб не думать над формулой: N:=N+(N0,04) это сумма за 1 год, K:=N+(N0,06)сумма за 2 год.) За ответ каждому поставлю +1.
Pascal ABC Построить график функции в указанном сегменте экрана помогите https://www.cyberforum.ru/ pascalabc/ thread269260.html	Нарисовать фигуру (ломаную линию) Pascal ABC помогите
Pascal ABC Работа с векторами https://www.cyberforum.ru/ pascalabc/ thread269239.html Помогите пожалуйста с написанием программы Даны три вектора размерностью n=30 Составить модуль для работы с векторами и вычислить minX(A,A)maxY*(B,B) где A тот из данных трех векторов, минимальный эдемент которого имеет самый большой номер, B,C два других вектора X,minX минимальный элемент вектора Y, maxY максимальный элемент вектора Y	Pascal ABC Даны координаты вершин некоторого пятиугольника. Разбив его на треугольники вычислить его площадь. Вычисление площади треугольника по формуле Герона Помогите пишет неверная операция вещественного плана {Даны координаты вершин некоторого пятиугольника. Разбив его на треугольники вычислить его площадь. Вычисление площади треугольника по формуле Герона, оформить в виде процедуры пользователя} Program z2_v2_l5; Procedure Plos (S:Real; Var S1,S2,S3:Real); Var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer; a,b,c,d,e,f,g,p1,p2,p3:Real; begin https://www.cyberforum.ru/ pascalabc/ thread269236.html
Сформировать одномерный массив C, из повторяющихся элементов массива А и B в одном экземпляре Pascal ABC Помогите пожалуйста! Сформировать одномерный массив C, элементы, которые есть только в массиве А или только в массиве В в одном экземпляре. Элементы в массиве С не должны повторяться. Дополнительный массив не использовать. Написал прогу на си, а на паскале не могу((( #include<stdio.h> #include<stdlib.h> int main() {	Pascal ABC нарисовать политическую карту Африки помогите пожалуйста нарисовать политическую карту Африки на паскале АБС https://www.cyberforum.ru/ pascalabc/ thread269202.html

Holy_Metal

72 / 72 / 60

Регистрация: 14.12.2010

Сообщений: 201

05.04.2011, 07:30

Вывести на экран фамилии и имена трех худших по среднему баллу учеников - Pascal ABC - Ответ 1521194

05.04.2011, 07:30. Показов 4933. Ответов 2

Метки (Все метки)

Ответ

Ну можно вот так:

Pascal

uses crt;
 
type a=record;
name: string;
sname : string;
srbal : real;
end;
 
var
   i:integer;
   b: array[1..5] of a;
begin
   for i:=1 to 5 do
       with b[i] do
            begin
               writeln('Введите информацию о ',i,'-ом ученике');
               write('Фамилия: ');
               readln(sname);
               write('Имя :');
               readln(name);
               write('Средний бал :');
               readln(srbal);
            end;
clrscr;
   for i:=1 to 5 do
   with b[i] do
       if srbal<4 then begin
                                 writeln(name[i],' ',sname[i],' ',srbal);
                       end;
end.

Только немного не по заданию

Вернуться к обсуждению:
Вывести на экран фамилии и имена трех худших по среднему баллу учеников Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.04.2011, 07:30

Готовые ответы и решения:

Вывести на экран фамилии и имена 3 лучших по среднему баллу учеников
На вход в программе выдаются сведения об оценках в экзаменационной ведомости. В 1...

Вывести на экран фамилии и имена трех худших по среднему баллу учеников
задача На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой...

Вывести на экран фамилии и имена трех худших по среднему баллу учеников
Помогите с информатикой?QBASIK На вход программе подаются сведения о сдаче экзаменов учениками...

Вывести на экран фамилии и имена трех худших по среднему баллу учеников
На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней...

	05.04.2011, 07:30

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.04.2011, 07:30

Помогаю со студенческими работами здесь

Вывести фамилии и имена трех худших по среднему баллу учеников
На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней...

Вывести на экран фамилии и имена трех лучших по среднему баллу учеников
На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней...

Вывести на экран фамилии и имена трех лучших по среднему баллу учеников
задача 1 Во входном файле meteo.dat 365 строк, которые содержат информацию о среднесуточной...

Наверх