Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Входной файл https://www.cyberforum.ru/ pascal/ thread191667.html
На вход программе подаются сведения о сдаче экзаменов учениками 11-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100, каждая из следующих N строк имеет следующий формат: <Фамилия> <Имя> <оценки>, где <Фамилия> – строка, состоящая не более чем из 20 символов, <Имя> – строка, состоящая не более чем из 15 символов,...
Процедуры и функции Pascal
Пользователь вводит три вещественных числа: a,b,c. Составить функцию для решения уравнения (x+a)/(x+b)=сx, которая получает введенные числа в качестве параметров. Найденные корни уравнения функция возвращает в качестве двух других параметров. Результат, который возвращает сама функция, должен позволять отслеживать следующие случаи (зависящие от значений введенных чисел): уравнение имеет только...
Pascal ввод строки из текстового файла, обработка и сохранениерезультата в текстовый фаил https://www.cyberforum.ru/ pascal/ thread191663.html
вот программа, в ней надо ввести строку, потом она обработается и выводит результат. program pr1; var s:array of string; s1,s2:string; i,j,n,a:integer; slovo,slovo1:string; begin cls;
Pascal Найти произведение цифр k значного числа https://www.cyberforum.ru/ pascal/ thread191661.html
Помогите пожалуйста создать программу которая будет вычислять произведение цифр k значного числа
Деление числа на 6!! Pascal
Уважаемые эксперты, помогите пожалуйста исправить ошибку.Ошибка заключается в следующем при делении числа 7,5,11,13 и д.р на 6 выходит результат, что данное число делится, а это не так. Помогите пожалуйста, завтра сдавать а у меня ошибка((. program na11; uses crt; var r4,r3,n,s,r,r1,r2,r6:longint; h:integer; st:string;
Pascal помогите. неполучается! Все слова в которых буква "a" более 2-ух раз удалить из текста. Выведите на экран. Если такого символа нет, то выведите соответствующее сообщение вот код! uses crt; var s,s1,s2:string; n,i,j,k,p:byte; begin clrscr; writeln('Введите последовательность слов, разделенных пробелами'); readln(s); https://www.cyberforum.ru/ pascal/ thread191650.html
Pascal Области в двумерном массиве https://www.cyberforum.ru/ pascal/ thread191645.html
Добрый вечер. Имеется двумерный массив (размерность любая), заполненный 0 и 1. Найти количество областей из рядом стоящих 1. Области не могут соприкасаться друг с другом. Пример ниже. Заранее спасибо. :)
Определить значение логического выражения Pascal
Определить значение логического выражения при A=1, B=2, C=3, D=4, F=5. (D+A<=F) and (B*C=2*D) and (F>=A+C)
Pascal Заменить все пробелы на нули до первой точки Вводится строка символов.Заменить все пробелы на нули до первой точки. https://www.cyberforum.ru/ pascal/ thread191636.html Pascal Определение веса золотого кольца Составить программу для определения веса золотого кольца, если ширина =b, толщина стенки =h, диаметром внутренней окружности =Д, удельный вес золота =d https://www.cyberforum.ru/ pascal/ thread191632.html
Pascal Обработка строк. Использование множеств. Данные типа String
Дана строка символов, состоящая из нулей, единиц и пробелов. Группы нулей и единиц, разделенные пробелами (одним или несколькими) и не содержащие пробелы внутри себя, будем называть словами. Требуется подсчитать количество слов в данной строке. Рассматривая слова как числа, определить количество слов, делящихся на 5 без остатка. Желательно с блок-схемой. Добавлено через 7 минут помогите...
Pascal Использование методов внутренней сортировки. https://www.cyberforum.ru/ pascal/ thread191611.html
Массив a длины n содержит элементы разных знаков. Составить программу построения массива b, в котором все подряд идущие элементы массива a одного знака были бы заменены их суммой, как в следующем примере: a={1, 2, -3, -4, 5}, b={3, -7, 5}. Добавлено через 9 минут помогите пжл!!!!!!!!
1 / 1 / 0
Регистрация: 06.06.2010
Сообщений: 38
0

программа-переделать - Pascal - Ответ 1112863

15.11.2010, 18:38. Показов 537. Ответов 0
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите переделать а то я незнаю как её доделать((, плиззз))вот такое зание((:
Постановка задачи:
Подготовить данные об абитуриентах,поступающих в техникум.Информацию о каждом абитуриенте оформить в виде записи,содержащей следующие поля:
1.Фамилия,Имя,Отчество
2.Год рождения
3.Год окончания школы
4.Оценки в атестате
5.Признак--нуждается ли в общежитии
6.Оценки вступительных экзаменов.

Разработать программу записи подготовленных данных во внешний файл и программу обработки созданного внешнего файла.
1)Удалить из внешнего файла все записи,удолитворяющие условию,заданному в вариант,и распечатать информацию,оставшуюся в файле.
2)Добавить N записей в начало(конец) внешнего файла и распечатать записи полученного файла согласно конкретному варианту.

Вариант:
1 a)Из внешнего файла,содержащего исходные данные,удалить записи,соответствующие:
абитуриентам,получившим хотя бы одну оценку 2.Распечатать полученный файл.
1 б)Используя внешний файл,содержащий исходные данные,добавить N записей и распечатать:
Список абитуриентов,имеющих в аттестате оценки только 5 N=2.

вот что у меня получилось(


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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Program Pascal;
Uses crt;
Const fname='LabRab2.pas';
Type st=record
fam:string;
im:string;
ot:string;
god_r:integer;
god_ok_shk:integer;
 
obshejitie:string;
attestat_mat:integer;
attestat_fiz:integer;
attestat_ist:integer;
 
exam_mat:integer;
exam_fiz:integer;
exam_ist:integer;
end;
Var t:array[1..3] of st;
i,ch,j:integer;
h: file of st;
 
 
begin
 
write('vvedite kol-vo abiturientov: '); readln(ch);
 
 
for i:=1 to 2 do begin
writeln('svedeniya o ' ,i,' studente');
write('familiya',i,'-go studenta : '); readln(t[i].fam);
write('imya',i,'go studenta : '); readln(t[i].im);
write('otchestvo',i,'go studenta: '); readln(t[i].ot);
write('god rojdeniya',i,'go studentaя: '); readln(t[i].god_r);
write('god okonchaniya shkoli ',i,'go studentaя: '); readln(t[i].god_ok_shk);
 
write('nujdaetsya v obshejitie ',i,' studentя: '); readln(t[i].obshejitie);
 
writeln('-----ATTESTAT----- ');
write('ocenka po matematike: ');  readln(t[i].attestat_mat);
write('ocenka po fizike: ');      readln(t[i].attestat_fiz);
write('ocenka po istorii: ');     readln(t[i].attestat_ist);
 
writeln('------EXAMENI------ ');
 
write('ocenka po matematike: ');  readln(t[i].exam_mat);
write('ocenka po fizike: ');      readln(t[i].exam_fiz);
write('ocenka po istorii: ');     readln(t[i].exam_ist);
 
end;
writeln('-------------------------------');
writeln('svedeniya o studentah: ');
 
for i:=1 to 2 do
 
writeln('fio 1-go studenta : ', t[1].fam, t[1].im, t[1].ot);
writeln('god rojdeniya 1-go studenta :', t[1].god_r);
writeln('nujdaetsya li 1 student v obshejitii :',t[1].obshejitie);
writeln('ocenki 1-go studenta :');
 
writeln('matematika: ',t[1].exam_mat);
 
writeln('fizika: ',t[1].exam_fiz);
 
writeln('istoriya: ',t[1].exam_ist);
 
writeln;
 
writeln('fio 2-go studenta :', t[2].fam, t[2].im, t[2].ot);
writeln('god rojdeniya 2-go studenta :', t[2].god_r);
writeln('nujdaetsya li 2 student v obshejitii :',t[2].obshejitie);
writeln('ocenki 2-go studenta :');
 
writeln('matematika: ',t[2].exam_mat);
 
writeln('fizika: ',t[2].exam_fiz);
 
writeln('istoriya: ',t[2].exam_ist);
 
writeln;
Assign (h,fname);
{$I-}
reset(h);
If Ioresult<>0 then rewrite(h);
{$I+}
for i:=1 to ch do write(h,t[i]);
 
close(h);
writeln('dannie zapisani v fail ',fname);
readln;
 
end.


Вернуться к обсуждению:
программа-переделать Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2010, 18:38
Готовые ответы и решения:

Переделать программу, что бы была основная программа и процедуры или функции
помогите, пожалуйста, переделать эту программу, что бы она была с процедурами и функциями:Найти...

надо переделать задачу она уже решена ну ее нужно переделать
вот задача const n=4; var a:array of integer; i,s:integer; begin for i:=1 to n do begin...

Нужно переделать программа под Pascal ABC
label n1,n2; var A : arrayof integer; b, t : arrayof integer; n,l,x,c,i,j : integer; Begin...

Переделать в консольное приложение: программа, решающая СЛАУ
Ребята, помогите переделать в консольное приложение. Создать класс &quot;система линейных...

0
15.11.2010, 18:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2010, 18:38
Помогаю со студенческими работами здесь

Помогоите переделать программу из Паскаль на СИ вот сама программа
Дано натуральне число n.Отримати всі прості дільники цього числа: program p1; var...

Помогоите переделать программу из Паскаль на СИ вот сама программа
Дано натуральне число n. Получить все простые делители этого числа: program p1; var...

Есть готовая программа. Нужно её переделать и присоединить модули
Есть готовая программа. Нужно её переделать и присоединить модули. uses crt; function...

Готовая программа, нужно переделать ее чтобы она работала с УКАЗАТЕЛЯМИ
Вычислить значение выражения тут Вычислить значение выражения (3a+4)/(a-в квадрате-5a-9) для а=...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru